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"Awesome". The word only begins to describe the 
power of DOSPLUS 3.5, the latest in the line of 
popular Disk Operating Systems from Micro-Sys- 
tems Software, Inc. 

Long known for its production of high quality, 
user friendly operating systems, Micro-Systems 
Software introduces a whole new breed of 
DOSPLUS. Version 3.5 explores avenues of power 
and flexibility previously untouched in TRS-80 DOS'. 

DOSPLUS 3.5 is the last word in professionally 
crafted operating systems and combines un- 



limited power and flexibility with the same reliable 
and steady performance you have come to ex- 
pect from the name DOSPLUS. In short, DOSPLUS 
puts you in total control. From its parameter rich 
library, to the many and powerful utilities, to the 
full featured BASIC, DOSPLUS is THE system for the 
TRS-80 Model I or III. 

Priced at $149.95, DOSPLUS gives your micro- 
computer mainframe power without mainframe 
price. Order yours today and experience the 
power ...DOSPLUS! 



• DOSPLUS 3.5's total device Independence and completely external device struc- 
ture allow Interface to almost ANY kind of peripheral. Support Will, be given for 
hard disks, printers, and non-standard floppy drives. 

• In addition, DOSPLUS 3.5 offers many utilities including a menu driven user inter- 
face that allows file manipulation at the touch of a key, full file and disk editing 
utilities, and a Oirectory check utility with optional repair. Standard utilities let 
you map file locations, restore killed files, or offset file locations in memory. 

• DOSPLUS 3.5 also includes one of the best Disk BASIC interpreters available with 
any DOS. With exclusive features like controlled screen formatting and label ad- 



dressing. DOSPLUS BASIC puts you a step ahead. Single step debugging, global 
text editing, program cross referencing, and a multi key/multi array sort are ell 
standard. 

• The DOSPLUS 3.5 manual will set new standards in documentation. Almost 400 
pages of cleat easy reading text that will acquaint you with all areas of syste: c\ 
operation. The user's manual is written in English instead of "computerese" and 
is aimed at both the novice and the experienced user alike. The technical man- 
ual clearly documents every part of the system and will prove a gold mire 
to programmers seeking to interface with DOSPLUS. 
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MICRO-SYSTEMS SOFTWARE, INC. 

4301-18 Oak Circle, Boca Raton, Florida 33431, Telephone: (305) 983-3390 

Orders Only 1-800-327-8724 
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Percom Data Corporation has one hard disk drive system for just about ALL personal computers 

. . . including of course . . . IBM" -PC. APPLE" II, and TRS-80 ». Percom Data's innovations 

with 5'/4" Winchester technology mean that for most personal computers ... 

having a reliable hard disk system is as easy as hooking up a cable. 

A Percom Data PHD " will interface with your present system ... and your future system . . . 

so if you do change computers, you can still keep your most important investment . . 

your Percom Data Hard Disk Drive. 

Because Percom Data helped create the industry standards of today . . . new designs in software 

and hardware will make your selection of a Percom Data Hard Disk Drive pay off 

tomorrow through system compatibility. 

A Percom Data PHD works to capacity because we take the time to correctly develop interface 

software to your computer which leaves no performance holes for you to fall into. 

Percom Data knows software functionality is the key to hardware performance. 

Today, Percom Data PHD supports a variety of software to match your computer: 

IBM -PC, PC DOS s 1.1 OR 1.0 

CP/M-86% CONCURRENT CP/M-86 

APPLE', DOS 3.3, CP/M v 

TRS-80" MODELS III & I, DOPLUS, LDOS 

IMAGINE . . . Percom Data Winchester 5VV technology ... for today's computers . . . 

and tomorrow's. 

To receive an informational booklet describing Percom Hard Disk Systems, or to determine if we 

have a system for your computer call our 

Hard-Line Hot-Line at 1-800-527-1222. 

We will also give you the name of a nearby authorized Percom Data Dealer. 

Dealer inquiries are welcome. 
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The left bracket, [, replaces the up arrow used by Radio 
Shack to indicate exponentiation on our printouts. When 
entering programs published in 80 Micro, you should make 
this change. 

80 formats its program listings to run 64-characters 
wide, the way they look on your video screen. This ac- 
counts for the occasional wrap-around you will notice in 
our program listings. Don't let it throw you, particularly 
when entering assembly listings. 
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encouraged. Inquiries should be addressed to: Submis- 
sions Editor, 80 Pine Street, Peterborough, NH 03458 
Include an SASE for a copy of our writers' guidelines. Pay 
ment for accepted articles is made at a rate of approx 
imately $50 per printed page; all rights are purchased 
Authors of reviews should contact the Review Editor, 8C 
Pine Street, Peterborough, NH 03458. 
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tor "How to Write (or 80 Micro." 80 Micro is published monthly by 1001001 Inc., a subsidiary ol Wayne Green Inc. Entire contents -copyright 1983 Wayne Green Inc. No part ol this publication 
may be reprinted, or reproduced by any means, without prior written permission tram the publisher. All programs are published tor personal use only. All rights reserved. 
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by Wayne Green 



About a year ago there was a rash of 
new computer product introduc- 
tions. Within a few days I managed to 
get to the introduction of a Sony micro, 
two from Wang, and four from Digital 
Electronics Corp. (DEC). Each ex- 
pressed extravagant ideas about their ex- 
pected market share, yet when I tried to 
discuss marketing plans with their mar- 
keting people I found them surprisingly 
vague. Well, here wc are a good deal 
later and not very much has happened. 

The DEC people, when asked why 
they were so late with their personal 
computers, said (1) they weren't late 
and (2) they'd been too busy with other 
things. The president went on to say 
that half of the home computers were in 
the closet unused. Hmmm. DEC was 
thinking in terms of quickly producing 
100,000 of their personal computers 
and said they expected to get 20 percent 
of the market. They were very enthusi- 
astic about getting distribution through 
the Computerland stores, Hamilton 
Avnet, and the DEC stores. 

All of these computers, introduced 
with considerable hoopla, and all with 
high hopes on the part of the manufac- 
turers, have remained almost invisible 
in the desktop computer field. I doubt if 
any of them have even come close to 1 
percent of the market, much less 20 per- 
cent. Now what kind of an industry are 
we in where giant firms such as Sony, 
Wang, and DEC are unable to make a 
dent after a year? 

Well, with all due respect to both the 
desktop industry and to these large 
firms, the main problem, I suspect, was 
one of marketing. These big firms had 
good, experienced marketing people. . . 
but not people with experience in the 
desktop field. Adam Osborne, who 
grew up with the micro industry, under- 
stood the marketing of micros and 
quickly got his sales into the millions of 
dollars. If the marketing managers of 
these firms had brought in a consultant 
familiar with the micro field, they might 
have made an impression. But instead 
they tried to go ahead with marketing 
systems geared to minicomputers, not 
micros. 

When these large, well-endowed 
firms brought out their microcom- 
puters, I suspect there was a good deal 
of dung around the halls of the Tandy 
Towers, shaking off of alarmed cowboy 
boots. It was bad enough when IBM 
threw their Stetson into the ring, but 
6 • 80 Micro, August 1983 









Mini makers 

can't sell 
their micros 



with DEC in there too . . . and with a 
rapidly growing rash of DEC stores in 
malls . . . can little ole $2B-sales Tandy 
keep afloat? 

Fortunately for Tandy . . . and the 
rest of the microcomputer indus- 
try. . .the moguls at DEC, Wang, and 
Sony (among a lot of others) stuck firm- 
ly to traditional marketing strat- 
egies — traditional for the minicomputer 
field in the case of DEC and Wang, 
which meant lots of advertising in the 
magazines being read by data process- 
ing professionals. Talk about wasting 
money! Running ads where they are go- 
ing to be glimpsed and avoided like the 
plague by the group most fighting 
micros has to come under the heading 
of self-destruction. For the most part, 
DP managers have thought of micros as 
toys and have held them in disdain, 
refusing to give them more than a lip 
curl and sneer. The more adventurous 
executives have been sneaking their 



micros onto their desks at work, but 
they're not tied in with the company 
data-processing network. 

The DP-oriented magazines have 
been getting the brunt of the ad cam- 
paign, with the rest going to Business 
Week and so on. Yet when we look at 
surveys of this new industry, we find 
that DP professionals are not the big 
buyers of micros. What we find is that 
most people who go out and buy a mi- 
cro have checked with a friend who has 
one first, not with their MIS manager. 

And where do these friends get their 
information that they pass along to help 
guide purchases? You know as well as I 
that micro users are reading the micro 
magazines, not Computerworld, Com- 
puter Decisions, and so on. They're 
reading Personal Computing, Creative 
Computing, Microcomputing, 80 Mi- 
cro, and in Cider (to name a few.) So, 
while Apple and Tandy have been rack- 
ing up ever-growing sales, DEC has 
been closing its stores and looking sadly 
at Hamilton Avnet to see what went 
wrong. 

You're a micro user. Tell me, does a 
day go by when someone doesn't ask 
you for your advice on what micro they 
should buy? I know I'm asked a dozen 
times a day. Having never touched a 
DEC micro, it is unlikely that I am go- 
ing to be an enthusiastic booster. And 
having read virtually nothing about the 
DEC systems in the micro magazines, 
I'm likely to pass any thoughts about 
getting DEC micros off as a serious 
judgment error. Aren't these systems 
really just intelligent terminals designed 
to augment the larger DEC computers? 
No offense DEC, but your products are 
as invisible to me as they are to most of 
the readers of my magazines. 

When you multiply the expected 
100,000 computer sales times the cost 
per system, you're looking at some $500 
million in lost sales. With those kinds of 
numbers at stake, one would think that 
DEC could have eked out just a tad for 
a consultant to help them enter this new 
field. It isn't as if they hadn't seen what 
happened to the mainframe firms when 
they ignored the minicomputer firms a 
few years ago. Ah, history repeated. 

You know, when you consider the dif- 
ference in cost of advertising in maga- 
zines such as Time and the microcom- 
puter magazines (one ad in Time costs 
more than ads in almost all of the micro 
magazines combined and will probably 



That's what you get with the LNW80 Model 2- undoubtedly 
the most versatile, powerful and fully equipped microcomputer 
in its class today A machine so superior in concept and design, 
that it will define the standards of microcomputer performance 
for years to come. 

VERSATILITY 

The LNW80 2 performs wonders with the most complete 
library of software available to any microcomputer on the 
market today Every LNW80 2 comes complete with this 
outstanding library of Business Software. LNW SMALL BUS- 
INESS AND PROFESSIONAL ACCOUNTING SERIES™ 
General Ledger, Accounts Receivable, Accounts Payable, 
Payroll, ELECTRIC SPREADSHEET"; ELECTRIC PENCIL™ 
WORDPROCESSOR; MICROTERM™ MODEM PROGRAM; 
CHART EX™ HIGH RESOLUTION BUSINESS GRAPHICS 
CHARTING PROGRAM; CP/M 2.2 R ; DOSPLUS ™; LNW- 
BASIC™;MICROSOFT BASIC.™ In addition to a comprehensive 
line of LNW80 2 Software, it is also fully compatible with soft- 
ware from TRS80" (Models 1, 3,4), CP/M R and Cromemco" 
worlds — a capability which gives you access to the most 
extensive and mature libraries of business, scientific, engineer- 
ing and entertainment software applications. So no matter 
how far you expand into user applications, the LNW80 2 will 
expand right along with you. 

POWER 

The LNW80 2 performs miracles with the computing power 
of 96K RAM (standard) of user memory matched with a 
mass storage capability which handles 5J4" floppy disks and 
5%" hard disk drives. And while the unit comes with build-in 



controllers for 5%" and 8" floppy disks (single/double sided, 
single/double density, up to 4.5 Megabytes capacity), the 
LNW80 2 also gives you the unique ability to read and write 
diskettes from greater variety of other popular computers 
than does any other microcomputer. So regardless of how 
big you grow, you will never end up with thumb-twiddling 
down time while you expand to a more powerful system. The 
LNW80 2 will always have enough muscle to handle your 
biggest and toughest jobs. 

FULLY EQUIPPED 

The LNW80 2 was developed to anticipate the needs of both 
expansion and compatibility. So the computer was designed 
with enough built-in features to keep you from having to spend 
a small fortune as you move down the road to higher levels 
of user sophistication. Standard features include high and low 
resolution graphics in both color and black-and-white, an 
asynchronous serial communication channel, and a wide vari- 
ety of tape, printer, monitor and hardware expansion ports. 
In addition, the LNW80 2 contains an array of quality construc- 
tion features that fully justify its remarkable one-year limi- 
ted warranty. 

So if you're looking for a microcomputer that will satisfy your 
performance needs as you grow and develop, take a long, 
hard look at the LNW80 2. It's the one microcomputer built to 
meet the challenges of tomorrow— for a long time to come. 
For more information and the name of the dealer nearest you, 
write or telephone: 
LNW Computers 

2620 Walnut, Tustin, California 92680 
Telephone: 714/544-5744 < 31 
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Can your 



Sort? 



REMARKS 




Sort the rows 
or columns of a 

VisiCalc 
spread sheet. 

It can with VIS Bridge SORT from Solutions, Inc. 

The sorted spread sheet still 

contains all the formulas 

and values from the un- 

sorted original. Use up to 

4 additional keys to break 

ties or specify secondary 

sorts. Each key may be 

alpha or numeric and either 

ascending or descending. 

VIS\ Bridge/SORT is available for the Apple® II + and III, 

the IBM PC™ and the TRS-80® I, 11/12/16, and III. 

$89 plus $4 shipping and handling from Solutions, Inc. 

Order 802 229 0368. 97 College St., Box 989, Montpelier, VT 

05602. Mastercard and Visa. Dealer inquiries welcomed. 

Also available: VIS\ Bridge/REPORT™ for $79 and 

VIS\ Bridge/DI™ for $295. " 276 



All VIS/ Bridge products are trademarks ol Solutions Inc VisiCalc" is a trademark ol VisCorp TRS-I 
IBM PC" is a trademark ol IBM Cotp Apple • is a trademark ot Apple Computers Inc 



is a trademark ol fandy Corp 



result in a tiny fraction of the sales), the 
businessman who makes a computer- 
buying decision on the basis of an ad in 
Time is an idiot . . . and there is a short- 
age of idiots with enough money to buy 
computers. 

Not that minicomputer firms have a 
patent on throwing advertising money 
into the wrong corners. Old timers in 
the field may remember the wild adver- 
tising attack by something called The 
Last One. This was a program that was 
heralded as the last program one would 
ever have to buy. The outfit said they 
had $1 million to invest in ads. . .and 
judging from the splash in Time, 
Newsweek, and so on, they probably 
did indeed spend their $1 million. I 
wonder if they had any more success 
than Bridge Computer, who spent 
$50,000 in Byte and, as a result, sold 
three computers? One would guess that 
they didn't, if one were to judge from 
the visibility of the firm today . . . two 
years later. It would appear that the 
only winner there was the advertising 
agency that orchestrated the media 
attack . ■ 



C -Compiler for LDOS 5.1 

Integer subset with float via functions 
Standard I/O redirection 
Unix compa table standard library 
Sequential files with read, write, append 
Extensive installation library 
Generates Z-80 source as output 
Dynamic memory management 
Includes EDAS4.1 macroassembler 
Over 250 page reference manual 
S150+&5 S&h 

MISOSYS 

RO. BOX 4848 
ALEXANDRIA, VA. 22303 
703-960-2998 
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MICRO DATA SUPPLIES 

22295 Euclid Avenue Euclid, Ohio 44117 

FOR ORDERS ONLY CALL 1-800-321-3552 

IN OHIO and all other inquiries call (216) 481-4993 ,-u 




PLUS COMPATIBILITY WITH MOST 

SOFTWARE PACKAGES THAT 

SUPPORT LEADING PRINTERS AND 

A LIST PRICE WELL BELOW 

COMPARABLE, COMPETITIVE 

MODELS. . .CALL FOR QUOTES 



THE GEMINI SERIES- 
TRONOMICAL VALUE 



PRACTICAL PERIPHERALS 

MICROBUFFER™ IN-LINE 



FOR ALL COMPUTER/PRINTER 

OR COMPUTER/MODEM 

COMBINATIONS 

MICROBUFFER IN-LINE 

32K Parallel $289.00 

64K Parallel $339.00 

32K Serial $289.00 

64K Serial $339.00 

64K Memory 

Expansion Modules $169.00 

MICROBUFFER/E 

MBP-16K Parallel $149.00 

MBP-32K Parallel $189.00 

MBP-64K Parallel $269.00 

MBS-8K Serial $149.00 

MBS-16K Serial $169.00 

MBS-32K Serial $209.00 



ELECTRONIC PROTECTION 
DEVICES 

rhe PLUM -3-way EMI-RFI AC Power Line 

Noise Filter (wall outlet) .... $ 49.95 
The LEMON— 6-way Surge Suppressor for 

AC Power Lines (wall outlet) .$ 54.95 
The LIME— Same as LEMON w/5 ft. cord & 

on-off switch $ 79.95 

The PEACH— 6-way Surge Suppressor. 

EMI-BFI Line Filter (wall outlet)$ 89.95 
The ORANGE— Same as LIME w/EMI-RFI 

Filtering PLUM & LIME 

Combined $1129.95 

GRIZZLY 200—250 Watt Uninterruptable 

Power Supply (universal 

install.) $1495.00 

GRIZZLY 750—750 Watt Uninterruptable 

Power Supply (universal 

install) $1895.00 



GEMINI 10-15 are trademarks 
ol Star Micronics. TRS-80 is a 
trademark Of the Radio Shack 
Division of Tandy Corporation. 
DATALIFE is a trademark ot 
VERBATIM PLAIN JANE. 
PARAGON MAGNETICS are 
trademarks of MTC 
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DISKETTES 



MTC is now carrying its Paragon Gold'" 
Diskettes in both Single AND Double 
Sided, Soft AND Hard Sectored, all with 
reinforcement hub rings. Individually 
100% ERROR-FREE certified. Invest in 
GOLD! 

Paragon Plain Jane'" (1S.SD) . $19.95 
Paragon Plain Jane'" (1S.SD) 

Scorepac 1 " $38.95 

Paragon Gold (1S.DD) $23.95 

Paragon Gold (1S.DD) 

10 Sector $23.95 

Paragon Gold (1S.DD) 

Scorepac'" S46.95 

Paragon Gold (2S.DD) $29.95 

Paragon Gold (2S.DD) 

Scorepac'" $56.95 

BOOKS 

"OTHER MYSTERIES' 

TRS-80 DISK. $19.95 

Microsoft BASIC Decoded . . $24.95 

The Custom TRS-80 $28.95 

BASIC Faster & Better $29.95 

How to do it on the TRS-80 . $28.95 

DISK I/O Machine Language $29.95 

TRSDOS 2.3 Decoded $28.95 

1001 Things To Do with 

Your Personal Computer. . . .$7.95 



SUPPLIES 

5-1/4" File Box for 50 Disks .$24.95 
5-1/4" Plastic Library Case . . .$ 3.50 

5-1/4" Hub Ring Kit $10.95 

Refills (50 Hub Rings) $ 5.95 

5-1/4" HEAD Cleaning Kit ... $17.95 

8" File Box for 50 Disks $29.95 

8" Plastic Library Case $3.95 

MX-80 Ribbons $ 9.95 

MX-100 Ribbons $18.95 



MODEL l/lll SOFTWARE 

The Home Accountant 

(Mod. I ONLY) $ 74.95 

Newscript 7.0 $109.95 

Brevi-T (Mod I & III) $ 19.95 

Floppy Doctor & Memory Diagnostic 

Mod. I .$24.95 Mod. Ill .$29.95 
Electric Webster 

w/Correcting Feature $129.00 

Hyphenation Feature $ 49.95 

Grammatical Feature $ 39.95 

Complete System(4 features)$199.00 

Apparat's NEWDOS/80 V2 . . $139.00 

(Comes with MTC Que Card™) 

Electric Pencil V.ll (Disk) $ 79.95 

Electric Pencil V.ll (Tape) . . .$ 69.95 




ISN'T IT TIME YOU SCORED 
. . .WITH SCOREPAC!™ 

Get a SCORE of diskettes in a 
sturdy, new PAC and SAVE! MTC's 
innovative, unique packaging con- 
cept for diskettes offers the best 
value in magnetic media today. 

LIMITED TIME OFFER 

Buy ANY SCOREPAC™ at its 
regularly advertised price and you're 
entitled to purchase a 5 1 /4" File Box 
for the added cost of only $17.95.* 
-Limit 1 File Box per SCOREPAC™. 

SCOREPAC™ w/20 Paragon 

Plain Jane™ Diskettes 

1S/DD S38.95 

SCOREPAC™ 

w/20 Paragon Gold Diskettes 

1S/DD S46.95 

SCOREPAC™ 
w/20 Paragon Gold Diskettes 
2S/DD S56.95 



Verbatim 

PREMIUM DISKETTES 

AT AFFORDABLE 

PRICES 





■ CCTM 




VERBATIM DATALIFE" 
DISKETTES 

Seven data-shielding improvements 
mean greater durability and longer data 

VERBATIM DATALIFE v jyAv^Ha 

DISKETTES S^ 1 ^.^. £ 

5'A-inch (box of 10) jfcS?^^ t 

MD525-01 ~% *2>v«' ^ 

1S/D Den 

Soft-Sectored Diskettes 

5%" 2S/D Den (MD550-01) $39.95 

5%" 2S/4 Den (MD557-01) $51.50 

1S/D Den (FD34-8000) S43.95 



V/^ 



ik 



TO ORDER CALL 
1-800-321-3552 

IN OHIO 
AND ALl OTHER INQUIRIES 

(216) 481-4993 
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THRU 

August 31, 1983 
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Editorial: 

Send all correspondence to 80 Micro, Pine 
St., Peterborough, NH 03458. 
Subscriptions: 

Problems with Subscriptions: Send a 
description of the problem and your current 
and/or most recent address to: 80 Micro, 
Subscription Department, P.O. Box 981, 
Farmingdale, NY 11737. 
Change of Address: Send old label or copy 
of old address and new address to: 80 
Micro, P.O. Box 981, Farmingdale, NY 
11737. Please give eight weeks advance 
notice. 

Microfilm: This publication is available in 
microform from University Microfilms In- 
ternational. United States address: 300 
North Zeeb Road, Dept. P.R., Ann Arbor, 
Ml 48106. Foreign address: 18 Bedford 
Row, Dept. P.R., London, WC1R4EJ, 
England. 

Dealers: Contact Ginnie Boudrieau, Bulk 
Sales Manager, 80 Micro, Pine St., Peter- 
borough, NH 03458. (800) 343-0728. 



Igot pretty excited when 80 Micro 
asked me to write Proof Notes, since 
Rodney and Mercedes hog the Gamer's 
Cafe. Then I found out that it was for 
the games issue. Hey — I know some- 
thing about serious stuff, too. I even 
won a prize in high school for my paper, 
"The Cicada — Nature's Little Time 
Capsule." 

Of course, games can be pretty ser- 
ious business. Who among us has not 
felt the massive wave of depression 
that comes from missing a scoreboard 
by 10 points, the blind rage from a 
sneak attack by some sleazy little alien 
with no sense of morals or even eti- 
quette? And what about when you 
shoot a ship swooping down on you and 
it doesn't diet AND WHAT ABOUT 
WHEN THE MACHINE LOCKS UP 
JUST AS— 

Well. Suffice it to say that games are 
not all fun and games. 

But let's get philosophical for a mo- 
ment. What's so great about TRS-80 
games anyway? I mean, why would 
anyone want to play some stupid space 
shoot-em-up on a dinky black-and- 
white monitor with lousy graphics to 
boot when he could be cruising along on 
a sleek new Apple He or Atari 800? 

Yes, I wondered that myself once, 
when all my friends sneered at me and I 
only dared to play Galaxy Invasion in 
the bathroom after 3 a.m. But no more! 
I'm proud to be a TRS-80 gamer!! 
AND I'LL TAKE ON ANY MAN 
WHO— 

But no point in getting worked up 
here. I've made peace with my games. 
No longer am I ashamed of them. For 
in TRS-80 games I have found simplici- 
ty, and in that simplicity I have found 
the essence of computer gaming. 

Who needs all those splashy colors? 
What's so great about realistic high- 
resolution graphics? Why bother with 
state-of-the-art voice synthesis? These 
are but frilly trappings that obfuscate 
the basic (some might even say primor- 
dial) confrontation between man and 
machine. 



Mad Max on 

the meaning 

of games 



No matter what we call those objects 
on the screen, no matter what planet 
we're on or mythical foe we're fighting, 
are we doing anything more than trying 
to zap a bunch of phosphor blobs the 
computer is tossing at us? Isn't that 
what it's really all about? 

The TRS-80 gamer is a minimalist 
and a purist. He lets his imagination fill 
the blanks between the few broad 
strokes the computer paints with its 
luminescent brush. And in doing so, he 
becomes one with the game; in fact, he 
becomes the game, another ball on a 
binary billiard table that sits in an 
ephemeral pool hall on an ephemeral 
side street somewhere in a city that lies 
next to a river of dreams on a vibra- 
tional plane that cuts sharply through a 
region of time known only to — 

Hmmm. I've probably said enough 
(Mercedes thinks I've said enough when 
I say "Good morning"). Except to add 
that the games in this issue have been 
given the Gamer's Cafe Seal of Ap- 
proval, and we highly recommend them 
to you. (And not simply because the 
editors at 80 Micro have threatened to 
ax the Cafe if we don't.) Just remember 
the words of John Godfrey Saxe: 

In battle or business, whatever 

the game, 

In law or in love, it is ever the same; 

In the struggle for power, or the 

scramble for pelf, 

Let this be your motto — Rely on 

yourself! 

For, whether the prize be a ribbon or 

throne, 

The victor is he who can go it alone! 

Whatever pelf is. ■ 

— Mad Max 
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MICRO DATA SUPPLIES 

22295 Euclid Avenue Euclid, Ohio 44117 

FOR ORDERS ONLY CALL 1-800-321-3552 

IN OHIO and all other inquiries call (216) 481-4993 „i4 




AN IMPROVED VERSION of 

the WINNER of THREE 

80 MICRO READERS' CHOICE AWAR 

TheNEWAIDS-ll 

by SofT rends, Inc. 

1. TRUSTWORTHY. A bad diskette or an independable machine can ruin your 
whole day. The NEW AIDS-MI checks itself. If something's wrong, it tells you, in- 
stead of turning on you like a mad dog. 

2. GENEROUS. The NEW AIDS-MI doesn't use BASIC. But it does use the 
memory BASIC uses. And to make the most out of that extra memory, it selec- 
tively compresses bytes into tiny bits. It all adds up to more usable data records. 
Up to 3 times as many.* 

3. THOUGHTFUL. The NEW AIDS-MI never treats you harshly. If one keystroke 
will do, it won't ask for two. The NEW AIDS-MI remembers things like report for- 
mats, search strategies and file names. So you don't have to. It even reminds you, 
gently, to save your important data. 

4. INTELLIGENT. The NEW AIDS-MI is smart. It doesn't waste your time with 
questions about record sizes, field counts and other technical mumble-jumble. A 
new system can be created, or an old one modified, in a couple of minutes. Even 
if your name isn't Albert Einstein. 

5. KIND. The NEW AIDS-IM is always ready to help. It says so, on every screen 
display. HINTS™ (Help INdexed To Screen) tells you on which page in the NEW 
AIDS-MI manual to look for more information. The manual is easy to understand 
and easy on the eyes. 

6. QUIET. If you hit the wrong key, you won't hear any annoying buzzes, clicks 
or chirps. Instead, FLAWS™ (FLash-Annunciated Warning System) will create a 
striking visual effect. But only for an instant. And without affecting any of the 
text on the screen. Guaranteed to catch the eye of the fastest touch-typist. 

7. ALERT. If the NEW AIDS-IM is left alone, it lets you know it missed you. It wor- 
ries about your important data. After several minutes of no activity, the NEW 
AIDS-IM creates a striking visual display to get your attention. Touch any key to 
let it know you're still there, and it stops. For a little while, anyway. 

8. LEAN.There's no fat in the NEW AIDS-IM. That's because it uses SofTrends' 
proprietary PMX™ system architecture. Small, lightning-fast, reliable. Lean? 
Yes. Mean? Definitely not. 

9. FAST. Searches and sorts hundreds of records in seconds. Screens are 
displayed in the blink of an eye. Disk access rates approach one-thousand char- 
acters per second. No waiting for "garbage collection". The NEW AIDS-IM lives 
fast. Up to 10 times as fast.* 

10. REASONABLE.Use AIDS III Version 2.0 to help make your choice. If 
you've got a TRS 80 Modell I or III, send us $79.95 and we'll send you a copy 
of AIDS III to use free for 30 days. Then if you find it isn't right for you, send 
it back and we'll refund your money, no questions asked. 

* As compared to MTC AIDS-III, Version 1.0 

Specify Model I or Model III $ 79.95 

CALCS-IV ONLY $20 when purchased with AIDS-lll/Version 2.0! 
Specify Model I or Model III $39.95 



FLOPPY 
£2 CT 0R 



NEWDOS/80 
IVerson 2.0 lyt&m 

ModellandModeTtil 

The hottest Disk Operating System is now 
available in its latest verson. This is the ONE 
from Apparat. Inc., the people whose systems 
have made the TRS-80 the reliable computer. 

$139.95 



NEWSCRIPT 7.0 

NEWSCRIPT is the versatile TRS-80 word 
processing program. It supports "smart" 
printers like the Epson. Okidata, NEC, C.ltoh, 
Spinwriter. Centronics 739 and more 

NEWSCRIPT . . . $109.95 



If you own Apparatus 

NEWDOS/80-Version 2.0 

you need 

BREVI-T™ 

by SofTrends, Inc. 

If you have trouble remembering command for- 
mats, want to simplify use of DOS, do a lot of 
program development or just want to be more 
effective with your TRS-80™. then BREVI-T is 
for you. Abbreviations can be defined for both 
DOS and BASIC. These are automatically ex- 
panded as part of the command line pro- 
cessor. Optionally, parameters may be defined 
as part of an abbreviation. For example, "F 1 " 
might be used to FORMAT drive 1 . Change the 
1 to a 2 and FORMAT drive 2. It's that simple. 
Complete with easy-to-follow instructions, ex- 
amples and a sample abbreviation file. 

Specify Model I or Model III $19.95 



[Let your TRS-80™ Test Itself With 

ItHE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 

by David Stambaugh 

A complete checkup for your MODEL I or 
MODEL III. THE FLOPPY DOCTOR-Version 3 
completely checks every sector of single or 
double density 35-. 40-. 77-. or 80-track disk 
drives. Tests motor speed, head positioning, 
controller functions, status bits and provides 
complete error logging. THE MEMORY 
DIAGNOSTIC checks for proper write/read, 
refresh, executability and exclusivity of all ad- 
dress locations. Includes both diagnostics and 
complete instruction manual. 

SYSTEM DIAGNOSTICS $24.95 
For MODEL III $29.95 



TRS-80 is a trademark of the 
Radio Shack Division of Tandy 

Corporation. VisiCalc is a 

trademark of Visi Corp. PLAIN 

JANE. AIDS-I, AIDS-III, CALCS-III 

CALCS IV. MERGE III are 

trademarks of MTC. 



TO ORDER CALL 

1-800-321-3552 

IN OHIO 

AND ALL OTHER INQUIRIES 

(216) 481-4993 
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Add $3.00 for shipping 
& handling. 
|» $2.00 EXTRA for U.S. 
Mail delivery. 
$6.00 EXTRA for C.O.D. 
Ohio residents add 6.5% 
sales tax. 
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•MONEY ORDERS 
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Corvus Absolved 

NEWDOS80 2.0 for the Model III 
does work in concert with the Corvus 
hard disk environment and the Radio 
Shack accounting software (80 Micro, 
May 1983, p. 18). 

Model III accounting packages are 
written in Basic. When you load and list 
the programs, you see that the authors 
have assigned drive numbers to the var- 
ious file names used throughout each 
program disk. 




Simply edit and change the drive 
numbers to the slot number on which 
you plan to mount the program and 
data files. Then save the programs with 
the correct file names. 



640 I=1:ML=0:CL=32:CH=LU 

1260 Q=578+LEN(NF$(SF) ) :FL=FNLF(SF) :ML=1 : FV$= n " :RJ= (FL ( SF) >0) :NE 
=NOT RJ: FD=FD(SF) : Cb= j2 : CH=LU : GOSUB120 : SV=FV$ 
193 ' CHECK MODEL TYPE & DO SETUP FOR LOWERCASE USE 
1935 IF PEEK(4)=48 THEN POKE 16412,1: POKE 16419,95: LU=122 ELSE 
LU=PEEK(15360) : POKE 15360,120: IF PEEK (15360) O120 THEN POKE 1 
5360, LU: LU=90 ELSE POKE 15360, LU: LU=122 

Program Listing 1. AIDS-III 



3840 Q=578+LEN(NF$(SF) ) :FL=FNLF(SF) :ML=1 : FV$=" " :RJ= ( FL(SF) >0) :NE 

=NOT RJ:FD=FD(SF) :CL=J2 :CH=LU:GOSUB800 : SV$=FV$ 

9515 Q=7 6 8 : FL=HS-1 : HL=0 : FV$=" " : CL=J2 : CH=LU :GOSUB80 

13500 ' CHECK MODEL TYPE & DO SETUP FOR LOWERCASE USE 

13510 IF PEEK(4)=48 THEN POKE 16412,1: POKE 16419,95: LU=122 ELS 

E LU=PEEK(15360) : POKE 15360,120: IF PEEK ( 15360) <>120 THEN POKE 

15360, LU: LU = 90 ELSE POKE 15360, LU: LU=122 

Program Listing 2. MAPS-/// 



135 ' CHECK MODEL TYPE & DO SETUP FOR LOWERCASE USE 

13510 IF PEEK(4)=48 THEN POKE 16412,1: POKE 16419,95: LU=122 ELS 

E LU=PEEK(15360) : POKE 15360,120: IF PEEK ( 15360) O120 THEN POKE 

15360, LU: LU=90 ELSE POKE 15360, LU: LU=122 

15272 Q=659:FL=NS+5:ML=0:CL=32:CH=LU:FV$=NF$(24) :GOSUB800: ON IC 

GOTO 15200,15 27 5,14500,16000,15200 
15282 Q=723:FL=NS+5:ML=0:CL=32:CH=LU:FV$=NF$(25) :GOSUB800: ON IC 

GOTO 15 27 0,15285,14500,16000,15200 
15292 Q=787:ir'L=NS+5:ML=0:CL=32:CH=LU:FV$=NF$(26) :GOSUB800: ON IC 

GOTO 15280,15 295,14500,16000,15 200 
15310 Q=896:FL=HS-1:ML=0:FV$=LEFT$(PT$,FL) : CL=32 :CH=LU:GOSUB800 
56140 Q=57b+LEN(NF$(SF) ) :FL=FNSZ(SF) :ML=1 : FV$=" n :RJ= (FL (SF) >0:NE 
=NOT RJ:FD=FD(SF) : CL=32 :CH=LU :GOSUB800 :SV$=FV$ 



Program !..^img i. C i/XS /// 



10072 ' CHECK MODEL TYPE & DO SETUP 

10074 IF PEEK(4)=48 THEN POKE 16412,1: POKE 16419,95; 

Program Listing 4. MERGE-IH 



=MOD 3 



In addition, the programs and data 
files seem to fit on one formatted 
40-track double-density volume. If you 
use slot 1 solely for each program and 
its accompanying data files, you can 
FCOPY >:1 :1 for easy back-up. 

Albert A. Livingstone II 

Consultant 

8001 West Belmont Ave. 

River Grove, IL 60171 



Better AIDS-III 

Program Listings 1, 2, 3, and 4 are 
modifications to my AIDS-III articles 
(80 Micro, March 1983 and April 1983, 
pp. 136 and 168). The listings include 
modified and additional lines. 

The changes provide automatic rec- 
ognition of model number (I or III), 
and the detection and use of lowercase 
support. 

Robert A, Fiorelli 

So/Trends Inc. 

26111 Brush Ave. 

Euclid, OH 44132 



FLEX Information 

You can obtain further information 
about FLEX for the Color Computer 
(80 Micro, April 1983, p. 144) from 
Data-Comp Inc., 5900 Cassandra Smith 
Road, Hixson, TN 37343, 615-842-4600. 

Source code text files are available 
for the following utilities: high-res- 
olution video routines, a program to set 
user-defined keyboard characters, a 
program to set disk-drive stepping rates, 
a single-disk copy program, FLEX 
printer drivers, and disk and memory 
display/change utilities. 

My article described a version of 
FLEX that has since been replaced by 
version 2.1. Additional FLEX utilities 
perform several new functions: copy 
Disk Basic format files to FLEX format 
files (includes ASCII and binary files), 
copy FLEX format fields to Disk Basic 
format files (includes ASCII and binary 
files), and convert binary files to stan- 
dard FLEX-loadable program data files. 

Manufacturers are introducing sev- 
eral new software packages for FLEX 
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MODEL I 



MODEL III 






TIME w/o^ExpTJnt 




Wouldn't it be nice if your computer 
could always boot up with the right time 
and date and then stay accurate. New- 
clock-80 will enhance your Model I or III 
system with powerful clock/calendar/timer 
functions. 



Using LSI (large scale integration) and 
custom circuits, Newclock-80 provides 
MO/DATE/YR, HR:MN:SECplus 
AM/PM and day of week and even takes 
care of leap years! It continues to keep time 
and date with quartz accuracy when the 
computer is turned off or experiences a 
power failure. A single battery lasts over 2 
years. 

Compatibility: Newclock-80 is 
compatible with any operating system, 
including DOSPLUS, NEWDOS, LDOS. 
With its fully decoded circuitry it will work 
with any other hardware you may own. 
Bus expanders are available. 



Installation is very simple, no tools, no 
disassembly, no soldering. Just plug it in, 
that's all. There is no power supply or 
messy cable. Newclock-80 plugs into the 
rear of the keyboard © or side of the Exp. 
Int. ©. Model III Newclock fits the 50 pin 
card edge (underneath) Q 

The Software: Newclock-80 is as easy to 
use as it is to install. -"SET", a Basic 
program, is used only once to set the time 
and date and select 12 or 24 hour format. 
-"TIMESTR", also in Basic, patches your 
computer "TIMES" function to read 
Newclock-80. It also adds "TIMES" to 
keyboard-only systems, a short routine is 
simply "poked" into low memory. 

Newclock-80 uses 12 ports (176 to 188) : 
6 for the time, 6 for the date. The data is 
conveniently stored in decimal form, no 
conversion is needed. You can read or 
modify any digit using simple Basic "INP" 
and "OUT" statements. 



No risk trial. Order your Newclock-80 
today, see how easy it is to install and 
operate then decide within 30 days if you 
want to keep it. If for any reason you are 
not delighted with its quality and 
performance, you may return it for a 
prompt and courteous refund. 

Your unit will come complete © with 
software on tape, detailed instructions, 
handy reference card, and a 90 day 
warranty. Specify Model I or III. Software is 
also available on disk: add $5. 
Lithium battery (not included) available 
from RADIO-SHACK (#23-162) or add 
$1.50 to your order. 
Thanks to outstanding engineering and 
efficient manufacturing, ALPHA Products 
is once again able to offer a great product at 
a surprising price. Order your Newclock-80 
at no obligation today. 

Toll Free Order 



800-221-0916 

Orders Only, NY & Into call (212) 296-5916. Hours: 9-5 E.S.T. 




79-04 Jamaica Ave., Woodhaven, NY 11421 ^ 17 (212) 296-5916 



ADD $2.50 PER ORDER FOR SHIPPING AND HANDLING. 
WE ACCEPT VISA. MASTERCARD. CHECKS, MO 
COD ADD $3.00 EXTRA. ^^ 
NY RESIDENTS ADD SALES TAX. 'fl r^^i 
OVERSEAS. FPO,APO. ADD 10%. 1^^ MM 
DEALER DISCOUNTS AVAILABLE 





INPUT 



that run within the 51 by 24 screen 
limitations. Contact Data-Comp for 
further information. 

Steve Odneal 

8609 East 73rd St. 

Kansas City, MO 64133 

PowerSoft Support 

Hooray for PowerSoft. They said it 
all. They said it well. And it needed to 
be said {80 Micro, April 1983, p. 24). 

The freeloaders of the world deny 
creative people their right to make a 
buck. PowerSoft's superb defense of 
copy protection should put this matter 
to rest once and for all. 

Frank J. Rosato 

12 Blueberry Lane 

Lexington, MA 02173 



VCMOD Mod 

Arne Rohde's VCMOD program (80 
Micro, April 1983, p. 210) contains one 
bug that occurs if you use the exponen- 
tial function (shifted @) in an equation. 

The correction requires adding three 
lines to the Assembly-language pro- 
gram before assembling (or, if you're a 
byte zapper, adding 6 bytes to the object 
code in the middle of the program, 
which could mean retyping the last 
half). Between lines 1850 and 1860 of 
the original program, add: 



1852 


CP 


5BH 


1854 


JR 


NZ,$ + 4 


1856 


ADD 


A,05H 



If you must work at the byte level, 
add the bytes starting at address FF5C 
hexadecimal (hex) using Mr. Rohde's 
ORG location of FE00 hex for a 48K 
Model I machine: 



Location 

FF5C 
FF5E 
FF60 



Bytes 

FE5B 

2002 

C605 



You must increase all subsequent loca- 
tions by six. 

To run VCMOD, assemble it and 
name it VCMOD/CMD. Then save it on 
the same disk that contains VC/CMD. 
To run VisiCalc, type in VCMOD/CMD 
or VCMOD (or use autostart with 
AUTO VCMOD) rather than entering 
VC/CMD or VC (or AUTO VQ. 
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The VCMOD program starts by 
loading in VC/CMD (or whatever 
you've named the original VisiCalc pro- 
gram — don't forget to modify line 0480 
if you change the name), then modifies 
the VisiCalc code and runs it. 

L.S. Wilkins 

4000 Capitol Drive 

Fort Collins, CO 80526 



Copyrights and Conversions 

We are in the software business and 
have gone to great lengths to copyright 
our programs. Admittedly, the copy- 
right only stops honest people from 
stealing a program, but comments like 
yours (80 Micro, April 1983, p. 16) give 
thousands of people the idea that they 
are honest if they use a copyrighted pro- 
gram for their "personal use." 

I'm sure you meant well by your 
comments, but the term "personal use" 
is simply too broad. Too many well- 
meaning readers will take this as a sub- 
tle license to copy any and all programs. 
We provide our source code at no extra 
cost to our customers, but we do not 
want them to give it to their friends for 
"personal use." 

Eddie Waren, President 

The Software Terminal 

223 Fairway Drive 

Fayetteville, NC 28305 

You're right — "personal use" is a bit 
vague. What we meant is that the con- 
sumer has a right to duplicate or modify 
commercial software as long as he or 
she doesn 't sell or give away copies of 
that software to other users. — Eds. 



WittSoft and Copy Protection 

I'd like to respond to some of Power- 
Soft's statements directed at WittSoft 
(80 Micro, April 1983, p. 24). 

PowerSoft says, "... due to the fact 
that some magazines, companies, and 
individuals are making it possible for 
nonregistered users (read pirates) to use 
our software, supporting registered 
owners has been hampered." 

The Super Utility Plus manual says 
registration has always been a require- 
ment for support; section 3.2 states, 
"We will do our best to assist and sup- 
port all REGISTERED OWNERS, so 
be sure and include your SERIAL 
number." 



The card that customers sign and re- 
turn to PowerSoft to receive support is 
a legal agreement that binds the user to 
conditions not revealed prior to the pur- 
chase. Refusing to sign and return such 
an agreement doesn't make one a 
pirate. 

On SU + as a CMD file, PowerSoft 
says, " . . .if you are using single densi- 
ty, you don't have much room left for 
anything else. This makes it impractical 
to have SU+ as a CMD file." There's 
no reason the CMD file can't be kept on 
a data disk when space is a problem, 
and many users have double-density, 
double-sided, or 80- track drives. 

When the program is in CMD for- 
mat, users can store it on any medium 
they like. PowerSoft distributes the 
$500 Special Edition in CMD format on 
a single-density data disk, and makes 
that the number one selling point in 
their S/E ad (80 Micro, Anniversary- 
Issue 1983, p. 153). 

The PowerSoft response might lead 
one to think that Super Duper is a 
"1-byte patch (with directions)." It is 
not. It is a 500-plus byte machine-lan- 
guage program provided on disk with a 
16-page manual. 

Regarding Scripsit back-up patch 
authors, PowerSoft says, ". . .they are 
looking to make a quick buck and deny 
good programmers the royalties they 
are due. . . . The guy who wrote Scripsit 
deserves to be paid for every copy out 
there that is being used. ..." 

Apparently the concern for the 
author of Scripsit is newly acquired. 
The PowerSoft ad for Scriplus (80 
Micro, January 1983, p. 249) says, 
"Allows MOD III versions to be 
BACKED UP for your protection." 

Concerning utilities to back up SU + 
2.2z, PowerSoft says, "If you bought 
one, send it back. Only these pirates 
have a need for it now." Only after 
WittSoft released a utility to back up 
version 2.2z did PowerSoft find enough 
concern for their customers to release 
CMD back-up instructions. 

Those who buy Super Duper receive 
a program that performs as advertised. 
PowerSoft specifically exempts version 
3.0 from their offer, whereas we've 
agreed to provide an upgrade when the 
new version is available. 

Regarding the back-up disk included 
with the program, PowerSoft says, 
" . . . it is doubtful that you will be with- 
out SU + . Of course, that wasn't good 
enough for WittSoft. ..." 
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SIZER 

,iii,iv 

-™ __ and Coco 

^Unlimited vocabulary. 

[^Automatic inflection. 

gProven VOTRAX technology. 

E We use the famous VOTRAX SC01 phoneme 

synthesizer. 4 programable pitch level, 
ffl Built in audio amplifier with volume control. 

(The Color Computer version speaks 

through the TV speaker) 
EYou can add voice to any basic program in 

minutes. 
i^Super efficient: one single line in Basic will 

produce a full sentence! 
HWorks with any speaker (or add $5.95 for 

handsome speaker module). 
l?I Price breakthrough: same performance as 
, units costing hundreds of dollars. 
[^Pronunciation dictionary included for hun- 
dreds of common words. 
fflVoice editor will help you create unlimited 

number of words, sound effects, etc.. 
HHundreds of applications —now cost 

effective in education, robotics, speech 

therapy, monitoring, games, aid to handi- 
capped, security, prompting... . 
S^Fully assembled and tested, 

90-Day warranty. 
[^ Ready to plug in and talk. 
2fAs usual our 15-day money back guaranty 

protects you. 

phH (,()N FS T ■■■■■■■* 

WIN $1000 4- ROYALTIES FOR THE BEST TALKING GAME 

+ WIN $1000 FOR THE BEST "SERIOUS APPLICATION" SOFTWARE 

Send S.A.S.E. For contest details. 




Order #C201 for MODEL I 

C203 for MODEL III or IV 
C205 for COLOR COMPUTER 

Price includes SYNTHESIZER MODULE, 
POWER SUPPLY, INSTRUCTIONS, 
EDITING AND DEMO SOFTWARE. $69.95 
SPEAKER MODULE (not needed for coco 
version) not included,add $5.95 



REVIEWERS: This is truly a remarkable 
product at an incredible price. We need your 
help to review it in all the major computer 
publications. Please send us a note if you 
are interested. 



TIMEX SINCLAIR USERS: 
There is a version for you. 

Toll Free Order Line CF =^ 

800 -221 -0916 &> 

OrdersOnly, NY I, Into call (212) 296-5916. Hours: 9-5 E.S.T. 



Votrax is a registi 



l 




CLUBS: Contact us at (212 296 5916) if you would like to arrange for a product presentation. 
79-04 Jamaica Ave., Woodhaven, NY 11421 „ 17 ©[21 2) 296-5916 



ADD $2.50 PER ORDER FOR SHIPPING AND HANDLING 

WE ACCEPT VISA. MASTERCARD, CHECKS, M.O. 

COD. ADD $3.00 EXTRA, 

NY RESIDENTS ADD SALES TAX. 

OVERSEAS, FPO, APO: ADD 10%. 

DEALER DISCOUNTS AVAILABLE. 
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We feel that every program requires 
at least four copies (original, virgin 
back-up, working version, and working 
version back-up). When any of these 
crashes, the user should have a way to 
generate a replacement. The issue is not 
whether one would be without SU + ; 
it's having to pay for back-up disks over 
and over again. 

About WittSoft, PowerSoft says, 
"Perhaps they should be made aware 
that every back-up and/ or CMD file of 
SU + contains the serial number of the 
purchaser." We do know about it and 
could have erased it if we'd wanted to. 
Like PowerSoft, we don't want to be in- 
cluded in categories where we don't 
belong. 

Our letter in the February 1983 issue 
of 80 Micro (p. 14) was an edited ver- 
sion of the introduction to the Super 
Duper manual. One passage removed 
read, "Use Super Duper only to back 
up your legally obtained copy of 
SU + . . . Kim Watt deserves to be paid 
for his work." 

PowerSoft says, "We challenge you 
to show us one ad that brags about 
backing up protected disks." The Jan- 
uary 1982 issue of 80 Micro (p. 153) 
contains a full-page ad for SU + . Under 
the heading "Disk Copy" appears, 
"The Special Disk Copy enables the 
user to make a back-up of most TRS-80 
readable disks that are presently on the 
market, regardless of any efforts that 
have been made to protect them." 

The response also says, "It was in- 
tended to copy garbled disks .... It was 
not designed to be a game-disk 
copier . . . although you perhaps bought 
it for that purpose." The same ad con- 
tinues with "This program's only in- 
tended use is for you to make back-ups 
of your legally purchased programs." 



PowerSoft says, "We have never 
highlighted our special copy function in 
SU+." However, similar text appears 
on the back cover and in section 1 .3 of 
the version 2.2z manual. 

Last, PowerSoft says, "Magazines 
must take a stand somewhere and stick 
to it." Magazines (and all forms of me- 
dia) have a responsibility to serve the 
public in article, editorial, and advertis- 
ing content. If they limit any copy util- 
ity, they should limit all copy utili- 
ties — including Super Utility Plus. 

80 Micro raised an important issue 
and gave all parties a chance to air their 
opinions. This isn't an indication of 
"ambivalence," but evidence of the 
magazine allowing a free exchange of 
ideas and an unbiased marketplace for 
computer products. 

Jean Witt 

WittSoft 

1302-4 1st St. 

Orlando, FL 32805 



Page Program 

In "Moving Window" (80 Micro, 
April 1983, p. 296), Ken M. Williams 
resorts to a complicated string manip- 
ulation procedure to extract the pattern 
of bits corresponding to the binary 
equivalent of the page number. 

A simpler technique for displaying a 
desired page takes advantage of the log- 
ical AND operation to extract bits. To 
extract the ith-order bit from an integer 
X, use the statement B = SGN(N AND 
X), where N equals the ith power of 
two. The subroutine in Program Listing 
5 illustrates the technique; the desired 
page number (zero to 127) stored in the 
variable PG calls the routine. 

The display for PG>31 is hardware 



100 'Subroutine to display a memory page (0-127) given by 

PG 

110 N = 1 N will equal 

1,2,4,8,16,32,64 for bits 

0-6 
120 FOR M=&HFFC6 to &HFFD2 STEP 2 7 address pairs in 

page-select register 
130 B = SGN(N AND PG) Extract a bit from PG 

140 POKE M+B,0 Poke it into page-select 

register 
150 N = 2 * N Get ready for next higher 

bit 
160 NEXT M 
170 RETURN 

Program Listing 5 



dependent. If you have a 16K machine, 
or 32K via piggybacking 16K chips, 
pages 32-63, corresponding to ad- 
dresses 4000-7FFF hexadecimal (hex), 
will not produce a stable display with- 
out special hardware modifications. 
RAM does not go higher than 3FFF hex 
in a 16K machine in any case. Pages 64- 
127 will be a repeat of pageszero to 63. 
If you have a stock 32K machine 
containing 64K chips that are only half 
used, pages zero to 127 will be stable 
and distinct. 

Arthur J. Flexser 

11111 N. Kendall Drive 

Miami, FL 33176 



Tandy Technology 

As an advocate of computer tech- 
nology, I cringe every time I enter a 
Radio Shack store. I fail to understand 
why Tandy is trying to sell computer 
technology at one end of their store, 
while they use a manual cash register. 

It seems worthwhile for Tandy to use 
their computers in their check-out pro- 
cess, if for no other reason than to ex- 
hibit a working computer. 

The stores I've visited would turn off 
any small-business owner that might be 
interested in using a computer when he 
sees that Tandy cannot even develop a 
system for its own use. 

Charles E. Austin 

Route One, Box 105 B 

Flat Rock, AL 35966 



Scripsit for LDOS 

To patch Scripsit for use under 
LDOS Double Density, implement the 
following patches: 

PATCH SCRIPSIT/LC (D13.E5 = 2D 40) 
PATCH SCRIPSIT/LC (D06,4F = "LDOS") 

The first patch changes the exit address 
from a reset causing a reboot to the 
LDOS Ready mode. The second patch 
changes the version from "VER 1 .0" to 
"VER.LDOS". This is an optional cos- 
metic change. 

Do not use high-memory routines 
with Scripsit under LDOS. 

Terry I. Major 

7614 N. 48th Ave. 

Glendale, AZ 85301 
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NOW MODEL I AND MODEL III ! 



Now Model III users can take advantage of the ALPHA I/O system too. Our new 
MOD III/I BUS CONVERTER allows most port based Model I accessories (such as 
our ANALOG-80, INTERFACER 2 and INTERFACER-80) to connect to the Model III 
bus. MOD III/I BUS CONVERTER, complete with all connectors, only $39,95. 




ANALOG-80: A WORLD OF NEW APPLICATIONS POSSIBLE. 
8 DIGITAL MULTIMETERS PLUGGED INTO YOUR TRS-80" 1 
Measure Temperature. Voltage, Current. Light. Pressure etc 
Very easy to use lor example, let's read input channel #4 10 
OUT 4 Selects input #4 and also starts the conversion 20 
A = INP(O) Puts the result in variable A Voila 1 
Specifications Input range 0-5V lo 0-500V Each channel 
can be set to a different scale 

Resolution 20mV (on 5V range) Accuracy 8 bits (.5%) Port 
Address lumper selectable Plugs into keyboard bus or E/l 
(screen printer port) Assembled and tested 90 day warranty 
Complete with power supply, connector, manual $139 



f SPECIAL THIS MONTH!; 



$8 9 - 5 



DISK DRIVE EXTENDER CABLE, FREE YOUR MINI-DRIVES. 

End the daisy-chain mess once and for all. Fits all mini- 
drives: Percom. Aerocomp. Shugart. Micropolis, MTI. Vista, 
Pertec. Siemens, BASF. East to install: just remove the drive 
cover, plug in the EXTENDER CABLE and replace the cover. 

Now you can change and move your drives without dis- 
assembly Keep the cover on and the dust out. High reliability 
gold plated contacts, computer grade 34 conductor cable. 
Tested and guaranteed. 

Get one for each drive ONLY $8,95 



^ 40P ^ 8 ' j F CABLES 

©£ID 34Ph,42- ra ra 

E3 34Pm,54- ra ra ra ra 

os 34«>h,2rt. r> 

© c^D 34 Ptn, 4ft D> 



©S 



40 P%\ 2 or 4 ft 



9- 



SUPERIOR QUALITY REPLACEMENT & EXTENSION CABLES 

Highest quality cable and high force, gold plated contacts 
ensure the utmost in connection reliability 

O KEYBOARD TO EXPANSION INTERFACE $21 

© DISK DRIVE CABLE FOR 1 OR 2 DRIVES $32. 

DISK DRIVE CABLE FOR 3 OR 4 DRIVES $45 

© DISK DRIVE CABLE EXTENDER $22 

© PRINTER CABLE EXTENDER $24 

40 PIN BUS EXTENDER -2 ft. ..$22 4ft. ..$24 

Custom cable configurations are also available. Call us 




TlMEDATE 80. REAL-TIME CLOCK/CALENDAR MODULE 

Keeps quartz accurate time lor 3 years on 2 replaceable 
AAA batteries (not included! Gives MO/DATE/YR. DAY of 
WEEK. HR MIN SEC and AM/PM Features INTELLIGENT 
CALENDAR and even provides for Leap Year This compact 
module simply plugs into rear of Keyboard or side ot 
Expansion Interlace imay be slipped inside E/li Includes 
cassette software for setting clock and patching lo any DOS 
(including NEWDOS 80. 2 0) Optional "Y" connector allows 
for further expansion For Model I Fully assembled and 
lesled Complete with instructions and cassette ONLY 
$95 00 "Y 'option add $12 00 




INTERFACER-80 the most powertul Sense/Control module 
• 8 industrial grade relays, single pole double throw isolated 
contacts 2 Amp @ 125 Volts TTL latched outputs are also 
accessible to drive external solid state relays 
•8 convenieni LEDs constantly display the relay slates. 
Simple "OUT" commands (in basic) control the 8 relays 
.8 optically-isolated inputs for easy direct interfacing to 
external switches photocells, keypads sensors, etc. 
Simple "INP" commands read the status ol Ihe 8 inputs 
Selectable port address. Clean, compact enclosed design 
Assembled, tested. 90 days warranty Price includes power 
supply, cable connector, superb users manual $159 




YOU ASKED FOR IT: "EXPANDABUS" XI. X2, X3 AND X4. 

CONNECT ALL YOUR TRS-80 OEVICES SIMULTANEOUSLY 
on the 40 pin TRS-80 bus. Any device that normally plugs 
into the keyboard edge connector will also plug into the 
"EXPANDABUS" The X4 is shown with protective 
covers (included). The TRS-80 keyboard contains the bus 
drivers (74LS367) for up to 20 devices, more than you will 
ever need Using the E/l . it plugs either between KB and E/l 
or in the Screen Printer port Professional quality gold 
plated contacts Computer grade 40 conductor ribbon cable 
X2..$29 X3...$44 X4...S59. X5 $74 

Custom configurations are also available, call us 



GREEN SCREEN 

WARNING 

IBM and all the biggies' are using green screen monitors 

its advantages are now widely advertised We leel that every 

TRS-80 user should enjoy the benefits it provides But 

WARNING: all Green Screens are not created equal Here is 

what we found 

•Several are |ust a flat piece ol siandard colored Lucite The 

green tint was not made lor this purpose and is |udged by 

many to be too dark Increasing the brightness control will 

result in a fuzzy display 

•Some are simply a piece ol thin plastic film taped onto a 

cardboard frame The color is satisfactory but the wobbly turn 

gives it a poor appearance. 

•One "optical filter'" is in fact plain acrylic sheeting 

•False claim A tew pretend to reduce glare'' In lad. their 

flaHmd shiny surfaces (both film and Lucite type) ADD their 

own reflections to the screen. 

•A few laughs: One ad claims to "reduce screen contrast' 

Sorry gentleman but it's just the opposite. One ol the Green 

Screen's maior benefits is to increase Ihe contrast between 

Ihe text and the background. 

•Drawbacks: Most are using adhesive strips to lasten their 

screen lo the monitor. This method makes it awkward to 

remove (or necessary periodical cleaning All (except ours) 

are flat. Light pens will not work reliably because of the big 

gap between the screen and the tube. 

Many companies have been manufacturing video filters for 

years We are not the first (some think they are), but we have 

done our homework and we think we manulacture the best 

Green Screen. Here is why 

•It fits right onto Ihe picture tube like a skin because it is the 

only CURVED screen MOLDED exactly to the picture tube 

curvature It is Cut precisely to cover ihe exposed area of the 

picture tube The fit is sucn that the static electricity is 

sufficient to keep it in place! We also include some invisible 

reusable tape lor a more secure tastemng 

•The filter material thai we use is |ust right, not too dark nor 

too light. The result is a really eye pleasing display 

We are so sure that you will never take your Green screen off 

that we offer an unconditional money-back guaraniy try our 

Green Screen for 14 days II lor any reason you are not 

delighted with it return it lor a prompt refund 

A last word We think that companies, like ours, who are 

selling mainly by mail should :»list their street address»have a 

phone number (for questions and orders )»accept COOs. not 

every one likes lo send checks lo a PO box«olfer Ihe 

convenience ol charging their purchase lo major credit cards 

How come we are Ihe only green screen people doing it' 

Order your ALPHA GREEN SCREEN today $1 2 50 



Mb ALPHA Products 



ADD S2.50 PER ORDER FOR SHIPPING AND HANDLING 

ALL ORDERS SHIPPED FIRST CLASS MAIL 

WE ACCEPT VISA MASTER CHARGE CHECKS M 

COD A0DS2 00 EXTRA 

OUANTITY DISCOUNTS AVAILABLE ™ 

N Y RESIDENTS ADO SALES TAX H 



79-04 Jamaca Ave., Woodhaven, N.Y. 11421 S into and order. (21 2) 296* 591 6 
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Xenix and the Model 16 

In reply to your request for informa- 
tion on the latest applications for the 
Model 16, Delker Electronics Inc. has 
been keeping on top of the Model 
16/Xenix system. We have accounting, 
inventory, and language development 
software from Radio Shack available 
and currently installed at several 
customer sites. 

With the aid of the Model 16 Multi- 
User Cobol Development System and 
MBasic, we have converted Model II 
programs to the Model 16 with rela- 
tive ease. 

One of the best applications we have 
found for the Xenix system is the flex- 
ibility to upload and download files 
generated on other systems, such as the 
new Model 100. 

We encourage your increased sup- 
port for articles involving the Xenix 
operating system and information on 
non-Radio Shack software compatible 
with it. 

Thomas M. Delker, President 

Delker Electronics Inc. 

Sam Davis Road 

Smyrna, TN 37167 



Model III Jet Bomber 

I typed in Thomas H. Rogers' great 
screen scrolling game, "Jet Bomber" 
(80 Micro, May 1983, p. 298). On my 
Model III, the Model I graphics looked 
strange, indeed. 

To take advantage of the special 
character set on the Model III, and even 
provide rockets to bomb, you must 
make three changes. At the end of line 
400, change 91 to 255. In line 470, 
change OR PEEK(PP) = 91 to OR 
PEEK(PP) = 255, and change POKE 
PP,94 to POKE PP,27. (Or experiment 
with the special character set until you 
get a jet you like.) 

Finally, change IF PEEK(PP) = 91 in 
line 500 to IF PEEK(PP) = 255. 

Errol Ford 
P.O. Box 397 

Bridgeport, NE 69336 



More on PowerSoft 

In a recent letter concerning copy 

protection, I asked why software ven- 
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dors do not mention such protection in 
their ads. I am certainly not alone in 
thinking that they should be required to 
do so. 

PowerSoft's lengthy reply did not 
once address my simple and relevant 
question. Instead, they raised a storm of 
falsehoods and misdirection, culminat- 
ing in a personal attack on me. This is 
the standard vendor response on this 
subject. Allow me to correct a few of 
PowerSoft's statements. 

They say that Super Utility has not 
been promoted for its ability to copy 
protected disks. Here's a quotation 
from an early ad (80 Micro, December 
1980, p. 115): "The special disk copy al- 
lows the user to make a backup of ANY 
(that's right, I said ANY) TRS-80 
readable disk . . . regardless of any ef- 
forts that have been made to protect the 
disk...." 

A later ad backed off from the "any" 
claim (80 Micro, September 1981, p. 
248): "Special copy (to back up most 
protected disks ...)... go to the heart 
of your protected disks and read and/or 
modify data. ..." 

The current SU 4- manual goes on in 
a similar vein. Perhaps this is how peo- 
ple got the idea that SU + would copy- 
protected disks! More subtle deception 
is in many of PowerSoft's other argu- 
ments. For example, they explain in 
great detail why a CMD file format is 
impractical. OK, but that doesn't mean 
the disk has to be protected. 

Also, they attribute to me the desire 
to give my software away, and then crit- 
icize me for expecting the same from 
them. I never said either of these things! 

I have attempted to offer my soft- 
ware on a "share the cost" basis, where 
the original purchaser is allowed to 
make a fixed number of copies for 
others — thus bringing the individual 
cost to an affordable level. This makes a 
lot more sales than it loses, and is better 
for everyone. A new market might need 
new marketing ideas. 

Finally, I am a villain, apparently be- 
cause my Trakcess program will, among 
other things, copy some protected disks, 
as will SU + . I am not embarrassed by 
this fact. PowerSoft is, but they'll still 
take the sales and have for years now. 

In fact, Mr. Watt told me that he had 
learned a lot about special copy from 
Trakcess, and subsequently improved 
the abilities of his own routine. He ap- 
proved my publishing a copy procedure 



for SU, saying that all controversy over 
their protected disk was a publicity bo- 
nanza, as it is. Now he pretends to be 
upset, for more publicity. 

I would happily see all protection dis- 
appear, and many of the sales of 
Trakcess with it. Every customer could 
back up, move around, examine, and 
modify the code he bought, just the way 
it used to be. This might even happen 
before my "one-man crusade" (for 
what?) "wins" (how?) "by forcing 
away every good programmer we have 
left." 

Obviously, PowerSoft is doing OK. 
So are Med Systems, Sublogic, Acorn, 
SFINKS, and all the others to whom I 
repeat my original, simple question: Is 
there any reason other than a desire to 
make every possible sale in any manner 
that you do not mention your software 
protection in those big, fancy ads? 

Before the industry collapses com- 
pletely (as vendors like these have 
predicted since Day One), thanks to 80 
Micro for allowing a second point of 
view, and for allowing those of us who 
hold it to advertise, too. 

To the many, many people who have 
written me with questions and com- 
ments on disk protection, I can't reply 
to them all, but I think you'll see some 
detailed information published on this 
subject. Send your thoughts in to 80 
Micro instead, where they can have a 
real effect. 

Roxton Baker 

Box 8272 

APO San Francisco, CA 96555 



TRS-80 in Business 

If you look at Radio Shack's recent 
market introductions, such as the 
Model 12, the Xenix packages for 
multi-user capability, and the portable 
computer, I think you'll agree that 
Radio Shack is going the small business 
computer route and getting away from 
the fun-and-games home market. 

As the owner of two Model lis, both 
with hard disks, I have only the highest 
praise for Radio Shack, their software 
packages for small businesses, and their 
entire attitude. 

Their computer centers are a place 
where a businessman can get a serious 
discussion about what he needs in com- 




From Computer Plus to YOU . . . 
PLUS after PLUS after PLUS 
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LMBtili 

ModeM2 

1 Drive $2699 

2 Drive $3375 


_ 





Color Computer Disk Drive 
Drive $470 Drive 1 $ 299 



BUY DIRECT 



Here are just a few of our fine offers . . 
call TOLL FREE for full information. 



COMPUTERS 

ModeM2 64K1 Drive 
ModeM2 64K2Drive 
Mode! IV 16K 
Model IV 64K 

2Disk&RS232c 
Color Computer 16K 
Color Computer 16K 

w/extended basic 
tColor Computer 32K 

w/extended basic 
Pocket Computer 2 
ModeM61DR128K 
ModeM62DR128K 
ModeM008K 
ModeM0024K 
MODEMS 

Lynx Direct Connect Ml/Mill 
Hayes Smart Modem II 
Hayes Smart Modem 1200 
Novation Smartcat 1200 
Novation J-CAT 
R.S. Acoustic Coupler AC3 



$2699 

3375 

849 

1699 
175 

255 

345 
165 
4199 
4799 
679 
835 

235 
235 
565 
459 
125 
129 



R.S. Modem I D.C. 
R.S. Modem II D.C. 
R.S. DC1200 
PRINTERS 
Daisy Wheel II 
DWP-410 

Silver Reed EXP 550 D.W. 
Smith Corona TPI Daisy Wheel 
Epson 
CGP-115 
DMP-100 
DMP-120 
DMP-200 
DMP-400 
DMP-500 
DMP-2100 
Okidata 82A 
Okldata 83A 
Okidata 84 Parallel 
Okldata 92 
Okidata 93 
Gemini 10 
Prowrlter 



129 
199 
565 

1715 

1320 

679 

495 

Call 

199 

315 

410 

599 

1010 

1539 

1779 

399 

655 

999 

510 

859 

319 

375 



DISK DRIVES 

R.S. Model IV 1ST-Drlve 

Tandon 40 Track Ml 

Color Computer Drive 1 

Color Computer Drive 

Primary Hard Disk Mil 

Primary Hard Disk Mill 
ETC. 

CCR-81 recorder 

C.C Joysticks 

16K RAM Chips 

64K RAM Chips 

32K Microbuffer Inline 
SOFTWARE 

Brand Name Software • 
Send for listing. 

R.S. Software 10% off list 

Coco FHL Flex D.O.S. 

Parallel Printer Cables are 

available for most computers. 



515 
289 
299 
470 
3099 
2199 

52 
22 
25 
75 
229 



69.95 



tColor Computer 64K requires 
Disk and D.O.S. 




We have the lowest possible 
Fully Warranteed Prices AND 
a full complement of Radio Shack 
Software. 



Prices subject to change without notice. 
Not responsible for typographical errors. 
TRS-80 is a registered trademark of Tandy Corp. 



TOLL FREE 
1-800-343-8124 





com 



P.O. Box 926 
480 King Street 
Littleton, MA 01460 
617-486-3193 
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plus 

I Write for your 
free catalog 
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puter equipment and software for his 
business. 

Lauren R. Januz 

26940 North Longwood Road 

Lake Forest, IL 60045 



Model HI at Bat 

I've received a number of letters from 
readers who want to know why "Batter 
Up!" (80 Micro, April 1983, p. 130) will 
not run on their disk-based Model III. 

Their operating system takes up 
space in memory needed for the pro- 
gram. This is true even if the system is 
larger than 16K because the program re- 
stricts memory size and blocks auto- 
matic expansion in a larger system. 

Program Listing 6 allows the pro- 
gram to run on a Model III with 48K. 

Harold A. Kime 

252 East Clay St. 

Lancaster, PA 17602 

Supply and Demand 

The many letters about software pro- 
tection and piracy have interested and 
amused me. An important element is 
missing in the remarks of those who 
present production and marketing costs 



as justification for software protection 
and high selling prices. 

A long-standing free market axiom 
states that the cost to produce an item 
does not determine its value; the utility 
(no pun intended) provided to the con- 
sumer establishes value. 

I purchase those products that meet 
my needs at the lowest possible cost. My 
needs are simple — good documentation 
and support services, the right to pro- 
tect my investment with back-up 
procedures, and a program that meets 
my objectives. 

I will not purchase a program sight 
unseen, but will purchase one even 
though I have a free copy if I'm con- 
vinced that good support services are 
available. 

R. Keith Richard 

7608 Stoneridge Place 

New Orleans, LA 70126 



More Graphics Software 

The Graphics Software Buyer's 
Guide (80 Micro, May 1983, p. 146) 
omitted our Auto-Graph, a 16K Level 
II program on cassette for the Models I 
and III. 

It graphs equations on the screen and 



1 CLS: MS1=64334:P0KE 16562 , MS 1/256 : POKE 16561 , MS 1-INT(MS 1/256) * 

256 

50 FOR 1=0 TO 173:READ X:POKE -1200+1 ,X:NEXTI 

220 FOR 1=0 TO 1023:POKE -1026+1 , 32 :NEXTI 

230 READ X,Y:IF X=0 THEN 240 ELSE POKE -1386+X,Y:G0T0 230 

1041 POKE -1148,100:POKE -1147 , 170 : POKE -1146 ,100: POKE -1145,200 

:P0KE -1144,0:GOSUB 33100:POKE -1148,150 : POKE -1147 , 254 : POKE -11 

46,108:POKE -1145 ,126:P0KE -1144,102 

1066 POKE -1148,50:POKE -1147 ,100 : POKE -1146 , 50 :POKE -1145,200:P 

OKti -1144,0:GOSUB 33100 

1070 POKE -1148,150:POKE -1147 , 254 : POKE -1146 , 108 : POKE -1145,126 

:-1144,102 

1608 POKE -1148,40:POKE -1147 ,100 : POKE -1146 ,0:GOSUB 33100 

1609 POKE -1148,150:POKE -1147 , 254 : POKE -1146,108 

1701 POKE -1148,25:POKE -1147 , 200: POKE -1146 , :GOSUB 33100:POKE 

-1148,150:POKE -1147 , 254 : POKE -1146,108 

1893 MS1=65535:P0KE 16562 , MS 1/256 : POKE 16561, MS 1-INT(MS 1/256) *2 

56:POKE 16396 , 201 :CLEAR 50:END 

2020 POKE -1148,25:POKE -1147 ,150 : POKE -1146 , :GOSUB33100 

2030 POKE -1148,150:POKE -1147 ,254 : POKE -1146,108 

2200 PRINT @ 960, "LONG DRIVE" ; :GOSUB 30002:PRINT @ 990," HOME R 

UNl n ;:POKE -1122 , :GOSUB 33100:POKE -1122,102 

32140 IF F=3 THEN POKE 16223 , 253 : POKE 16154 , 160: POKE -1148,25:PO 

KE -1146,0:GOSUB 33100:POKE -1148 ,150: POKE -1146,108 

33100 DEFUSR0=64336:J=USR0(0) :RETURN 

40200 US(5)=1023:US(6)=-20243:IF A$= B S" THEN US (1) =15360:US (3) =- 
1026 ELSE US(1)=-1026:US(3)=15360 

40201 DEFUSR1=VARPTR(US(0) ) :J=USR1(0) :RETURN 

49001 DATA 221,33,132,251,221,78,0,121,183,194,93,251,201,221,70 
,1,62,1,211,255,16,254,221,70,1,62,2,211,255,16,254,13,194,93,25 
1,221,35,221,35,1,255,255,33,48,0,9,218,125,251,195,84,251 

Program Listing 6 



printer, automatically scales axes for 
the highest resolution, and is menu 
driven. It sells for $24.95. 

N.J. Modney, President 

Modtec, Software Division 

4144 N Via Villas 

Tucson, AZ 85719 

602-293-5186 

Editor/ Assembler NODOS 

I've received many inquiries from 
readers about keying in my program 
NODOS 80 (80 Micro, Anniversary 
Issue 1983, p. 96) using the new Radio 
Shack Series 1 Editor/ Assembler for 
cassette. 

Although Program Listing 3, the re- 
numbering utility in the article, loads in- 
to memory using this new assembler, 
16K is insufficient room to assemble the 
program. 

Radio Shack's newer Editor/ Assem- 
bler for cassette takes about 1500 more 
bytes of memory than the original ver- 
sion. I programmed NODOS 80 using 
the original version with a modification 
for the Model III. 

Other than to increase memory, the 
only solution is to split Listing 3 into 
two parts with the same technique used 
in the article to split the program into its 
four listings. Use Equates to refer to La- 
bels that must pass between the two 
parts. You will now have to load 
NODOS 80 as five programs. 

Thomas L. Quindry 

6237 Windward Drive 

Burke, VA 22015 

User's Group Update 

80 Micro frequently receives infor- 
mation about user's groups from all 
parts of the country. The list below con- 
tains current information about the 
groups; it is arranged in alphabetical 
order by state. 

Dust Byter's User's Group 

c/o Burt Haberman 

65 57- A East Calle La Paz 

Tucson, AZ 85715 
602-298-7888 or 297-2179 

Cabrillo Computer Club 
(formerly Ventura County TRS-80 
Computer Club) 

c/o Rick Johnson, Secretary-Treasurer 
P.O. Box 3032 
Camarillo, CA 93011 
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DDaDDQDDDDDDDD 

30 DIFFERENT PRINTERS 
NOW SUPPORTED!!! 

NEC, IDS PRISM, OUME SPRINT 
OLYMPIA ESW 102/103/3000 

EPSON FX-80, DTC 380Z, 
C.ITOH F-10, BROTHER HR-1 

SMITH CORONA TP1 

EPSON MX-80/MX-100 

OKIDATA MICROLINE 82A/83A 

RADIO SHACK LINE PRINTER V 

OKIDATA MICROLINE 92/93 

OKIDATA MICROUNE 84 

C. ITOH PROWRITER 

$49 " $59 



Additional Printer Drivers Available — Call 

Mail / Phone Orders Accepted 

ALPS 

23 Angus Road 
Warren, New Jersey 07060 



374 



201 - 6477230 



wabash 

one-year warrantees! ^367 

DISKETTES! 

$18.95/box (10) 

with FREE library case! 

5V«" single-side, single-density; double-density 
add S2/box. 8" disks comparably priced. Add $2 
per order shipping. In Illinois add 6% sales tax. 
Immediate shipment on VISA, Master Card or 
Money Order; Add 14 days for personal checks. 

Om CALL TOLL FREE 3* 

^ m (800)222-1248 

In Illinois Call (312) 882-8315 

Call for our volume discount price! 



DIGITAL IMAGES 

Box 941005. Schaumburg IL 601 94 



WERE SERIOUS 
ABOUT TUN! 

Software for 

Radio Shack's TRS-80 

MODELS 11/12/16 

• GAMES • ADVENTURE 

• BUSINESS • LANGUAGE 

• EDUCATION 

CALL OR WRITE FOR FREE 
BROCHURE AND MORE INFORMATION 

J9 Rizzo Data 
0-0 Systems Corp, 

577 Burlington Rd., P.O. Box 458 
Bridgeton. NJ 08302-0356 

609/451-7979 " 518 



SBUG TRS-80 CP/M User Special 
Interest Group 
P.O. Box 601 16 
Sunnyvale, CA 94088 
Please describe your equipment and 
send a SASEfor membership infor- 
mation. 

Solano Microcomputer User's 
Group— TRS-80 

c/o Tom Burnett 
840 Bollard Court 
Vacaville, CA 95688 
707-448-6702 

Tandy Business Computer User's 
Group 

c/o Ira O. Tolmich 
The Coca-Cola Co. 
P.O. Box 1734 
Atlanta, GA 30301 

Central Illinois TRS-80 Computer 
Club 

1418 So. Douglas Ave. 
Springfield, IL 62704 

New England Color Computer User's 
Group 

c/o Chris Sweet 
P.O. Box 255 
Harvard, MA 01451 
617-456-8291 

Central Oregon Color Computer Club 

c/o Paul Bellemore, President 
3947 N.W. 21st 
Redmond, OR 97756 

MCTRUG or DALTRUG 

c/o D.D. Freeman 
334 Fieldside Drive 
Garland, TX 75043 
214-270-0625 or 637-4510 

CoCo-MUG 

c/o Tom Fandre 
2420 Misty Lane 
Waukesha, WI 53186 
414-542-0600 



In "40K Color Basic" (80 Micro, 
May 1983, p. 212), a line of text is 
missing between p. 212 and p. 214. 
The transitional sentence should 
read, "You could install a switch in 
line with diode CR2." 




Call ITM 

and talk to 

the person 

who answers 

your software questions. 

Quickly, correctly. 

Discount prices, too. 

Expertise 

and low prices 

are just two reasons 

you should 

call ITM first. 

For complete 

information on the 

eight other reasons 

call toll free 

today. 

We make 
software buying simple. 

-334-3404 

IN CALIFORNIA CALL 

415-284-7540 




ITM 

936 Dewing Ave., Suite E 
Lafayette, CA 94549 
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PRICE BREAKTHROUGH 





Super Sale on 




We have rewritten the book on Hard Drives. Our hard drives 
are the fastest (DMA available soon) the most versatile 
(Newdos, A Dosplus? and Ldos c drivers), the most adaptable, 
(runs on the Model I and Model III using the same adapter), 
but, we must admit, it is the lowest (in cost that is) starting at 
$1,395.00 for a 12 meg. (unformatted) primary and $695.00 
for a secondary system. All systems come complete with power 
supply, case, cables and software drivers. 

Warranty — one full year. Call for more details. 

We now are featuring quality disk drives. 

From 
Tandon — Siemens — Remex — MPI — Teac 

Prices start at $199.95 
with Power Supply and Case. 

TOLL FREE ORDERING GENERAL AND TECHNICAL 
1-800-343-8841 1-617-872-9090 

Dealer inquiries invited. 




One Edgell Road, Framingham, MA 01701 
Hours: Mon. thru Fri 10 am to 6 pm (E.S.T.) 



(617)872-9090 

Sat. 10 am to 5 pm 



TERMS: 

M.C./Visa/Amex and personal 
checks accepted at no extra charge. 
C.O.D., please add $3.00. 
Shipping: Please call for amount. 



Canada 
MICRO R.G.S. INC. 

751, CARRE VICTORIA, SUITE 405 
MONTREAL, QUEBEC, CANADA, H2Y 2J3 

Regular Tel. (51 4) 845-1 534 
Canadian Toll Free 800-361 -51 55 
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B "Microsystems Software Ir 

C "Logical Systems Inc. 
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uper Sale on New Disk 

Starting at $199.95 complete 

with Power Supply and Case!! 

Tandon — Siemens — Remex — M 

single sided 40 track — dual sided 40 track 
single sided 80 track — dual sided 80 track 

for 
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Q M.C./Visa/Amex and personal 

££ checks accepted at no extra charge. 

52 C.O.D., please add $3.00. 

Q Shipping: Please call for amount. 



— Teac 



RADIO SHACK — HEATH/ZENITH — APPLE/FRANKLIN 4 
IBM/PC-TEXAS INSTRUMENTS& MOST OTHER COMPUTE 

Dual Sided Special 

dual sided 80TK drive with Power Supply and Case 

and Our Double 90 Warranty - All for $299.95 

dual sided 40TK drive with Power Supply and Case 
and Our One (1) Year Warranty - all for $259.95 

TOLL FREE ORDERING GENERAL AND TECHNIC 

1-800-343-8841 1-617-872-9090 

Model III/IV Internal Disk Drive 
ColorComputer DrivesOl 23. . . 

Diskettes of all sizes 

Dot Matrix Printers i 

Word Processing Printers stamngati 

Printer Buffers 8K to 51 2K *****«$ 1 A 

Disk Drive Cases and Power Supplies. stamngatS* 

DOSPLUS — 

One Year Warranty Available on 

Dealer inquiries inv 
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One Edgell Road, Framingham, MA 01701 (617) 872-9090 

Hours: Mon. thru Fri 10 am to 6 pm (E.S.T.) Sat. 10 am to 5 pm 



Canada 
MICRO R.G.S. INC. 

751. CARRE VICTORIA. SUITE 405 
MONTREAL, QUEBEC. CANADA. H2Y 2J3 

Regular Tel. (514) 845-1534 
Canadian Toll Free 800-361 -51 55 

Copyright 1983 r 
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"TANDY CORPORATION 
"ZENITH DATA SYSTEMS 
"APPLE COMPUTER CORP. 
"FRANKLIN COMPUTER. INC. 
•IBM CORPORATION 
"TEXAS INSTRUMENTS 



A Cry from "Down Under" 

Are there any teachers willing to ex- 
change software programs suitable for 
elementary students with us, and per- 
haps a few administrative utilities as 
well? We would also like to establish 
some form of pen pal communication 
with other schools. 

Phillip Walsh 

Holy Family School 

410 Pacific Highway 

Lindfield, 2070 

Australia 

Fiji and the Genie 

Is there a CP/M program available 
for the Genie 3 that can mix and read 
different drive formats, such as the 
PDRIVE command on NEWDOS80? 
Also, is there an incremental-spacing, 
letter-quality printer on the market that 
I can use with Electric Pencil to make a 
typesetting unit? I would like to hear 
from other Genie 3 and Color Genie 4 
owners. 

E. John Handley 
Box 2280 

Suva, Fiji Islands 

Character I.D. 

I've written a program that analyzes 
our business bills. The only problem 
with it is that it takes too long to 
manually enter all the information from 
each month's bills. Is there any type of 
character recognition system or device 
that will work with my Model III? 

Thomas R. Andrews 

Box 422 

Angola, IN 46703 

Model I Stereo System 

I would like to use my Model I as an 
audio frequency analyzer for my stereo 
system. Does anyone know where I can 
obtain the necessary hardware and soft- 
ware to do this? Also, is it possible to 
run CP/M on the Model I without any 
hardware modifications? 

Ronald Hughes 

PSC Box 3893 

APO NY 09057 

Foreign Language 

A potential use for our school's com- 
puters is to teach the students Ukrai- 
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nian. Is there any way to get the Ukrai- 
nian alphabet for the TRS-80? 

Grant Lederhouse 
Box 1288 

Roblin, Manitoba ROL IPO 
Canada 

Invoicing Help 

Does anyone know of a software 
patch for the Model II that will print in- 
voice totals at the bottom of a form? 

Charles Trovato 

278 Bay Ridge Parkway 

Brooklyn, NY 11209 

Semi-Log Graph 

Does anyone have a modification for 
Micro Software System's Datagraph 
program to allow it to graph semi-log 
and log-log graphs? 

James Greenlee 
1024 NW 24th St. 
Moore, OK 73160 

At Wit's End 

Help! I'm at my wit's end. I'm look- 
ing for Model II software specifically 
designed for jewelry inventory control. 
The program must feature automatic 
repricing of inventory and inventory 



label printing. Can someone come to 
my rescue? 

George Veazey, III 

11622 North Nebraska Ave. 

Tampa, FL 33612 

Lowercase Help 

Our library was recently given an RS 
Centronics 779 printer to use for catalog 
card production. Can someone help us 
find a lowercase modification kit com- 
patible with this printer? 

Rick Richmond 

Sublette Countv Library 

Pinedale, WY 82941 

Printer Driver Needed 

I need an Epson MX-80 printer driver 
for Radio Shack's Model III Business 
Graphics Analysis Pack. Does anyone 
have any suggestions? 

Lee C. Rice 

Philosophy Department 

Marquette University 

Milwaukee, Wl 53233 

Checkbook Subroutine 

Does anyone know if there's a Basic 
subroutine for the Model III that 
automatically updates the running 
balance in a checkbook program after 
current withdrawals and deposits are 
entered? 

Gladys Crede 

1812 Hickman Road 

Des Moines, I A 50314 

Screen Display Problem 

The display on my Model I has 
moved up so that it's difficult to read 
the top line. The Langley-St. Clair Soft 
View CRT I bought doesn't correct this 
problem. Does anyone have a solution? 

Frank Deignan 

44 Old Mill Road 

Shrewsbury, MA 01545 

Needs Pilot Info 

Can someone tell me where I can get 
documentation for the Pilot 3.0 from 
Mad Hatter Software? I bought a copy 
at a store sale and would like to be able 
to use it. 

Lynn Miner 

North 5617 Elgin 

Spokane, WA 99208 



Unprecedented Offer 



Call 

OMIKRON 

for further 

details 

(415)845-8013 




This package 

includes: 

MAPPER III/48K 

CP/M 2.2 

MBasic-80 



Limited 



cp/m: the software standard 

* CP/M presents an industry-standard software inter- 
face. Programs designed to run under CP/M can run on all 
CP/M computers. 

* CP/M is available for almost every computer on the 
market, including IBM, Xerox, Apple, Commodore, DEC, NEC, 
Tandy, and many, many more. 

* There are thousands of CP/M programs available 
word processors, languages, data bases, and applications 
No single manufacturer, not even Tandy, Apple, or IBM 
could ever develop and support this much software. 

* With hundreds of software developers competing 
for a place in the CP/M market, CP/M programs will continue 
to get better and cost less 



**! 



CP/M: POWER ANI 

* The majority of business and professional computers 
offer CP/M. CP/M programs tend to be state of the art 

in every respect. 

* CP/M means reliability and dependability. Over the 
years, CP/M has evolved into a mature, sophisticated, and 
thoroughly debugged product. There are no hidden 
surprises with CP/M. 

* With CP/M and TRSDOS, your TRS-80 can run twice 
as much software as other computers. You get to choose 
the best from both worlds. 

* CP/M offers far more versatility than TRSDOS. CP/M 
computers are available that offer hard disks with tape 
backup, multi-user capability, multi-high speed 
processors, and many other features. There is a CP/M 
computer to meet all your future needs 

CP/M: SAVE TIME AND MOUEY 

* unlike TRSDOS, CP/M programs can be transferred 
to your next CP/M computer. All of the money you spend 
on CP/M software can be considered an investment in 
the future. 

* Your old TRS-80 will never be obsolete with CP/M 
When you buy your next computer, your TRS-80 can scn/r 
as a completely compatible home or backup unit. 

* With CP/M, you can effectively master your new 
computer before you buy it. You will not need to relearn 
operating procedures, rewrite programs, re-enter old 
data, or learn new applications programs. 

* With all of these advantages, CP/M is simply the 
most powerful and cost-effective product you can add to 
your TRS-80. CP/M conversion easily pays for itself in time 
and money saved 



oh mn smE you mohby 

■k Save Now— Omikrons hardware prices are the lowest 
in the industry. However, with Omikron, hardware savings 
are only the beginning. Omikron also sells a variety of 
CP/M software products for use with our CP/M adapter 
Our special software prices can easily save you $1000 
or more on the finest, most popular CP/M programs 
available. 

* Save Later— To help our customers afford the cp/m 
software they require, Omikron has formed Cougar, our 
official users group. With Cougar, Omikron can arrange to 
purchase CP/M software products at high volume dis- 
counts. This allows us to offer our customers surprising 
discounts on top quality software products. Over a year s 
time, many of our cougar members save hundreds of 
additional dollars on software purchases. 

■Cougar products and prices are available only to Omikron hardware cu'cnasers 

OMIKRON PRODUCT INFORMATION 

* Omikron products are designed for years of trouble- 
free operation. All Omikron printed circuit boards carry 

a life time warranty to the original purchaser 

* Omikron products are designed for simple, plugm 
installation. No soldering or modification to your TRS-80 
is required 

* The Omikron CP/M system features a sophisticated 
set of utilities and drivers designed to optimize and 
enhance the use of CP/M on the TRS-80. 

* Over the years, Omikron, has sold thousands of 
CP/M adapters. Our products have been highly praisea in 
reviews in Byte, interface Age, SoftSide, 80-US, Desktop 
Computing, 80 Micro, and many others. Reviews are 
available on request. 



OMIKRON'S PRODUCTS 

• Mapper I/48 - 48K CP/M for the Model I 

• Mapper I/64 - 64K CP/M for the Model I 

• Mapper III/48-48K CP/M for the Model III 

• Mapper III/64 - 64K CP/M for the Model III 

• Mapper II - 8" drives for the Model I 

• CP/M software including: WordStar, MailMerge, Super- 
Sort, Microproof, Electric Webster COMMX and CBASiCl 

New Products: lavailaoie ?no Quarter 1985 i 

• 8" drives for the Model Ml 

• 24 x 80 screen for the Model in 
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TRS-80™ Radio Shack/Tandy Corporation 



Products that set Precedents 
I 1127 Hearst Street, Berkeley, CA 94702 (415) 845-8013 

Wordstar™ Micro Pro CBASICII, CP/M™ Digital Research 
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Program Addition 

There is a problem with my "Mini- 
Micro Text Editor" program listing as 
published in the May 1983 issue (p. 290). 
To make the program work add the fol- 
lowing two lines: 

1000 PRINT "SINGLE OR DOUBLE 
SPACING? (1 OR 2)"; 

1010 INPUT X: X-X-l: IF X<>0 AND 
XOl THEN 1010 ELSE POKE 17210, X: 
X = USR(0) 

Jasper Kump 

Box 108 

Pyatt, AR 72672 

Frustrations Resolved 

In "Build an EPROM Programmer" 




by William Mahoney (June 1983, p. 
200), Photo 1 incorrectly showed the 
EPROM being programmed. Socket 
pins 1, 2, 27, and 28 should have been 
empty. On p. 220, the last line of the 
middle column mentions address 
05 AD. This should be changed to 05B7. 
Also, Fig. 7 was incorrectly drawn. The 
proper schematic is shown below. Our 



apologies for 
takes. — Eds. 



these frustrating mis- 



A Bomber Mistake 

I found a rather simple mistake in 
Thomas Rogers' "Jet Bomber" pro- 
gram (May 1983, p. 298). On p. 303 in 
the text concerning the Model II Debug 
program, you need to change DUMP 
HSCROLL?CMD[START = 
H000,END = F054] to DUMP 
HSCROLL/CMD START -F000, 
END = F054. 

Pat Palmer 

510 10th St. SE 

Hampton, IA 50441 



<D- 



\H>- 



Cl 

lOOpF 




[Ti>£i^ 



E>^ 






1II> 77 

Gi>A°- 




EPROM Programmer correction 
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Radio Shack* vs. NEBS 



PRICES 



MTJLTI 

Continuous, single part for RS Program #26-1504 



RS Product 72-105 


250 


Not Offered 


500 


$ 55.00 


1,000 


$100.00 


2,000 


$195.00 


4,000 


Not Offered 


6,000 


Not Offered 



Continuous, single part, for RS Program 
#26-1568, 4508 etc. 



RS Product 72-103 


500 


$ 55.00 


1,000 


$100.00 


2,000 


$195.00 


4,000 


Not Offered 


6,000 


Not Offered 



Prices per Radio Shack catalog RSC-8CC 



MULTI Fim]?OSE CHECK 

Continuous, single part for RS Program #26-1504 

SAVE 



NEBS Product 9002-1 


250 


$ 29.95 


500 


$ 38.95 


1,000 


$ 49.95 


2,000 


$ 74.50 


4,000 


$125.00 


6,000 


$169.95 



25% 
50% 
60% 



Continuous, single part, for RS Program 
#26-1568, 4508 etc. 

N EBS Product 9050-1 S AVIS 



500 


$ 39.95 


1,000 


$ 49.95 


2,000 


$ 72.50 


4,000 


$125.00 


6,000 


$169.50 



25% 
50% 
60% 



Prices per NCF Catalog CF33 



SELECTION 



Radio Shack has forms for one brand of TRS 80' 
compatible software, their own. 



NEBS has checks, invoices and statements for 39 
brands of TRS 80* compatible software, including 
Radio Shack. 



DELIVERY 



NEBS Computer Forms has a written policy to process your order within 6 working days of receipt, 
then ship direct to you via UPS* whenever possible. There is no shipping charge on prepaid orders. 

NEBS gives you Guaranteed Compatibility plus Lower Prices and Convenient Service. 



"TRS and Radio Shack are registered trademarks of Tandy Corp. 
• UPS is a registered trademark of United Parcel Service of America, ' 



If! 



of computer forms, stationery and supplies for 
desk top computers. Including mailing labels, 
diskettes, work station furniture 



i*:=s«k Mamas emmt, 



accessories. 




for your free catalog or further information 

PHONE TOLL FREE 1 + 800- 

Mass. customers 1 + 800-922-8560 



PHONE ( 



^See List of Advertisers on Page 323 



COMPANY 




street 


city, state, zip 


SOFTWARE BRAND 




COMPUTER MODEL (1 II. III. 12. 16. OtherV. 


15502 


NEBS prices are subject to change without notice. 


Mi wmtm t-iMimi! inuans, mwnsui aaroeie m 
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DEBUg 



Sailplane Flies Again 

There are several errors in my "Fly 

Like an Eagle" program listing (1983 

Anniversary Issue, p. 306). Make the 

following changes to correct the bugs. 

• Change line 150 to: 

150 Z=VARPTR(V$):Z = Z + 65536* 

(Z>32767): Y = PEEK(Z + 1 ) + PEEK(Z + 2)*X: 

Z>INT(Y/X):POKE16527,Z:POKE16526, 



Y - Z*X:Y = Y + 65536*(Y>32767):FC = INT 
(1E4/L):DC = L/29:POKEY + 6.FC/X: 
POKEY + 5,FC - INT(FC/X)*X: POKEY + 3, 
DC/X:POKEY + 2.DC - INT(DC/X)*X:Z = 
USR(0):RETURN 

• Change line 590 to: 
590 V(NA + 1) = 0:D(NA + 1 ) = 
0:D(NA) = DS - D:T(NA) = T:H(NA) = 

H GOSUB 1900:PRINT "COMMAND?"; 

• Insert line 1495: 



Program Lis ling 

10 REM MASTER DISK DIRECTORY 

20 CLEAR 5000 

30 DIM L(70) ,P1$(30) ,Nl$(30) ,M1$(30) ,Fl$(3t 

250) 

40 AA$=" %% % % % % % % 

50 AB$="%% % %% % % % % %" 

60 CLS:PRINT" MASTER DISK DIRECTORY" : PRINT 

70 PRINT" FOLLOWING OPTIONS ARE AVAILABLE: 

DISK" 
80 PRINT" <D>ELETE DIRECTORY FOR DISK 
AM" 

90 PRINT" <P>RINT MASTER DIRECTORY 
R DISK" 
100 PRINT" <E>XIT PROGRAM" : PRINT 

PRINT"PLEASE KEY IN YOUR OPTION" 



,L1$(30) ,PP$(250) ,Vl 



<A>DD DIRECTORY FOR A 



<F>IND SPECIFIC PROGR 



<U>PDATE DIRECTORY FO 



THEN 120 
,X$) GOTO 160,280,51 



,620,780,151 



110 

120 X$ = INKh,Y$: IFX$ = '" 

130 ON INSTR( "FADPUE" 

140 GOTO 60 

150 END 

160 CLS:PRINT"TO FIND A SPECFIC PROGRAM ENTER NAME": PRINT 

170 LINE INPUT" PROGRAM NAME " ; Y$ : Y=LEN ( Y$) 

180 IF Y>8 THEN PRINT"TOO LONG, ONLY ENTER 8 LETTERS" : GOTO 170 

190 GOSUB 1000 

200 K=1:J=1 

210 CLS:PRINT"DISK NAME EXT FORMAT GRANULES" 

220 IF K>LOF(l) THEN CLOSE#l:GOTO 270 

230 GET#l,K:GOSUB 1040 : NN$=LEFT$ (Nl$ ,Y) 

240 IF Y:?ONNS THEN K=K+l:GOTO 220 

250 PRINT USING AB$ ; Pl$ ;Nl$ ;M1 $ ; Fl$ ; Ll $ : J=J+1 : IF J<14 THEN K=K+1 

:GOTO 220 

260 LINE INPUT"KEY <ENTER> TO CONTINUE" ; Z $: K=K+1 : J=l : CLS : GOTO 21 



270 LINE INPUT"TASK COMPLETE, KEY <ENTER> TO RETURN" ; Z $: GOTO 6 



280 CLS:PRINT"TO ADD THE DIRECTORY FOR A DISK THE PROGRAM WILL P 

ROMPT WHEN TO" 

290 PRINT"INSERT THE DISK" : PRINT: SOUND128 , 10 

300 PRINT"REMOVE MASTER DISK AND INSERT SUBJECT DISK" 

310 LINE INPUT"KEY <ENTER> TO CONTINUE" ; ZS : IF X$="U" THEN 340 

320 LINE INPUT"INPUT DISK NAME, USE CODE LIKE A0 , Al , ETC . " ; P2$ 

330 IF LEN(P2$)<>2 THEN PRINT" JUST TWO CHARACTERS, REENTER" : GOT 

O 320 

340 GOSUB 1080:PRINT"REMOVE DISK AND PUT IN MASTER DISK": SOUND 

128,10 

350 LINE INPUT"KEY <ENTER> WHEN DONE" ; Z $: GOSUB 1000 : N=LOF ( 1) 

360 FOR K=l TO M 

370 GOSUB 1060:PUT#1,K+N:NEXTK 

380 CLOSE#l:GOSUB 1000:K=1 

390 IF K>LOF(l) THEN CLOSE#l:GOTO 410 

400 GET#l,K:PP$(K)=N$+P$:V(K)=K:K=K+l:GOTO 390 

410 FOR P=l TO K-2 

420 J=P 

430 IF PP$(V(J) )<=PP51V(J+1) ) THEN 450 

440 T=V(J) :V(J)=V(J+1) :V( J+l) =T: J=J-1: IF JO0 THEN 430 

450 NEXTP 

460 GOSUB1000:GOSUB1020 

470 FOR J=l TO LOF(l) 

480 GET#1,V(J) :GOSUB 1040:GOSUB 1050:PUT#2,J 

490 NEXTJ:CLOSE:KILL"DIR/DAT"RENAME "TEMP/DAT" TO "DTR/DAT" :GOTO 

60 
500 CLS:PRINT"TO DELETE A DISK DIRECTORY FROM MASTER FILE ENTER 
DISK CODE" 

Listing continues 



T 
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1495CN$ = NA$(NA) 

• Change line 1780 to: 

1780 IF CCS = "A" THEN FOR Z =0 TO 

NA:CN = Z:Z = Z - (NA - Z)*(CN$ = NA$ 

(Z)):NEXT Z:NA$(CN) = NA$(NA):D(CN) = 

D(NA):T(CN) = T(NA):H(CN) = H(NA): 

V(CN) = V(NA):NA$(N A) = CN$: 

GOSUB 1880:GOTO 1500 

Ian Cohn 

1 Manor St. 

Brighton, 3186 

Victoria, Australia 



!'s Revealed 

When printing the program for Ger- 
ald Sprouse's "Color Disk Directory" 
(April 1983, p. 285) we inadvertently 
left out the color disk commands. The 
accompanying program listing is correct 
and complete. We apologize for any in- 
convenience this may have caused 
you. — Eds. 



A Model III Update 

As is, the program listing for my 
"Graphics on the Line Printer VII" ar- 
ticle (April 1983, p. 306) will not work 
on the Model III. To update the pro- 
gram, change line 8370 to: OUT 
(0F8H),A ;PRINT. To enter the object 
code, use the following patch on the 
same line: B2B7 D3F8C9 8370. 

Tom Tinsley 

1721 Horton Drive 

Orange Park, FL 32073 



For Once, No Problem! 

The correction to Richard Ramella's 
"Dreidel" program (May 1983, p. 26) 
lets the game continue when a player is 
broke. The program is correct as pub- 
lished in our December 1982 Fun House 
column (p. 421). — Eds. 



No More LISP Problems 

There is a typographical error in Ran- 
dy Beer's "LISP: Basically Speaking- 
Part II" article (April 1983, p. 254). The 
description of a recursive way to look at 
finding the factorial as found on p. 258 
should be changed as follows: 



if n = 0: factorial(n)=l 

if n> 0: factorial(n) = n*factorial(n - 1) 



-Eds. 



DEBUg 



IF P3$OPl$ THEN 571 



Living continued 

510 INPUTP3$ 

520 IF LEN(P3S)<>2 THEN PRINT n REENTER WITH JUST TWO CHARACTERS": 

GOTO 510 

530 GOSUB 1000:GOSUB 1020:1=1 

540 FOR J=l TO LOF(l) 

550 GET#l,J:GOSUB 104( 

560 GOTO 580 

570 GOSUB 1050:PUT#2, 1:1=1+1 

580 NEXTJ 

590 CLOSE :KlLL n DIR/DAT"RENAME! "TEMP/DAT" TO "DIR/DAT" 

600 IF X:?="U" THEN 800 

610 GOTO 60 

620 CLS: PRINT"TO PRINT A DIRECTORY TWO OPTIONSARE AVAILABLE:" 

630 PRINT: PRINT" <A>LL ENTRIES IN MASTER DIRECTORY" 

640 PRINT" <S>PECIFIC DISK ONLY" : PRINT: PRINT"KEY IN CHOICE" 

650 W$=INKEY$:IFW$="" THEN 650 

660 IF W$="A" THEN P6 $="XX" : GOTO 690 

670 IFW$="S" THEN LINE INPUT"DISK CODE?";P6$ 

680 IF LEN(P6$)<>2 THEN PRINT"JUST TWO LETTERS" :GOTO 670 

690 PRINT#-2," MASTER DIRECTORY" : PRINT#-2 , " " 

700 PRINT#-2," DISK NAME EXTENSION FORMAT GRANULES" : GOSUB 

1000 
710 FOR K=l TO LOF(l) 
720 GET#l,K:GOSUB 1040 
730 IF P6$="XX" THEN 750 
740 IF Pl$OP6$ THEN 760 

750 PRINT#-2, USING AA$; Pi $ ;Nl$ ;Ml $; Fl$; Ll$ 
760 NEXTK 
770 CLOSE:GOTO 60 

780 CLS:PRINT"TO UPDATE DIRECTORY FOR DISK FIRST ENTER DISK C 
ODE" 

7 90 GOTO 510 
800 P2$=P3$:GOTO 290 
1000 OPEN"D",#l, "DIR/DAT", 20 

1010 FIELD#1,2ASP$,8ASN$,3ASM$,3ASF$, 4ASL$: RETURN 
1020 OPEN"D", #2, "TEMP/DAT" ,20 

1030 FIELD* 2, 2ASF2$,8ASN2$,3ASM2$,3ASF2$,4ASL2$: RETURN 
1040 PI $=P $: Nl $=N$: Ml $=M$: Fl$=F$: Ll$=L$: RETURN 

10 50 LSETP2$=P1$:LSETN2$=N1$:LSETM2$=M1$:LSETF2$=F1$:LSETL2$=L1$ 
: RETURN 

1060 LSETP$=P1$(K) :LSETN$=N1$(K) : LSETM$=M1$ (K) : LSETF$=F1$ (K) :LSE 
TL$=L1$(K) 
107 RETURN 

1080 DSKI$ 0,17,2,A$,B$ 
1090 FOR 1=1 TO 68 

1100 L2$=MID$(A$,I,1) :L(I-1) =ASL(L2$) :NEXTI 
1110 M=0 

1120 FOR X=3 TO 11 
1130 DSKI$ 0,17,X,C$,D$ 

1140 E$=C$+LEFT$(D$,127) :N$ ( 0) =LEFT$ ( E$, 8) 
1150 M$(0)=MID$(E$,9,3) : F$ ( 0} =MID$ (E$ , 13 ,1) 
1160 L$(0)=MID$(E$,14,1) :L1(0)=ASC(L$(0)) 
1170 FOR K=l TO 7 
1180 N$(K)=MID$(E$,1+K*32,8) :M$ (K) =MID$ (E$ , 9+K*32 ,3) 



PROFESSIONAL SOFTWARE TRS-80'" MODEL I I & 16 



NOW AVAILABLE 1 , 



/.FASTER $119.95* 



$59.99* 



DISK SORT 2 FOR HARD DISK OR FLOPPIES NEW UP TO 15 

TRSDOS" 2 0a 8. 4 1 COMPATIBLE FILL IN THE BLANKS & GO TO IT 

WILL SORT ANY RANDOM FILE OUTPUT OPTIONS TAGS. TAGS & KE VS. OR COMPLETE FILE 

1.000 REC s SORTING 15 BYTES. INCLUDING ALL DISK I/O = 2 MIN 33 SEC s (FLOPPY] 

HARD DISK IS MUCH FASTER' NON STOP JOB STREAM EXECUTION 

BASIC CROSS REFERENCE • save hours 

• SEE USED LINE » s.'NAMES AT A GLANCE • PRODUCES NICE PROGRAM LISTING 

• OTHER OPTIONS INCLUDE MAKING NEW PROGRAMS. DROPPING REMARKS 

CUSTOM PROGRAMMING/SYSTEMS DESIGN doc , < 

DEDUCTIBLE ON 
■PLUS POSTAGE AND HANDLING PRICES SUBJECT TO CHANGE WITHOUT NOTICE PURCHASE 

ITRS80 & TRSDOS 
ARE REGISTERED 
TRADEMARKS OF 
TANDY CORP 



Langley-St. Clair 

ets 



From unsolicited letters of testimonial 

Yesterday I installed your 
amber CRT replacement tube 
in my 48K Radio Shack Model 
I computer. I am very happy 
with the anti-glare tube. I have 
found it to be very easy on the 
eyes. I was getting eye strain 
after about 30 minutes at the 
keyboard. After using the 
computer 3 hours last night, I 
had no problem with eye 
strain. 

— You are more than 
welcome to use excerpts from 
my letter in your ads. I have 
found that the amber tube is 
very easy on the eyes and I 
recommend it for anyone who 
uses a computer for more than 
just an hour a day. 

Thanks again, 

R.T. 

Redding, CA 

This morning I received the 
credit copy of my first LSI Amber 
CRT. I just thought that it might 
be a good idea to tell you that the 
second CRT is working just fine. 
As a matter of fact, it was perfect 
even without the recommended 
burn-in period. Thanks again to 
you and LSI for the prompt ser- 
vice you have given me. I just 
wish a little of this would rub off 
on some of the software vendors 
I have been dealing with. If you 
talk to Tom Hartmann, please 
thank him for his help. The CRT is 
great. I spent most of the Easter 
Weekend out here at the office 
playing with it and the computer. 

Best wishes to you 
and LSI, 
J.W. 
Charleston, WV 




GOOD-LYDDON DATA SYSTEMS 

5486 RIVERSIDE DR. • CHINO, CA 91710 • (714) 980-4563 



M.'C VISA 

ACCEPTED 



LSIS's NEW SOFT-VIEW 
REPLACEMENT CRT 

FOR THE 
FULL STORY, 
SEE PAGE 41 



Langley-StCIair 

, Instrumentation 
Systems, Inc. ^462 

132 West 24th St., NY, NY 10011 
1-800-221-7070 



• See List of Advertisers on Page 323 
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THE NEXT 



by Hardin Brothers 



The earliest microcomputers had a 
single input device: a row of toggle 
switches on the front of a cabinet. They 
had no cassette ports, no disk drives, no 
modem, and no keyboard. To input data, 
you had to set a series of switches repre- 
senting the individual bits of a single 
byte or address. 

On the TRS-80, the keyboard is the 
most important input device, but it is 
still nothing more than a collection of 
on/off switches. Many computers have 
an ASCII-encoded keyboard. When- 
ever a key is pressed, the ASCII value 
of that key is sent to the computer for 
processing. 

However, the TRS-80 keyboard is 




Programming 

the 

keyboard 



16K 



32 K 



64K 



Line Disk System 

160 DEFUSR = &H7FE1 

190 DEFUSR-&H7B9F 

270 DEFUSR = &H7BB0 

160 DEFUSR-&HBFE1 

190 DEFUSR = &HBB9F 

270 DEFUSR=&HBBB0 

160 DEFUSR = &HFFE1 

190 DEFUSR = &HFB9F 

270 DEFUSR = &HFBB0 



Tape System 

POKE 16526,225: POKE 16527,127 
POKE 16526,159: POKE 16527,123 
POKE 16526,176: POKE 16527,123 

POKE 16526,225: POKE 16527,191 
POKE 16526,159: POKE 16527,187 
POKE 16526,176: POKE 16527,187 

POKE 16526,225: POKE 16527,255 
POKE 16526,159: POKE 16527,251 
POKE 16526,176: POKE 16527,251 



Table 1. Changes to Program Listing 4 for Various Systems 



10 

20 

30 

40 

50 

60 

7 

80 

90 

100 

110 

120 

130 

140 



150 
160 
170 
180 
190 
200 
210 
220 



************************************* 

* * 

* KEY-VIEW ROUTINE * 

* Displays the keyboard memory * 

* from 3800H to 38FFH * 

* on video screen. * 

* * 
************************************* 

FOR I = 32512 TO 32539 

READ D 

POKE I,D 
NEXT I 

DEFUSR=32512 'For tape systems, this line should be 
POKE 16526,0: POKE 16527,177 

CLS: PRINT "PRESS KEYS 1-7 SIMULTANEOUSLY TO ESCAPE DISPLAY" 

FOR I = 1 TO 500 : NEXT I 

A = USR(0) 

END 

DATA 33, 0, 56, 17, 0, 60, 1, 0, 4, 126 

DATA 198, 48, 18, 35, 19, 11, 120, 177 

DATA 32, 245, 58, 16, 56, 254, 254, 32 

DATA 229, 201 

Program Listing I 



not encoded. It is merely a matrix of 
switches that operate like the keyboard 
of an inexpensive calculator. Each time 
you press a key, a connection is made 
between one of eight columns and one 
of eight rows. Though the Model III 
keyboard has only 53 keys (52 on a 
Model I), it is mapped to IK of memory 
between 3800H and 3BFFH. 

To see the keyboard in action, run 
Program Listing 1. Experiment by 
pushing different keys and combina- 
tions of keys. With every keystroke, 
half the keyboard memory changes 
value. Listing 1 merely transfers the 
keyboard memory to the video memory 
while adding 30H (48D) to each posi- 
tion to show a blank keyboard as all 
zeros (the source code is shown in Pro- 
gram Listing 2). 

After experimenting with the key- 
board-to-video program, you should 
notice that: 

• the upper-left position (equivalent to 
3800H) never changes; it remains a zero. 

• when you press a key, the lower right 
position (38FFH) has a non-zero value. 

• different keys affect different por- 
tions of the screen, but several keys af- 
fect the same portions. 

• different keys produce different 
values, but several keys produce the 
same values. 

• pressing more than one key creates 
new values and new patterns of positions. 

Most keyboard maps look something 
like Fig. 1 . The address for each row is 
the lowest memory address the keys in 
that row affect, and it is the one address 
without interference from keys in other 
rows. If you wish to write a program 
that checks for a combination of two 
keys, you can either have the program 
check both rows (the most common 
method) or check a position that both 
keys will change. 

In Basic, the INKEYS function is a 
slow way of checking for a particular 
keystroke. Your program reacts to the 
keyboard much more quickly by 
PEEKing the key's address and then 
acting appropriately. As an example, 
use the arrow keys to sketch a picture on 
the screen with Program Listing 3. The 
same technique speeds up many Basic 
games. 

If you are a hardware hacker, you 
probably noticed some holes in the ma- 
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The Answer is... 

NEWSCRIPT! 



TM 



THE WORD PROCESSOR 
FOR BUSINESSMEN AND 

PROFESSIONALS 

With ongoing support directly 
from us 

A FEW OF NEWSCRIPT's 200 
STANDARD FEATURES: 

• FORM LETTERS WITH MERGING OF NAMES AND ADDRESSES 

• GIVES SUPERB APPEARANCE TO YOUR FINAL DOCUMENTS 

• COMPREHENSIVE MANUAL WITH TUTORIAL AND EXAMPLES 

• CENTERING. TOP BOTTOM TITLES, INDENTS. PAGINATION 

• UNDERLINING. BOLDFACE. DOUBLE-WIDTH. ITALICS+ 

• SUB SUPER SCRIPTS. RIGHT-JUSTIFIED PROPORTIONAL* 

• CREATES TABLE OF CONTENTS. SORTED INDEX 

• "LEGAL" LINE NUMBERING 

• SCREEN GRAPHICS. SPECIAL PRINTER SYMBOLS + 

• SEARCH/REPLACE GLOBALLY OR WITHIN LINES, COLUMNS 

• BLOCK MOVE. COPY, DELETE, INSERT. FILE MERGES 

• AUTOSAVE. WHOOPS, DIRECTORY, KILL 

• SUPPORT FOR ALL LISTED PRINTERS IS INCLUDED ** 
(NO PATCHES INVOLVED) ** 

• SUPPLIED READY-TO-RUN ON "TINY" DOSPLUS 

• ALSO RUNS UNDER NEWDOS 80. LDOS. MULTIDOS. TRSDOS 




BUILT-IN SUPPORT FO 

MOST POPULAR 
PRINTERS', INCLUDING: 

Anadex, Brother. Centronics. C.Itoh. Diablo. Epson, Gemini, 
Microline. NEC. Prowriter, Qume. Radio Shack (LP 1-8, DW2, DMP- 
410. DWP 200-2100), Smith Corona, Teletype. Typewriter, anything 
compatible with any of these, and many others, parallel and RS-232. 

SPECIAL AVAILABLE OPTION: Right-justified 
proportional for Diablo, F-10, Qume, Spinwriter. 
etc. Requires "Daisywheel Proportional" Option 
plus NEWSCRIPT. 

REVIEWERS AND USERS AGREE 




NEWSCRIPT 7.0: $ 

Mailing Labels Option: 
Special: NEWSCRIPT + LABELS: 
Daisywheel Proportional Option: 
"PenciT7"Scripsit" File Convertor: 
NEWSCRIPT Manual & Reference card only: 
Electric Webster + Correction Feature: 
Hyphenation Feature for Electric Webster: 
Grammatical Feature for Electric Webster: 
Graphics Editor and Programmer (GEAP): 
Dotwriter High-resolution graphics: 
Special: GEAP + Dotwriter: 



124.95 
29.95 

139.95 
49.95 
24.95 
29.95 

149.50 
49.95 
39.95 
49.95 
69.95 
99.95 



"NEWSCRIPT" is the best 
word procesor I have seen 
. . . unsurpassed in printer 
control ... no other 
TRS-80 word processor 
can match its ability to 
format text ... its editor is 
fast, easy, and powerful." 
(80 MICRO, Oct. 1982) 

"Your phone information 
system and the prompt 
and courteous staff that 
you provide to help your 
clients . . . are worth the 
cost of the system." 
(VMM.) 

"Better than cold beer on 

a hot day!! Thank you!!" 

(R.S.) 

"What a program. So easy 

to learn and easier to use. 

I waited too long before 

ordering!" (PJ.M.) 



". . . takes the TRS-80 to a 
new level of text handling 
. . . very user-friendly . . . 
superb documentation, 
adaptability to many f m " X 
printers and operating 
systems ... a standard 
against which other 
TRS-80 word processing 
programs will be judged." 
(SOFTSIDE, Dec. 1982) 

". . . ongoing support 
second to none, with 
superb documen- 
tation." (80 U.S. Journal 
Feb. 1982) 



U 



c 



REQUIRED CONFIGURATION:, 

48K TRS-80, MAX-80, LNW, or 
compatible, with one or more 
disk drives. Specify Model I or 
Model III. 
+ some features work only if your 

printer has the mechanical 

capability. 
** Daisy Wheel Proportional is an 
extra-cost option. 

TO ORDER, CALL NOW, 

TOLL-FREE: (800) 

824-7888, Operator 422 

For orders, information, or names of nearby dealers: 
(213) 764-3131, or write to us. 

Order from, your Software dealer or from: 



PR 



— v — »• — 
Dep't. C, Box 560 No. Hollywood, CA 91603 

TERMS: VISA. Mastercard, checks, money orders. COD. No P.O.'s accepted. Most orders shipped 
within 24 hours. Please add S3. 00 for surface UPS in U.S.A., or S6.00 for UPS Blue Label. Add S6.00 in 
Canada. S15.00 overseas air shipment. 6 ]i 2% sales tax in California. 




THE NEXT STEP 







00100 


**** 


************************* 


.«« 






00110 


* 






* 






00120 


* 


KEY-VIEW 


Routine 








00130 


* 


Transfers keyboard 








00140 




memory 


to screen 


* 






00150 


* 


for viewing — 








00160 


* 


Depress 1-7 simul- 








00170 


* 


taneously to escape 








00180 


» 






* 






00190 


**** 


************************* 


in 






00200 














00210 










7F00 




00220 




ORG 


7F00H 




7F00 


210038 


00230 


<EYVU 


LD 


HL,3800H 




7F03 


11003C 


00240 




I,D 


DE,3C00H 




7F06 


010004 


00250 




LD 


BC,400H 




7F09 


7E 


00260 


<10 


LD 


A, (HL) 




7F0A 


C630 


00270 




ADD 


A,30H 




7F0C 


12 


00280 




LD 


(DE) r A 




7F0D 


23 


00290 




INC 


HL 




7F0E 


13 


00300 




INC 


DE 




7F0F 


0B 


00310 




DEC 


BC 




7F10 


78 


00320 




LD 


A,B 




7F11 


Bl 


00330 




OR 


C 




7F12 


20F5 


00340 




JR 


NZ,K10 




7F14 


3A1038 


00350 




LD 


A,(3810H) 




7F17 


FEFE 


00360 




CP 


0FEH 




7F19 


20E5 


00370 




JR 


NZ,KEYVU 




7F1B 


C9 


00380 
00390 




RET 






0000 




00400 




END 






00000 TOTAL 


ERRORS 











ROUTINE IS RELOCATABLE 
HL==> KEYBOARD MEMORY 
DE==> SCREEN MEMORY 
BC = IK LENGTH OF BOTH 
GET A BYTE 
= "0" 

STORE TO SCREEN 
BUMP 

ALL 

POINTERS 
TEST FOR DONE 
MERGE LSB OF BYTE COUNT 
REPEAT WHOLE SCREEN 
NUMBER ROW 
CHECK FOR 1-7 
GO UNTIL DONE 
RETURN TO BASIC 



Program Listing 2 



10 CLS 

20 K%=PEEK(14400) 'REM 14400 = 3840H 

30 IF K% AND 8 PRINT CHR$(27); 

40 IF K% AND 16 PRINT CHR$(26) 

50 IF K% AND 32 PRINT CHR$(24) 

60 IF K% AND 64 PRINT CHR$(25) 

70 PRINT CHR$(191) ;CHR$(24) ;: GOTO 20 

Program Listing 3 



trix in Fig. 1 . You can easily add 1 1 or 
12 more keys to your TRS-80, and give 
special functions to each. In fact, the 
control key required for Electric Pencil 
1.0 was simply a key added to the 
matrix in the Shift row. To add extra 
keys, wire each to the appropriate row 
and column of your keyboard. You can 



also add a second, remote keyboard in 
the same manner. (See The Custom 
TRS-80 and Other Mysteries by Dennis 
Bathory Kitsz, IJG Inc., Upland, CA, 
1982, for detailed instructions.) 

Because the TRS-80 keyboard is not 
encoded, the meaning of each key must 
be determined by software. If you wish 



to change key definitions for a few keys 
or the entire keyboard, all you need do 
is write new software. The Model I and 
Model III store the address of the 
keyboard driver — the routine that scans 
and decodes the keyboard — at 4016H 
and 4017H. If you put the address of a 
different routine in those bytes, that 
new routine becomes the keyboard 
driver. 

Basic calls the keyboard driver at the 
end of every instruction, looking for 
either a Break command or a SHIFT® 
command. Because the driver is called 
so often, newly defined key combina- 
tions react instantly (except when Basic 
enters its string space garbage collection 
routine). 

The keyboard driver is allowed to use 
registers AF, BC, DE, and HL and 
must return the value of the key pressed 
in the A register. If no key is pressed, 
the driver loads the A register with zero 
and sets the Z flag. With these re- 
strictions in mind, you can write a short 
program to modify the normal driver 
flow and define any new keys or key 
combinations you wish. 

For example, Program Listing 4 runs 
with any long and involved program. 
You might want a page of instructions 
available at all times. Although you 
could implement a screen swap routine 
by continually checking with INKEYS, 
defining a new key combination stream- 
lines the program's design. 

For this implementation, pressing the 
shift and clear keys halts all other pro- 
gram operations and displays a Help 
screen. The original screen and the pro- 
gram in progress continue after another 





Bits: 
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K 
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3804H 
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R 
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3810H 
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3820H 


/ 
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, 


; 




9 




8 


3840H 


SPACE 


RTARW 


LTARW 


DN ARW 


UP ARW 


BREAK 


CLEAR 


ENTER 


3880H 


















* 




SHIFT* 


♦NOTE— On the Model III 


bit is 


the left shift key and bit 1 is the right shift key. 
Fig. 1. Map of the Keyboard 


On the Model I 


bit is 


both shift keys. 
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TALLYMASTER offers a new, powerful, 
easy- to-use way of summarizing and ana- 
lyzing budgets and expenses. It's designed 
for personal and small business use by pec* 
pie who heed quick answers' to the question, 
"Where Did All The Money Go?" 

Like most PROSOFF products, "TALLY, 
MASTER' ' originally was developed just 
for our own use. To find out why our expen- 
ses kept rising, we looked for a quick and 
easy way to categorize our bills. The check 
register gave too much detail, and with 
"VISICALC", it was hard to just add.new. 
numbers at random. 

TALLYMASTER takes a simple; com- 
mon-sense approach to organizing and 
summarizing expenses and sales: Up 
to 702 categories can be defined. As 
numbers are added to them, new to- 
tals ate shown instantly. It's like 
having a room full of calculators, 
all in easy reach. Totals can be sor- 
ted, reports printed, and disk files 
combined. 




TALL YMASTER's handsome documen- 
tation has a step-by- step tutorial, with dozens 
of examples and illustrations, We've even 
included five sample disk files for you. 
Whether you're managing a home budget or 
business expenses, this program can give 
you better understanding and control. It 
id us, and it can help you. 
TALLYMASTER is available for the 
RS-80 Models I and Hi (48K) and the 
BM Personal Computer (128K). The 
[■RS-80 version is just $79.95. The IBM 



-fast 



9.9" 








Dept. C. Be* 580, No. Hollywood. C* 91603 

(213) 764-3131 

Toil-Free order lines: 
oper 422 



124- 



Terms: VISA, MC, CHECKS, C.O.D., or even cash - No P.O.'fi. Please add $3.00 shipping/rjandiing 
in U.S.A., $5.00 to Canada, $15.00 overseas. For C.O.D. please add $2.00 in U.S. only, add 
¥o sales tax in California, we ship within one day ol receiving orders,;: 





• Hard select of desired 
printer with toggle 
switch. Software select 
mode via CHRS(l) or 
CHRS(2) 

• Lights indicate which 
printer has been selected 

• "Centronics" compatible 



TWOPRINT™ 

is the Smartest 

Dual Printer 

Switch 

for Your Money 

on the Market 

Today! 

$ 99.95 



TWOPRINT fits the 
following: MODI, II, III, IV, 
12 & 16 (Please specify 
as some require changes 
to your cables) 
Requires purchase of 
Radio Shack P/N 
(270-1552A) Battery 
Eliminator 



TRSWATCH I & III™ 

From the original creator of the 

TCHRON & TIMEDATE 80. 

> Includes factory supported 
Software on Disk or Tape, 
a s 39.95 valuel 

» A precision, Time proven. 
Highly stable Clock 

> For LNW, Hard Disks, 
MOD I & MOD III 
(specify) 

» Fully enclosed - Cable 
allows for flexible 
mounting 
» Requires 2 AAA 

cells for 3 yr. life I 
» Applications , i • 

Program Support ■ ' 
is growing, write for List 




Check or Money Order. 
Visa or MasterCard accepted. 



California residents add 6'//% Sales Tax 



CALIFORNIA WORD EXCHANGE 

802 E. Lime • Monrovia, CA 91016 
(213) 443-5866 



AVAILABLE FOR 
IMMEDIATE SHIPMENT 

DEALERS PLEASE CALL — 



rtisers on Page 323 
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THE NEXT STEP 



keystroke. 

This driver routine has to stay in a 
specific place in memory after the 
pointer at 4016H is set — if it were relo- 
catable and moved around, Basic would 
never be able to find it and the comput- 
er would hang up or reset. Therefore, 



don't load the routine into a string or in- 
teger array. 

Instead, pick a spot for it in memory 
(high or low) and assemble it to that 
location. Be sure to record three 
addresses from the symbol table; you 
will later need to know the location of 



7B9F 
7BA2 
7BA5 
7BA6 
7BA8 
7 BAB 
7BAF 

7BB0 
7BB3 
7BB6 

7BB7 
7BBA 
7BBB 
7BBD 
7BC0 
7BC2 



7BC5 
7BC8 
7BCB 
7BCD 
7BD0 
7BD3 
7BD5 
7BD8 
7BDB 
7BDD 
7BE0 



0400 



7FE1 
7FE4 
7FE7 
7FE8 
7FE9 
7FEA 
7FEB 
7FEC 
7FED 
7FEE 
7FEF 
7FF1 
7FF3 

7FF4 
7FF7 
7FF8 

7FF9 
7FFC 
7FFF 



2A1640 

11B77B 

DF 

2807 

22C37B 

ED53164C 

C9 

2AC37B 
221640 
C9 

3A8038 

B7 

2805 

3A4038 

E602 

CA0 000 



CDE17F 

CDF47F 

20FB 

CDF97F 

CDF47F 

28FB 

CDE17F 

CDF47F 

20FB 

CDF97F 

C9 



11E17B 

21003C 

46 

J A 

77 

78 

12 

13 

23 

7C 

FE40 

38F4 

C9 

3AFF3B 

B7 

C9 

01A406 
CD6000 
C9 



SET10 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 



00810 ; 

00820 KEY 

00830 

00840 

00850 ; 

0086 

0087 



<shift> <clear> Screen-Swap 
allows operator to get 
a full page of instruc- 
tions, etc, at any time 



Note — see text for set-up instructions 



ORG 



7B9FH 



;NOT RELOCATABLE — 
; ASSEMBLE TO ANY ADDRESS 
;YOU WISH 
ORG of 7B9FH puts routine at top of 16K memory. Use 
0BB9FH for top of 32K memory, 0FB9FH for top of 48K. 



LD 

LD 

RST 

JR 

LD 

LD 

RET 



UNSET LD 

LD 
RET 



LD 

OR 

JR 

LD 

AND 

JP 



HL, (4016H) 

DE,TEST 

18H 

Z,SET10 

(RETURN+1) ,HL 

(4016H) ,DE 



HL, (RETURN+1) 
(4016H) ,HL 



A, (3880H) 

A 

Z, RETURN 

A, (3840H) 

2 

Z,0000H 



GET CURRENT DRIVER ADDR. 
GET ROUTINE ADDR. 
COMPARE DE & HL 
GO IF ALREADY SET 

SET RETURN ADDR. 
SET 'TEST' AS DRIVER 

RETURN TO BASIC 

GET OLD ADDR. 

SET DCB TO ORIG. ADDR. 
; RETURN TO BASIC 

;GET SHIFT ROW 

;IS SHIFT PRESSED? 

;G0 IF NOT 

;GET <CLEAR> ROW 

;TEST FOR CLEAR 

; SETUP PUTS VALUE HERE 



<Shift> and <Clear> are pressed, so SWAP 



CALL 

CALL 

JR 

CALL 

CALL 

JR 

CALL 

CALL 

JR 

CALL 

RET 



SWAP 

KEY 

NZ,L1G 

DELAY 

KEY 

Z ,1-2 

SWAP 

KEY 

NZ,L3t 

DELAY 



;SKAP SCREENS 

; CHECK FOE KEY DOWN 

,-WAIT FOR RELEASE 

;WAIT TO AVOID BOUNCE 

; CHECK FOR ANY KEY DOWN 

;WAIT FOR KEY PRESS 

; RESTORE SCREEN 

; CHECK FOR ANY KEY DOWN 

(WAIT UNTIL RELEASED 

;WAIT TO AVOID BOUNCE 

; RETURN TO REG. PROGRAM 



NOTE — A will be loaded with and the z flag set when 
L30 falls through. 
Basic will think no key has been pressed. 



SWPBUF DEFS 400H 

; 

; Actual SWAP done below 



LD 

LD 

LD 

LD 

LD 

LD 

LD 

INC 

INC 

LD 

CP 

JR 

RET 

LD 
OR 
RET 



DE, SWPBUF 

HL,3C00H 

B, (HL) 

A, (DE) 

(HL) ,A 

A,B 

(DE) ,A 

DE 

HL 

A,H 

4 0H 

C , SW1 



A, (3BFFH) 
A 



DELAY LD BC,17 0D 

CALL 60H 

RET 



5890 



;1K FOR BUFFER 



•DE==> SWAP BUFFER 
;HL==> SCREEN 
;SAVE SCREEN BYTE 
;GET BUFFER BYTE 

; BUFFER BYTE TO SCREEN 

;GET SCREEN BYTE 

;PUT IN BUFFER 

; BUMP 

; POINTERS 

;GET MSB OF SCREEN PTR. 

;OFF SCREEN YET? 

;GO UNTIL DONE 

;ELSE RETURN 

;CHECK FOR ANY KEY 
;SET FLAGS 
;AND RETURN 

; VALUE FOR DELAY ROUTINE 
; ROM'S DELAY ROUTINE 
; DELAY ABOUT 100 mS . 



00000 TOTAL ERRORS 



Program Listing 4 



Setup, Unset, and Swap to use the rou- 
tine from Basic. 

Listing 4 contains many interesting 
features. First, the Setup routine, which 
saves the current driver address and 
puts the address of Test in its place, 
checks to be sure the routine is not ini- 
tialized. Without this check, a second 
call to Setup causes the keyboard driver 
to enter an endless loop because the 
Return address would be set to Test. 

Also, note that a machine-language 
routine must call Setup, not Basic. 
Changing the driver address from Basic 
requires two POKEs. However, Basic 
scans the keyboard for a Break 
command or a SHIFT @ command 
after the first POKE, and uses the cur- 
rent (just changed) keyboard driver ad- 
dress. But the driver address is incorrect 
until after the second POKE, which 
probably won't be executed because the 
computer is lost in RAM, looking for a 
nonexistent driver. 

The Unset routine restores the 
original keyboard driver to the system. 
It is wise to include the routine before 
the end of the Basic program, or else the 
new driver routine remains active until a 
reset. If you should later load a new 
program over the driver, you face 
another potential hair-pulling disaster. 

The third section, Test, checks for the 
necessary Shift-Clear command that in- 
vokes the swap routine. The program 
checks for a Shift command first, then a 
Clear command. Notice that the check 
for a Shift command only considers a 
non-zero value in that row, ignoring the 
difference between the two Model III 
shift keys. If you have other special keys 
wired into the shift row, the check must 
be made more particular. If the shift 
and clear keys aren't pressed, control 
passes to the original driver through the 
address stored at Return. 

The fourth section of the routine, 
starting with line 480, is the screen swap 
driver. This routine is only reached 
when the shift and clear keys are pressed. 
First, the Swap routine is called (Swap is 
written as a subroutine so you can also 
call it from Basic during initialization). 
Then continuous calls are made to the 
Key routine until all keys are released. 
Third, a time delay routine is called to 
avoid key bounce during the key release. 

Next, the Key routine is again called 
continuously until you press any key to 
signal that you want to return to Basic. 
The screen is swapped back to its orig- 
inal state, and, as soon as you release 
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Written and Directed by the Reviewers and Editors of 
80 MICRO 

With an All-Star Cast of over 500 reviews of hardware, 
software and books. 



ACT I 
Scene One: 

(Lights up. JOHN DOE sits in front of his computer reading a thick book. A 
sledge hammer is embedded in the 34-column printer to his left. PETE SMITH 
enters STAGE RIGHT.) 



PETE: 
JOHN: 

PETE: 
JOHN: 

PETE: 

JOHN: 

PETE: 

JOHN: 

PETE: 
JOHN: 

PETE: 
JOHN: 

PETE: 
JOHN: 

PETE: 
JOHN. 



■^7 

Hi, John, what's new? 

(Without looking) Hi, Pete. Just choosing a new 

printer. 

What's wrong with the old one? 

Can't seem to get. the dpisy wheel past the sledge 

hammer. ~'s> 

Sledge hammer? What's tha.,.. >me new computer 

term? -'L 

(Looking at Pete for the first time) Pu /our glasses on, 

Pete. (Pete does so and sees the sledge i ;mmer) 

Wow! . . . (Crosses to printer) Boy, you' .„'re did a 

number on it! How many swings did it take? 

Just one. 

One?! That's pretty- impressive. 

Yeah, well I've had a lot of practice. Took me two or 

three swings to get the others. 

Others? How many have there been? 

(Staring off into space) Let's see. . . two printers, three 

modems, one joystick and a couple of cassettes. 

That's a lot of money down the tubes. 

I know. That's why I'm making sure I get my money's 

worth this time. 

i low? 

With this. (He holds up the book) 



PETE: (Reading cover) The 80 MICRO Review Guide? 

JOHN: Brand new. Over 500 reviews of hardware, software 
and books. All encapsulated from the pages of 80 
MICRO, and all with this quick-comparison 5-star 
rating system. I can compare printers, modems, 
joysticks, games, word processing programs, business 
programs, books on language and programming — 

PETE: Must have cost you a pretty penny. 

JOHN: Nope. Just $7.95. 

PETE: That's all? How can I get one? 

JOHN: You got the latest issue of 80 MICRO? (PETE nods) 
Just use the order card or the coupon in there. Or call 
toll free 1-800-258-5473 and use your MasterCard, 
VISA, or American Express. 

PETE: Sounds easy enough. 

JOHN: It is. And this Review Guide is great. I already saved 
more than the cost of the book when I used it to get 
that disk drive unit over there. Hey, where are you 
going? 

PETE: To order my 80 MICRO Review Guide. 

JOHN: But, Pete— 

PETE: Don't worry. I'll bring the sledge hammer back as 
soon as I'm done with it. 
(Lights fade as Pete exits STAGE BIGHT) 



L'lYes, I want to order the 80 MICRO Review Guide. 
Please send me Review Guides at $7.95 each. (Please add $1.50 per book shipping and handling) 

DCheck enclosed DMO DMC DVTSA DAE 

Card# 1^ Exp. Date , 

Signature 1^ . . 

Name : : 

Address 

City 



State. 



_Zip Code. 



Wayne Green Inc • 80 Pine St • Peterborough, NH 03458 

ATTN: Marcia Stone 



80RG8 



Your Review Guide will be shipped by August I, 198.3. 



Please allow 6-8 weeks for delivery. 



80 Micro, August 1983 • 35 




THE NEXT STEP 



One call 
to the ITM experts 

gets you 

the right software 

at the 

right price . . . 

in less 

than 20 minutes. 

Expertise 

and low prices 

are just 

two reasons you 

should call 

ITM first. 

For 

complete information 

and the eight 

other reasons 

call toll free 

today. 



software buyin 

800-334 




IN CALIFORNIA CALL 




ITM 

986 Dewing Ave. -uite E 
Lafayette, CA 94549 
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the key, control returns to Basic. 

The key checks could call the ROM 
routine at 002BH, which scans the key- 
board and returns the value of any 
pressed key in the A register; pressing 
the shift and clear keys a second time, 
however, makes the program double 
back on itself because it's still in the 
keyboard driver line. Therefore, the 
program checks the keyboard by scan- 
ning byte 3BFFH, the only byte that is 
always non-zero with a key pressed. The 
final delay routine sets the A register to 
zero and triggers the Z flag. No other 
manipulation of these two registers is 
necessary to notify Basic that no key is 
pressed. Basic continues on its way with- 
out knowing the routine was invoked. 

Though the machine language por- 
tion of the routine uses only 97 bytes, 
the entire routine requires 1,121 bytes 
because of the necessary buffer for the 
save screen. Despite its relatively large 
memory requirement, such a routine 
probably saves memory space compared 
to other forms of self-documentation. 

The process for using the swap driver 
in a program is straightforward if you 
record the three addresses from the 
symbol table during assembly. First, 
print the Help screen and then, with the 
USR command, call the Swap section 
of the routine. This stores your Help 
screen in the buffer and also transfers 
whatever garbage happens to be in the 
buffer to the video screen. Clear the 



screen and call Setup to initialize the 
Help feature. Sometime before the pro- 
gram ends, call Unset to clear Test from 
the keyboard driver chain. Program List- 
ing 5 shows how to use the program. 

You could invent many other types of 
auxiliary keyboard drivers for special 
purposes. For some applications, you 
might want to call the regular keyboard 
scan first and have your program take 
some action if a certain key or group of 
keys is pressed. For example, you could 
easily develop a routine that allows 
direct input of graphics or special 
characters from the keyboard. 

Also, you could redefine some of the 
unused control code characters. Press- 
ing the shift key, the down-arrow key, 
and any key from A-Z simultaneously 
produces the ASCII codes from 1-26 
At least half of these codes have no ..- 
feet during telecommunications. A pro- 
gram could call the regular driver and 
take various actions b?.r>ed on which 
control code is pressed. 

If you write ji unusual auxiliary 
driver you th.nk others might enjoy, 
send it *~ me. If I consider it to be of 
general interest, and if it works on the 
Model I and III, I'll include it in a future 
article so we can all experiment with it. ■ 

Write to Hardin Brothers at 280 
North Campus Ave., Upland, CA 
91 786, or contact him through Compu- 
Serve. His e-mail address is 72165, 735. 
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40 
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90 ' 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 



************************************* 

i * * 

'* SWAP Demonstration Program * 
i * * 

i************************************* 

1 NOTES — Load SWAP routine before running this program. 
1 See Table 1 to modify lines 160, 190, and 270 

for your system. 

CLS 

FOR 1= 1 TO 10 

PRINT TAB ( 1*3) ; "This is the Help Screen" 
NEXT I 

FOR 1=1 TO 200: NEXT 

PRINT: PRINT TAB ( 36) ; "Press any key to return." 
DEFUSR=&H7FE1 'Call SWAP routine 
A=USR(0) 
CLS 

DEFUSR=&H7B9F 'Call SETUP routine 
A=USR(0) 
FOR 1=1 TO 100 

K=K+2 

IF K>30 THEN K=0 

PRINT TAB(K) , "Press <SHIFT> <CLEAR> for help." 

FOR J=l TO 50: NEXT J 
NEXT I 

DEFUSR=&H7BB0 'Call UNSET routine 
A=USR(0) 

Program Listing 5 




IE MIM11MI/ AIB 

Checker 

Even Looks up Correct Spellings for you 1 

"Electric Webster is the Cadillac of vocabulary 
programs. . . If I could only have one, it would be 
Electric Webster. 
'80 Microcomputing, September 1982 



• INTEGRATES into 7 different word processing 
programs, (SuperScripsit, Scripsit, Newscript, Lazy 
Writer, Electric Pencil, Copy Art, Superscript). 

• SINGLE KEY OPERATION: You need only press a 
key and in moments, Electric Webster can actually be 
saving, proofing, correcting and hyphenating your 
text — all automatically. 

• 50K WORDS AND MANY MORE: You can view 
words in context, or add them to your dictionary at the 
stroke of a key. 

• VERIFIES CORRECTIONS: If you think you know 
the correct spelling of a word, EW will check it for you 
before it makes the corrections. 

• DISPLAYS DICTIONARY: If you don't know, EW 
will look up the correct spelling for you, and display the 
dictionary. 

• FAST CORRECTING: In as little as 30 seconds, 
Electric Webster can return you to your Word Processing 
program, with your text fully corrected and on your 
screen. 

• VOTED #1: If this sounds too good to believe, you 
don't need to take our word for it. Take the word of the 
thousands of 80 Micro readers who voted Electric 
Webster the #1 spelling checker. Take the word of the 
scores of professional software reviewers who have 
raved about Electric Webster. Or, ask your local 
computer or software dealer for a demonstration, and 
see for yourself! 



ACCLAIMED IN REVIEW AFTER REVIEW: 



Microproof: "There is simply no finer program 

available . . ." Creative Computing, March 1982 

Microproof: "This is a very useful product and should be 
obtained by anyone who uses a word processor." 
80 Microcomputing, August 1981 

Microproof: "The summary review of this program? 
One word— Excellent." 

Computronics, September 1981 

"Actually, Electric Webster is faster than its predecessor 
(Microproof). . . and spelling corrections are immediately 
verified against the dictionary before being accepted. . ." 
Microcomputing, September 1982 

My spelling book is now gathering dust. Electric 
Webster not only checks spelling, displays words in 
context and corrects errors in the text, but it will also 
immediately take you to the right place in a 50,000 word 
dictionary so you can check the correct spelling for 
yourself." Info World, August 1982 

"In my opinion, the perfect combination is 

Correcting Electric Webster with the hyphenation and 
grammar add-ons. To my surprise, it fills every 
reasonable expectation. It is fast, easy to use and 
accurate." Desktop Computing, December 1982 

LOW PRICES— Add features as you need them: 
Spelling Checker $ 89.99 (TRS-80) 

$149.50 (CP/M™ & PC DOS) 
Spelling Correction $59.99 — includes correction, 
dictionary lookup and 6 word processing 
integrations. 
Grammatical Checking $49.99 
Hyphenation $49.99 (included with CP/M™ & PC 
DOS) 
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Post Office Box 61 11 Albany, California 94706 • (415)524-8098 



The Ultimate 
PROOFING 
SYSTEM 



^See List of Advertisers on Page 323 
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What Is: 

■ Lightning Fast 

■ Powerful 

■ Awe-Inspiring 

CEC Introduces 




Editor Assembler 



■ Loads source text in seconds. 

■ Utilizes 75% of disk space vs. EDTASM format. 

* Creates object code for 794 instructions (EDTASM 696). 

■ Creates object code 2)4 to 3 1 /2 times faster. 

Why Do You Need It: 

We think it is the Most powerful Editor Assembler 
in the Universe! 



o 






which includes an operating V +/ 

system that will BOOT and 

run in the Model I, III &4! * 
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Add $3.00 shipping/handling, 
foreign orders add $10.00. 
Michigan residents add 4% 
sales tax. COD add $1.50. 
Model I orders specify single, 
double or P density. Personal 
checks take two weeks to clear. 
VISA & MasterCard accepted. 




COSMOPOLITAN ELECTRONICS CORPORATION 

5700 PLYMOUTH RD. 

ANN ARBOR, Ml 48105 



TECHNICAL LINE (313) 668-6660 



TOLL-FREE ORDERS: 800-392-3785 



DEALER INQUIRES WELCOME 
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by Dan Keen and Dave Dischert 



Are you confused by all the versions 
of TRSDOS? Should you use ver- 
sion 1.0, 1.1, 1.2, 1.3, 2.0a, 2.0b, II, 
HD, 4.1, 4.2, or 16? 

The original Model II TRSDOS was 
version 1.0. Later improvements and 
fixes yielded versions 1.1, 1.2, and 1.3. 
The only time you'll see these versions is 
if you purchase software originally de- 
signed for the Model II. Should you buy 
a program on such a disk, leave it there. 
The program was written and debugged 
on that version and you can be sure it 
functions correctly. 

The newest Model II version is 
TRSDOS 2.0. A letter suffix indicates 
whether it will run on the Model II, 12, 
or 16. TRSDOS 2.0a is for the Model 
II, although 2.0b also runs on it. But 
2.0b must be in control if the disk is 
used on the Model 12 or 16. 

To convert a 2.0a disk into a 2.0b, 
simply type DO THINL1NE from the 
TRSDOS Ready mode. Then reset and 
the version number changes right on the 
screen. 

Model 12 and 16 disk drives shut off 
if they are not addressed within 20 
seconds of the last access. The idea is to 
save wear and tear on the disk and the 
drive mechanism. However, if disk in- 
put or output is required, the motor turns 
on and the disks must be brought up to 
speed before the system accesses them. 




TRSDOS 2.0b instructs the computer 
to wait 8/10 second. If operating time is 
a factor on your Model II, though, you 
should use version 2.0a. This speeds up 
disk I/O since there is no delay in ac- 
cessing the disk. To convert 2.0b to 
2.0a, type DO UNTHIN from the 
TRSDOS Ready mode. 

One final note: Version 2.0 does not 
support double-sided disks. 

When Radio Shack brought their 
first hard disk out on the market, they 
needed an operating system to control 
it. Thus, TRSDOS HD was born. 

The latest Model 1 2 and 16 disk oper- 
ating system is version 4.2. TRSDOS 



HD is extinct. The hard-disk operating 
system is built into version 4.2. As you 
might have guessed, version 4.2 replaces 
version 4. 1 , which made its debut when 
the Model 16 came out last year. The 
Model 16 owner's manual sometimes 
refers to TRSDOS 4.2 as TRSDOS II. 

Version 4.2 uses disk space most effi- 
ciently of any TRSDOS to date. It sup- 
ports double-sided disks. 

You cannot use just any disk to re- 
cord data on both of its sides. The in- 
dexing sector hole on the disk appears at 
different locations on single- and dou- 
ble-sided disks. If the computer detects 
a double-sided disk, it automatically 
writes to the other side when side 1 
is full. 

TRSDOS 16, which is part of the ver- 
sion 4.2 disk, controls the MC68000 mi- 
croprocessor in the Model 16, 11/16, 
and 12/16 machines. 

In summary, if you have a Model II, 
you should be using TRSDOS 2.0a. If 
you have a Model 12 or 16, use version 
4.2 (TRSDOS II). Versions 2.0 and 4.2 
address the Z80 microprocessor. Use 
TRSDOS 16 when dealing with the 
MC68000. 

TRSDOS 2.0 and 4.2 format disks 
differently — version 4.2 uses disk space 
more efficiently. However, you can 
transfer programs and files between the 
two with the command FCOPY.B 

Continues on p. 42 




Photo 1. Model 16 CPU circuit board. Arrow indicates MC68000. (Photo by George M. Keen.) 
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'THE RESULTS ARE IMPRESSIVE. 

— Dennis Kitsz, 80 Microcomputing; 12/82 



Langley-St. Clair's* Soft-View 

Replacement CRTs 

eliminates the strobe, 
flicker and fatigue 
from TRS-80's: 

Mow you can upgrade your monitor with 
the new medium persistence green or 
amber phosphor tube. 

State-of-the-art systems such as IBM" 
and Apple III 1 "" do not use the less costly 
"P4" B&W display tube because it is 
actually intended for TV viewing and its 
rapid strobes (60 times per second) 
cause irritating eye fatigue. 

No amount of "green plastic" will solve 
this problem. But the new SoftA/iew 
CRT display tube from Langley-St. Clair 
will. 






Available in slow decay Green or medium decay 
"European Amber" (the standard in Europe) 

• Made with Lead/Strontium impregnated glass that 
stops X-ray emission. 

Of high-contrast face glass that also stops most 
CJ.V. radiation. 

Available in frosted glass with extra Anti-Glare 
benefits. 

• Easily installed... comes with pre-mounted 
hardware. 

Warranted for one full year against manufacturing 
defects or tube failure. 

The finest quality double-dark glass phosphor 
fields to produce dramatic contrast. 

• Ideal for Word Processing and Programming, yet 
fast enough for Games and Graphics. 



lsis Soft* View v crts 

D "GN42 Green Phosphor $79,95 

□ "GN42G Green Phosphor w/Anti-Glare $89.95 

□ "OR34 Amber Phosphor $89.95 
D "OR34G Amber Phosphor w/ Anti-Glare $99.95 

also available: 
n "R22G Red Phosphor w/ Anti-Glare '■i'/i'r, 

□ "B22G Blue Phosphor w/Anti -Glare $139.95 

Plus: $7.00 for packing and UPS Shipping 

$ 1 7.00 for Overseas, Parcel Post or GPS Blue Label 
Add Sales Tax where applicable. 
(Inquire about the CRTs we have available for 
many other c omputer models) 



For MasterCard and Visa Orders only, call 

800/221-7070^876) 

Langley-St. Clair Instrumentation Systems, Inc. 

132 West 24th St., New York, N.Y. 1001 1 




Actual unretouched photo. 
* Worlds largest supplier of upgraded replacement CRT's. 

Soft-View, IBM. Apple and TRS-80 and trademarks ol LSIS, IBM. Apple Computer and Tandy Corp. 
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Photo 1 shows the MC68000 board 
used in the Model 16, 11/16, and 
12/16. The arrow points out the mi- 
croprocessor. Physically, it is a very 
big chip compared to typical integrat- 
ed circuits. The sheer number of input 
and output connections accounts for 
its large size. 

The 68000 offers an abundance 
of general-purpose registers, named 
A0-A7 and D0-D7. Each register can 
store up to 4 bytes of data. 

The term "addressing mode" refers 
to the microprocessor's instructions 
and the syntax needed to address the 
MPU (microprocessor unit) registers. 

The MC68000 instruction set is sim- 
ilar to those of most other micropro- 
cessors. However, there is one new 
factor. Instructions need a suffix that 
tells the computer how many bytes of 
the register are to be acted upon. 
These suffixes are labeled B to repre- 
sent a byte operation, W for 2 bytes (a 
word), and L for a long word or 4 
bytes. 

The statement LOW .A0,#5 acts on 
2 bytes (a word). Address register A0 
is loaded directly with the decimal 
number 5. Since the suffix is W, the 
upper byte of the word is filled with a 
zero. You cannot be sure of the values 
stored in the other 2 bytes of the regis- 
ter, however. If you want to be certain 
that the register's 4 bytes contain only 
a value of 5, specify LDL instead of 
LDW. 



In keeping with Z80 load format, 
the operand of the LD statement con- 
tains the destination register and 
source value (or source register) sepa- 
rated by a comma. The source appears 
to the right of the comma in parallel 
with Z80 programming. This is true 
for all MC68000 op codes with one ex- 
ception, STore. Like the load instruc- 
tion, it places values in registers. The 
syntax for STore is ST source, destina- 
tion. You must use B, W, or L to in- 
dicate the number of bytes affected by 
the operation. 

In the LD example, a pound sign (#) 
tells the processor to treat the follow- 
ing entity as a number. Otherwise, it is 
a memory location. 

Finally, the period in front of regis- 
ter A0 indicates direct register address- 
ing while an @ sign denotes direct ad- 
dressing. Direct addressing means to 
place the value from the source direct- 
ly into the register specified in the 
destination position of the operand. 

LD is used for direct register ad- 
dressing, and the op code MOV (for 
MOVe) is for indirect operations. For 
instance, LDA .AO.STORAGE AREA 
loads the memory address location of 
this section of the program given the 
identifying label STORAGE AREA. 
LDA is a complete instruction to load 
an address location into a register. 
Since memory addresses are 4 bytes 
long, the instruction always works on 
the entire register and requires no B, 



W, or L suffix. 

Let's go one step further and load 
the decimal number 5 into the memory 
address whose location was defined 
with the label STORAGE AREA. The 
address was loaded into register 
A0 using the instruction LDA 
. A0,STORAGE AREA. Now the pro- 
gram must load the number 5 into the 
memory location to the address indi- 
cated by the value stored in A0. In 
other words, A0 points to the destina- 
tion. The register itself is not to receive 
the 5. Because the @ sign represents 
the indirect addressing mode, the 
routine might look like this: 



LDA .A0,STORAGE AREA 

MOVW @A0,#5 



It is standard practice to use the suf- 
fix W on loads and moves even when 
you are loading only 1 byte. A W 
forces a zero into the second upper byte 
of the register. Most op codes work on 
a word, in contrast to 8-bit MPU's 
which handle 1 -byte instructions. 

The MC68000 places all instruc- 
tions in even memory address loca- 
tions. A good reason for defining a 
word instead of a byte when setting 
aside memory as storage areas for text 
or numeric data is to ensure even 
placement of instructions that appear 
later. ■ 
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• Enclosures 

and power supplies 

with or without drives. 

• Low minimum orders. 

Attractive quantity pricing. 

• Durable, textured, color compatible 

finish looks great on your display counter! 

• Fully engineered product, high reliability design. 

►NOW AVAILABLE IN QUANTITY: DUAL TEAC FD-55 

VERTICAL ENCLOSURE WITH OR WITHOUT FILLER PLATE, 

SINGLE OR DUAL TEAC FD-55 HORIZONTAL ENCLOSURE. 

• All standard configurations also available. 



Ann Arbor Precision 

7536 Jackson Road 
Ann Arbor, Ml 48103 
Order Desk: 9-5 EST 
(313)426-5477 Mon-Thu 




'Precision — Since 1977' 



wa mmmmm 
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New Release 

Now supports Mailing Lists, Form Letters, 
"ZAP-PROCESSING", and 18 more printer drivers. 



STILL ONLY 

$69.95 

IF YOU STILL THINK YOU 
HAVE TO SPEND $200 FOR A 

GREAT WORD PROCESSING 
SYSTEM, THEN YOU NEED TO 
READ THIS AD!! 



agnificent 




ORD PROCESSING SYSTEM 



For the TRS-80 Model I and 



Supports over 50 different popular printers includ- 
ing OKIDATA Microline 80, 82A, 83A, 84A, Qume, 
Centronics 737, 739, Radio Shack Line Printer IV, 
VI, Daisy Wheel II, EPSON MX-80, MX-100, Graftrax, 
Graftrax Plus, Gemini-10, Gemini-15, NEC PC- 
8023A-C, Spinwriter 5510, 5515, 5520, 5525, C. Itoh 
Prowriter 8510, Starwriter FP-1500, F-10, Tec 8500R, 
Smith-Corona TP-1, Brother HR-1, COMREX Com- 
Riter CR-1, IDS Microprism 480, and Diablo 630. 
Supports proportional space right-margin justifying 
on Centronics 737, 739, Radio Shack Line Printer IV, 
Daisy Wheel II, Graftrax Plus, NEC PC-8023A-C, 
Spinwriter 5510, 5515, 5520, 5525, C. Itoh Prowriter 
8510, Starwriter FP-1500, F-10, and Diablo 630. 
Powerful Mailing List and Mail-Merge capabilities 
for personalizing standard legal documents and 
Form Letters, handling infinite number of data 
records per run, infinite number of data fields per 
data record, and data fields as large as up to 1000 
characters each. 

Brand new feature called "ZAP-PROCESSING", 
allows you to display and edit any type of data or 
program file in "ZAP" (byte-hexidecimal) format. 
Any character or symbol your printer can print, even 
dot graphics, can be used in mid-line printing with 
the Special Character feature. 
Written in fast Z80 machine language with type- 
ahead key-stroke buffering for speed typing. 
Single key-stroke control of all editing functions 
for ease of use. 

Continuous on-screen display of word count, line 
count, and free memory count. 



Superscripts, subscripts, underlined, bolded, ex- 
panded and condensed type styles - combine and 
intermix within a line. 

Automatically justifies and word-wraps on the screen 
as you type. 

Search, Replace, and Global Search and Replace. 
Odd and even page user-definable headers, footers, 
and page number lines, with automatic page 
numbering. 

User-definable linespacing, sheet size, top, bottom, 
left, and right margins. 

Move blocks of text and copy blocks of text from 
disk, to disk, and within the text. 
Examine disk directory on any disk and kill files 
while editing. 

Powerful full-screen editing features for EDTASM 
and BASIC files, including automatic renumbering 
of lines. 

Built in function to dump contents of screen to 
printer. 

Print-previewing formats text, inserts headers, 
automatically numbers pages, etc. on the screen 
without printing it on paper. 

Page by page pausing capability for sheet fed 
printers. 

Supports both parallel and serial printers. 
Printer control code access. 

Works with NEWDOS, NEWDOS80, TRSDOS, 
MULTIDOS, LDOS, and DOSPLUS - Single or 
Double Density. 

Compatible with most all available spelling checker 
programs. 



GUARANTEE 



Many word processing systems claim theirs are the best, but few would dare guarantee them. 

Not us! We are confident that 20RLOF is the most useful word processing system on the market 

for under $200. If you don't agree, return it within 30 days for a full refund. 



Add $2.00 shipping & handling. Florida residents add 5% sales tax. Checks require 3 weeks to clear banks. 





ANITEK SOFTWARE PRODUCTS □ P.O. BOX 1136 □ MELBOURNE, FL. 32935 □ (305)259-9397 
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by Scott Norman 



I'd like to tie this edition of The 
Color Key into the games theme of 
the August issue. This presents certain 
problems: I'm not much of a game 
player. 

I do have a soft spot for Pac Attack 
and Doodle Bug. I've even taken on 
Zaxxon or Defense to satisfy some 
primitive blood lust, but I yield to the 
kids where any claim to dexterity is 
concerned. 

And forget adventure games. I've al- 
ready spent too long stumbling around 
one isolated sector of Aardvark's 
Circleworld, and that's my most suc- 
cessful encounter with the type! I have a 
tough time getting interested in screen 
after screen of text when I know what 
else the CoCo can do. 

All of which gives me the structure 
for this column: a little on games, much 
more on the graphics that give them 
their appeal. 

A Radar Routine 

I might not be too big on games, but 
simulations are for grownups. My life- 
long enthusiasm for aircraft, and so for 
flight simulators of all types, sets me to 
thinking about CoCo graphics as ap- 
plied to war games (I mean tactical and 
strategic simulations). 

I've been flirting with the idea of 
writing a complex simulation of the 
Battle of Britain. The setting of Batlbrit 
(I already have the file name) will be the 
RAF (Royal Air Force) War Room, with 
the computer providing a real-time radar 
display of the battle area: much of 
England's southern Channel coast, in- 
cluding cities and airfields. 

British radar picks up the incoming 
Luftwaffe formations, and the player 
has to allocate fighter resources to inter- 
cept them. This provides possibilities 
for strategic considerations and the use 
of historical data. 

I plan to use the short routine in the 
Program Listing as the basis of the 
radar display. It needs some polishing; 
the array that stores the formation 
could be defined more efficiently, that's 
clearly not the English coast on the 
screen, and eventually I'll have mul- 
tiple aircraft formations present at any 
given time. 

Perhaps the game writers among you 
can see other uses for the routine even 
now. It's based on combining Extended 
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the Color 

Computer 



Color Basic's Get and Put commands 
for simulating motion with periodic 
screen clearing to provide a satisfactory 
radar effect. A given return stays fixed 
on the screen until the next sweep of the 
beam, then you see its new position. 

The listing defines the fictitious 
coastline as a string variable, CL$, so 
you can use it in multiple Draw state- 
ments without a lot of retyping. 

The M, or Move, subcommand with- 
in the definition of CL$ allows you to 
draw lines at practically any angle; 
otherwise, oblique lines would be re- 
stricted to the 45-degree positions of the 
E, F, G, and H subcommands. 

The little routine between lines 130 
and 160 is useful for constructing a 
fuzzy radar return for the incoming air- 
craft. Line 150 defines the fuzziness. 
Use numbers less than 0.9 to fill more of 
the array. 

Line 240 sets the speed and direction 
for the radar signal's movement across 
the screen. I included the random term 
in the expression for DY to make it 
harder to predict where the incoming 
formation would cross the coast. 

At this stage of the full-blown game, 
computer-generated Luftwaffe strategy 
inserts predefined course changes for 
the bomber fleets. 

Lines 240-320 draw successive radar 
scans. The PCLS blink in line 250 adds 
realism. If you find it bothersome, you 
can delete lines 250 and 260, and blank 
out the old radar return by putting a 
blank rectangle on top of it before writ- 



ing the updated signal onto the screen. 

Line 270 allows the coastline to show 
up before the aircraft do; I now think 
the display looks better without this ef- 
fect, and might get rid of the line in fu- 
ture work. Line 500 is an endless loop to 
freeze the final display. 

It's taken longer to describe the rou- 
tine than to write it. If these techniques 
still leave you cold, I recommend a cou- 
ple of good references. 

Color Computer Graphics, by Wil- 
liam Barden, Jr., is available for $5.95 
at Radio Shack Computer Centers. The 
book is for the Basic programmer. 
Barden's usual style comes through; he 
might succeed in making Video Display 
Generator (VDG) and Synchronous 
Address Multiplexer (SAM) program- 
ming comprehensible. 

Assembly Language Graphics for the 
TRS-80 Color Computer, by Don and 
Kurt Inman, is from Reston Publishing 
Co., Reston, VA, for $14.95. It's much 
headier stuff. The Inmans use sound 
and graphics as the most attractive 
vehicles for teaching Assembly lan- 
guage. Much of the book discusses put- 
ting text on the screen when using a 
graphics display mode, which leads me 
neatly to my next topic. 

Using the Keyboard with Graphics 

In many games, the player wants to 
enter keyboard commands while retain- 
ing a high-resolution graphics display. 
That's how the RAF commander will 
direct his forces in my Battle of Britain 
simulation. A normal input command 
won't work, since it causes the machine 
to revert to the text display mode. 

In last month's column, I discussed 
Arizin Inc.'s Colorkit utility (P.O. Box 
8825, Scottsdale, AZ 85252). The 
.TXOF command defeats the reversion 
to text display when an input is en- 
countered. 

To use this in Batlbrit, I could have 
the display freeze as a signal for key- 
board input. Hitting enter restarts the 
display, while the program parses the 
input string and takes appropriate 
action. 

Handy as these utilities are, it's unre- 
alistic to expect prospective game 
players to rush out and buy Colorkit; 
besides, it takes up about 5K of RAM 
that might not be available. Finally, 
you'd have to make the keyboard en- 
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Omniterm is the most flexible, powerful 
terminal program you can buy. Omniterm lets you 
adapt your TRS-80 to communicate with 99.9% of 
the world's computers. Your company's mainframe, 
for example. Or any other personal computer, time- 
sharing computer, or communications service. 

Omniterm overcomes incompatibilities in 
screen formats, baud rates, character sets, control 
codes and file transfer protocols. Seven complete 
translation tables let you change any character, for 
complete compatibility of all input and output 
devices. Omniterm is so flexible, users have even 
set up their ASCII-coded systems to communicate 
with EBCDIC-coded systems. 

You can send all ASCII characters, even those 
that aren't on your keyboard. Reformat your screen 
to neatly accommodate any line length. Run your 
printer while you're sending or receiving data. 
And even review data that's scrolled off the top 
of the screen. 

Omniterm 's well-thought-out design makes it 
easy to use. You can get a status display of all func- 
tions while on line to tell you what's going on, and 
make any changes at the same time. You can create 
a special file of your settings to make it easier next 
time. You also get X/Y cursor control, single keystroke 
sign-on and auto-dialing. Even a phone directory. 
And lots more. 



You don't have to be a computer expert to use 
Omniterm. Just spend a day with what the review- 
ers call "the best manual in the business." Then if 
you need helpjust call, write, or contact us via 
CompuServe, Delphi, or Source. 

Omniterm is the proven terminal program. The 
program thousands of people have used success- 
fully. And the one the editors call the "top program 
available" (Byte, 80-Micro, Infoworld, etc.) 

Omniterm comes complete with sample setting 
files, conversion utilities, a practical text editor, seven 
translation tables, and a 76-page manual with index. 

Available at leading dealers, or prompt shipment 
on direct phone and mail orders. Order Omniterm, 
for a super-smart TRS-80 that's putty in your hands. 





Only S95 for TRS-80 Models I, III or 4 (32K memory, 
one disk minimum). $175 for Models II, 12 or 16 
(64K memory minimum). (In Mass., add 5% sales 
tax.) MasterCard, VISA, and C.O.D. 
IBM PC version coming soon. 
DEALER INQUIRIES INVITED. 



Telephone: (61 7) 852-0233 
CompuServe: 70310,267 
Source: TCA818 
Delphi: Lindbergh 




gindbergh Systei 

49 Beechmont St., Worcester, MA 1 609 
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tries blind; Colorkit doesn't have a way 
of echoing them to the high-resolution 
screen. 

However, you can still use the 
INKEY$ function to interpret keyboard 
input one character at a time, even when 
a graphics display is up. A screen echo is 
also easy to arrange. Have the pro- 
gram draw a high-resolution graphics 
representation of the character whose 
key you just pressed. I've published one 
such character set (80 Micro, Anniver- 
sary Issue 1983, p. 469). 

You can also retain use of the enter 
key for command termination. If 
PEEK(338)=191, that's enter. If 
PEEK(339) = 191 , you've pressed clear. 
That might be handy to rectify a typing 
error; if the machine detects a clear, it 
should ignore everything entered up to 
that point and start over. 

Information of this sort is readily 
available from the many CoCo key- 
board maps produced over the past few 
years. The first one in my files appeared 
in "The Color Computer" by Philip 
Martel and Robert Nicholas (80 Micro- 
computing, June 1981, p. 206). 

Some Graphics Editors 

One of my first projects after adding 
joysticks to my computer was writing a 
paintbrush program to create low-reso- 
lution graphics without squinting at 
graph paper or sweating out a mass of 
Pset commands. I even added a routine 
to save the video RAM data as an 
ASCII tape file. 

However, it's possible to do much 
more, and nowadays most software 
vendors have some sort of graphics 
editor in their portfolio. These vary 
from programs that let you create indi- 
vidual figures for incorporation into a 
game, to full-screen editors that do for 
graphics what a good word processor 
does for text. 

Larry Ashmun's Color Graphics 
Editor (CGE) from Soft Sector Market- 
ing (6250 Middlebelt, Garden City, Ml 
48135) gives you a small screen area in 
which to build a figure for use in a 
larger program. 

The disk version stores the graphics 
data as an ASCII file of Basic data 
statements, or as a file of Form Double 
Byte (FDB) directives for an Assembly 
language program. You even have a 
limited capability to check out anima- 
tion effects before committing your cre- 
ation to disk. 

A powerful feature of most graphics 
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10 ' "RADAR SCREEN" ROUTINE 

20 » 

30 ' 

40 » SETUP & DRAW "COASTLINE" 

50 PMODE 4,1: PCLS: SCREEN 1,0 

60 CL$="D4lFl0D5M-15,35Ll3D25G12U4M+6,-8U4L23M-40,79' 

70 DRAW "BM128,0;XCL$;" 

80 ' 

90 • 

100 » RESERVE ARRAY, CONSTRUCT 

110 • RANDOM "RADAR SIGNAL" 

120 DIM R(10,10) 

130 FOR X=246 TO 255 

140 FOR Y=0 TO 9 

150 IF RND(0) >0.9 THEN PSET(X,Y,1) 

160 NEXT Y,X 

180 ' 

190 ' 

200 ' MOVE "RADAR SIGNAL" ACROSS 

210 ' SCREEN 

220 GET (246,0)-(255,9) ,R,G 

230 X=246: Y=0 

240 DX=2: DY=1+RND(0) 

250 PCLS 

260 DRAW "BM128,0;XCL$;" 

270 FOR T=l TO 100: NEXT T 

280 X=X-DX: Y=Y+DY 

290 IF X<=0 OR Y>=181 THEN 500 

300 PUT(X,Y)-(X+9,Y+9) ,R,PSET 

310 FOR T=l TO 750:NEXT T 

320 GOTO 240 

500 GOTO 500 

Program Listing. Routine to Simulate a Radar Screen 



editors is the ability to program the 
VDG and SAM chips in nonstandard 
ways. If you've delved into CoCo 
graphics programming at the Assembly 
language level, you know that the Mi- 
crosoft interpreter accesses only certain 
setups, the four PMODEs of Extended 
Color Basic. 

Other graphics and semigraphics 
modes exist, and some nice effects are 
possible if you're willing to get involved 
with some of the details. How about the 
equivalent of PMODE 4 with three col- 
ors on a black background? 

CGE gets you started in the right di- 
rection, although the Basic programmer 
still has a lot of work to do. 

After loading the program, you have 
a choice of four modes, each with two 
color sets. In resolution, these corre- 
spond to PMODEs 1, 3, and 4, plus a 
128-by-64-element mode designated as 
2C. You then enter the edit mode, in 
which you create a shape for later use. 

The display gives you a rectangular 
graphics work area, plus a table of four 
two-digit columns. Each digit will later 
contain the hexadecimal (hex) represen- 
tation of the data stored in 1 byte, or 
four dots, of video memory. Each pair 



of bits controls the color of one dot. 
Thus, the first line of digits represents 
the first video line, and so on. 

There are two shape creation modes. 
In Dot/Draw, you move a flashing cur- 
sor within the work area and press num- 
ber keys to create color dots. (I could 
use it to create the aircraft formations in 
Batlbrit, for instance.) The numbers in 
the table change as you lay down dots. 

Hex/Direct Entry lets you write hex 
numbers directly into the table. This can 
be faster if you know the hex represen- 
tations of the colored dot patterns 
you want. 

However, I've found an effect similar 
to keybounce that limits the speed with 
which I can enter data in this mode. I 
suspect that this results from an insuffi- 
cient delay time in the keyboard scan- 
ning routine, and should be amenable 
to a software fix. 

CGE gives the programmer tools for 
filling the work area box with a solid 
background color, Exclusive ORing the 
box's contents with another color to 
change background and figure, and 
moving the figure within the box. 

You can use this to simulate anima- 
tion when combined with the four buf- 




Hoyle and Hoyle's Query! 2 
Database Management System 
makes record keeping affordable. 

What can Query! 2 do for you? Any information 
you ever recorded on 3x5 cards (or wished you 
had) from recipes to mail lists; from stocks and 
bonds or inventory to book or music collections; 
from church directories to medical research (at 
UNC and UT), Query! 2 owners have done it all - 
and more. 

Wouldn't it be nice to type in the beginning and 
ending date of next week and ask Query! 2 if 
anyone you know has a birthday or anniversary 
during that period? With our sensible $29.95 price 
tag and clear, concise manual, you can have 
Query! 2 performing like this in an hour. Use 
Query! 2 to organize your information into records 
with up to 255 fields (that's more lines than the 
average file card has) of up to 255 characters 
each. Add records (as many as your disk can 
hold) by following simple prompts. View your 
records and edit easily. Print them out in three 
different formats (one makes mail labels from the 
first seven fields — allowing you to still keep 
track of phone numbers, sales, service, products, 
etc.) Need your records in order? Query! 2 can sort 
on any field fast. Looking for one particular piece 



of information? Query! 2 will let you search on as 
many as 40 fields — so you can find a book even 
if you can't remember the title or author. 

Thousands of satisfied Heath/Zenith users dur- 
ing the past year have put Query! 2 to the test. 
"I stand in awe of you who produce programs 
such as Query! 2 " Dick Smith, Palo Alto, California 

"I want to thank you for developing this set of 
programs. I am very pleased to have a high quality 
database system at a very reasonable price." 

Rev. John F. Potter, Ringoes, NJ 

Now for the TRS-80 III, Apple Me, IBM-PC, 
Heath/Zenith and Standard 8" IBM format, CP/M. 
Query! 2 is sensible, fast (assembly language pro- 
grams), flexible, affordable, and at $29.95 you 
can't afford to wait! 

Call today for VISA, Mastercard, COD; or send 
check or money order to: 




SOFTWARE 



716 S. ELAM AVENUE 
GREENSBORO • NC • 27403 • 919/378-1050 
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fers CGE sets aside for storing the 
current contents of the box. You can se- 
quentially rotate the buffers' contents in 
and out of the work area, so you can see 
the effects of storing slightly different 
versions in each. 

Unfortunately, while CGE does make 
shape creation simple, incorporating 
the shapes into a Basic program is 
awkward. The Basic output option of 
disk CGE generates an ASCII file of 
data statements (line numbers 100, 110, 
and so on) that you must renumber and 
merge with the rest of your program. 

Then it's up to you to read the data 
into an array and use POKE or Get/Put 
to get it onto the screen. The tape ver- 
sion of the program can't even generate 
the file for you; you have to copy the 
data table by hand. 

There is no easy road to arcade-quali- 
ty animation for Basic programmers. If 
you want high speed, you have to use 
Assembly language. 

CGE author Ashmun doesn't duck 
this issue; he does provide an Assembly 
format option. I just think it's impor- 
tant to keep your expectations within 



bounds when considering the purchase 
of a software tool. 

Bob Crispen's Foxygraf (Computer- 
ware, Box 668, 4403 Manchester Ave., 
Encinitas, CA 92024; $29.95 tape, 
$34.95 disk) takes another tack. This is 
quite a comprehensive package, with a 
manual that features an excellent treat- 
ment of graphics in general and CoCo 
programming in particular. 

Few people have done a better job of 
describing the interactions between the 
three determinants of a CoCo display: 
page, the address of the top left corner 
of the screen; VDG mode, the vertical 
size of the screen and the vertical sepa- 
ration between bytes; and color set, 
which controls page width and pixels 
per byte. 

With Foxygraf, you can create im- 
ages on part or all of the screen, using 
the arrow keys and space bar to control 
a cursor of variable size. You can save 
the images to tape (with the cassette ver- 
sion of the program, anyway) and sub- 
sequently recall them. You can also in-, 
terface them to Extended Color Basic 
programs. 



Foxygraf gives the user an unusual 
degree of control over VDG and SAM 
programming. It has its own shorthand 
commands for drawing lines and ellip- 
ses, and for painting rectangular por- 
tions of a screen. 

You can define the cursor as a graph- 
ics block or any alphanumeric character 
received from the keyboard. This makes 
it possible to mix text with graphics in 
semigraphics modes. With practice you 
can get unusual effects, although it 
might not be possible to maintain them 
when recalling an image with Basic. 

Foxygraf also supplies complete real- 
time information about the parameters 
of the mode and screen in use. A query 
command lets you leave the graph- 
ics screen to examine and possibly 
change parameters without destroying 
your work. 

The program also keeps track of the 
cursor's position in two coordinate sys- 
tems: graphics screen rows and col- 
umns, and RAM addresses. This is 
handy for defining the portion of the 
screen you want to record. 

Images are recorded as binary files, 
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retrievable with CLOADM commands. 
They are not exactly the same as the files 
that Color Basic's CSAVEM pro- 
duces — there are extra bits in the header 
to set the graphics parameters — but 
they are readable. 

The task isn't completely trivial, since 
you must note and clear the required 
part of memory to avoid clobbering a 
program with the imagery. Foxygraf's 
thorough record-keeping seems to give 
the programmer the best possible 
chance of getting things right. 

The manual includes a tutorial and 
command summary, details of memory 
utilization, subroutine addresses, and 
other miscellany of interest to the 
experimenter. 

I've recently been using Computer- 
ware's other graphics editor, 3-D Draw- 
ing Board (16K tape, $24.95; 32K disk, 
$29.95). This is a very different animal: 
a tool for constructing wire frame draw- 
ings of three-dimensional objects, with 
the ability to view an object from differ- 
ent points in space. 

This amounts to a hands-on intro- 
duction to the world of computer-aided 
design, and it's a marvelous demonstra- 
tion of the Color Computer's powers. 
Of course, it's important to keep the 
program's limitations in mind (I almost 
said in the proper perspective). 

An object's shape is defined by a se- 
ries of cross sections, called z-cuts be- 
cause they are taken perpendicular to 
the z-axis of a Cartesian coordinate sys- 
tem. You must make each z-cut up of 
straight line segments. 

The computer's limited memory re- 
sults in limitations on the complexity of 
objects. In a 32K system, you can have 
no more than nine z-cuts, and the outline 
on each z-cut can have no more than 20 
nodes (corners, to be imprecise). 

The program, which I'll call 3-D from 
now on, is capable of connecting corre- 
sponding nodes on different z-cuts to 
give the finished image its wire frame 
appearance. Again, memory size rears 
its ugly head; you can have no more 
than 300 connections in a figure. 

You also have a limit on the number 
of nonprismatic connections, i.e., link- 
ages between dissimilar shapes. An 
example of a nonprismatic connection 
is that between the eaves of a house (a 
rectangular shape) and the ridge of 
the roof (a straight line). 3-D is limited 
to ten connecting lines in each such 
connection. 

Within these limitations, it's a terrific 

^See List of Advertisers on Page 323 



program. If you have the data, you can 
specify z-cut outlines by the coordinates 
of their nodes. If you don't have the 
data, you can draw the z-cuts with a 
joystick-controlled cursor in what looks 
like PMODE 4. 



". . . the subsequent use 
of files is a weak spot 
for many graphics editors. 



You can also mix the two input 
modes. If your object has a constant 
cross section, you can replicate z-cuts 
with a few keystrokes instead of re- 
drawing the figure. 

3-D shines in its ability to create dif- 
ferent views of an imaginary object. 
Once you've defined an object by 
z-cuts, you can use the CoCo's joysticks 
to conduct an imaginary flyaround. 

The right stick controls your view- 
point's horizontal and vertical position, 
while the left governs viewing distance 
and object rotation about the line of 
sight (equivalent to cocking your head 



to one side). 

You don't see continuous motion on 
the screen. In practice, you generate one 
view of your object, move the joysticks 
by a likely amount, and press the right 
stick's button to command a drawing 
from your new vantage point. If only 
the CoCo could use high-resolution 
light pen techniques . . . 

You can store objects constructed 
with 3D on tape or disk as ASCII files. 
In principle, other programs can read 
and manipulate these, although your 
math had better be good to do so. In 
fact, the subsequent use of files is a 
weak spot for many graphics editors. 

3-D still puts on quite a show. You 
wouldn't use it to design a space shuttle, 
or even next year's Chevy, but it can do 
wonders for a mind jaded by too many 
alien invaders. It's marvelous what you 
can do with a little trigonometry. ■ 

Scott Norman welcomes reader 
response to The Color Key. Write c/o 
80 Micro, 80 Pine St., Peterborough, 
NH 03458. 
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STATISTICAL ANALYSIS program data can be input from disk Gala files, the 
keyboard or PROFILE. Output to printer. 

As an option, output the results of SCATTERGRAM (new). HISTOGRAM (with or 
without shading), CORRELATION and TIME SERIES onto the Radio Shack 
MULTIPEN PLOTTER, or Houston Instruments HI-PLOT intelligent plotters. 



The Plotter option provides auto pen-changing auto-scaling and improved calculations o ! 
numerics. You can use the Plotter to provide graphs and legends which are accurate for 

scientific, business and technical presentations. Multiple copies can be created on 
paper or projection transparencies. 

■ Plotter driver subroutines are accessible for installation into 
other BASIC programs. Suggested corrections to the 
STATISTICAL-ANALYSIS program are provided. 

■ Illustrated manual included. Friendly software with easy 
installation and sample data file. Quick and efficient. 

■ 1 Disk, TRSDOS 2.0 format $99.00 /^nO\<^ 

TRS-80, TRSD0S, Radio Sfiack trademarks of TANDY Corporation. +* (^Q ^' ' 

• Libra Laboratories Inc. Ah rights reserved. ■* •• lAJNr.cy 

DEALER INQUIRIES INVITED 

TERMS: Orders shipped UPS free for M/C, VISA, 

check, or money order. • Orders shipped UPS S <SJ 

C.0.0, for P.O. No. • International orders /A V 






add 10% • Specify computer model. 
201-494-2224 



•131 



<$► 




80 Micro, August 1983 • 49 



REVIEWS 



edited by Lynne M. Patnode 




•k-k-kYi 

Prometheus 5 Hard Disk System 

Computex, division of 

World Wide Data Systems Inc. 

17321 El Camino Real 

Houston, TX 77058 

Model 111 

$1,495 

DOSPLUS 4.0 Hard Disk Operating 

System 

Micro-Systems Software Inc. 

4301-18 Oak Circle 

Boca Raton, FL 33431 

Models I and III 

$299.95 (included with Prometheus at 

no extra charge) 

by John Ratzlaff 



The Prometheus 5 Hard Disk Sys- 
tem is a relatively low -cost, mass- 
storage Model III system based on Win- 
chester technology. Its manufacturer, 
World Wide Data Systems Inc., is the 
parent company of Computex, which 
has been selling disk drive kits and other 
Model III add-ons for several years. 

I purchased a Prometheus 5, a 5- 
megabyte drive, for my Model III. The 
drive included DOSPLUS 4.0, the hard- 
drive operating system by Micro-Systems 
Software. Fortunately, DOSPLUS is 
my top choice among all available 
TRS-80 operating systems. 

Preparing the System 

Installing the Prometheus drive is 
simple. Plug a ribbon cable into the 
back of the drive and into the input/ 
output (I/O) connector on the bottom 
of the Model III. Then plug the power 
cord into the wall. 
50 • 80 Micro, August 1983 



The manual accompanying the hard 
disk (mine was a preliminary version) 
did not indicate which way to plug the 
cable into the drive (exiting to the left or 
right). I was wrong the first time, but 
when the computer didn't work, 1 re- 
versed the cable and it worked properly. 

The cable should exit to the right 
when viewed from the back. The manu- 
al indicates no harm is done if you plug 
it in backward. 

Installing the operating system is not 
so simple. First, use the CONFIG com- 
mand to set the various parameters for 
the hard drive, then format the drive 
using the HFORMAT utility. Transfer 
the system files using SYSGEN, then 
the rest of the files using Transfer. 
Finally, use CONFIG again to signal 
DOSPLUS that the system now resides 
on the hard disk. 

Once you format the hard drive, it is 
ready to store files, even before you 
transfer the system files. Since I was so 
excited to use my new hard drive, I 
saved a Basic program onto the newly 
formatted drive to see if it worked. And 
it did work! 

Unfortunately, when I proceeded with 
SYSGEN, it aborted with an error mes- 
sage. Figuring that 1 should use SYS- 
GEN without any files on the drive, 1 
killed the file I had saved and tried it 
again. 

This time it seemed to work, but 
when everything was finished I couldn't 
boot up from the hard drive. An "un- 
known error code" message appeared 
and the program booted from the flop- 
py disk. 

Neither the Prometheus nor the 
DOSPLUS manual provided pertinent 
suggestions, so I called Micro-Systems 
for advice. They suggested I reformat 
the disk and try again, because even a 
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killed file can cause problems with 
SYSGEN. 

It makes sense to me now: The sys- 
tem expects system files to occupy cer- 
tain places in the directory. Since a 
killed file still occupies a directory slot, 
one of the system files is forced to an 
improper slot. Anyway, everything 
worked fine after that. 

The Prometheus manual describes all 
the settings you use in configuring 
and formatting the hard drive. How- 
ever, DOSPLUS 4.0 has tremendous 
flexibility: You can configure the hard 
drive any way you want, within some 
limitations. 

The Prometheus 5 hard drive has one 
platter with 32 sectors per track, and 
320 cylinders on that platter. Other 
models in the Prometheus series have 
the same specifications, but they have 
more platters. The Prometheus 10 has 
two platters, for instance. 

The manual directs you to specify 32 
sectors per granule, or two granules per 
cylinder. Since the platter has two sides, 
each cylinder has two tracks, or 64 
sectors. 

If you recall that a granule is the 
smallest unit of disk space you can al- 
locate to a file, you will realize that it's a 
very large minimum file size. If you 
store a small Basic program on the disk, 
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it uses 8K of disk space. 

After some calculations, I decided 
that I wanted my granule size to be eight 
sectors, so 1 set GS = 8. This makes the 
minimum file size 2K. However, a 
smaller minimum file size allows more 
files on the disk, so I set the directory 
size to 32 sectors (22 sectors was the sug- 
gested size). This allows a maximum of 
240 files in the directory. 

DOSPLUS imposes several minor 
limitations. You can have no more than 
eight granules per cylinder, so my gran- 
ule size had to be eight or more. The 
directory cannot exceed the length of 
one track, which limits it to 32 sectors 
on the Prometheus. 

Incidentally, the DOSPLUS manual 
stresses that ideally the directory size 
should be one granule. I could find no 
reason for that, and allocating four 
granules for the directory has worked 
fine for me. 

Another important feature of DOS- 
PLUS is the ability to partition the hard 
drive into two or more pseudo drives. 
The Prometheus has 320 cylinders, so 
you must partition DOSPLUS because 
it accommodates no more than 200 
cylinders per drive. 

I decided to have my first drive (drive 
4) contain 120 cylinders, and the second 
drive contain 200 cylinders. I could cre- 
ate as many as three drives, as long as 
each drive had 100-200 cylinders. 

You partition the drive by specifying 
the base address in the CONFIG com- 
mand. The base address refers to the 
cylinder on which the pseudo drive be- 
gins. In my configuration, drive 4 has a 
base address of zero, while drive 5 has a 
base address of 120. 

When you've formatted the drive, 
specify how many cylinders to format 
for that drive. It is possible to create 
overlapping pseudo drives by using im- 
proper values with CONFIG and 
HFORMAT. The DOSPLUS manual 
warns you against such actions. 

The New World of Hard Drives 

Once you configure, format, and 
SYSGEN the hard drive, it's ready to 
act as the system drive. The Model III 
still tries to boot from the floppy disk in 
drive zero, so you must have a system 
disk in drive zero when you turn on the 
computer. 

When the operating system has read 
in enough of the system files from the 
floppy disk, its base of operations 
transfers to the hard drive (if so con- 



figured). All subsequent actions origi- 
nate from the hard drive, so library 
commands and utilities execute much 
faster, and you can remove the system 
disk from drive zero. 

Using the Master parameter in CON- 
FIG, you can also specify that all disk 
searches must begin with the hard drive 
or any drive you want. You can have 
the system consider drive 4 the default 
drive for DIR and other commands, 
and the starting point when searching 
for a file with an unspecified drive 
number. 

This speeds searches considerably, 
since the hard drive's response time is 
much shorter than that of floppy disk 
drives. However, if a search starts at 
drive 4, the system searches only the 
hard drives. If you want a file from 
drive zero or 1, you must specify the 
drive number. 

The hard disk's speed is impressive 
for two reasons. The disk is always ro- 
tating, eliminating the delay while it gets 
up to speed, and the disk rotates at 
3,600 revolutions per minute (rpm), al- 
lowing a much faster data transfer rate. 

However, track-to-track access time 
is not that much faster (3 milliseconds), 
so a lot of head travel results in a notice- 
able delay. For instance, during the 
search for a file, the head moves from 
the drive 4 directory (cylinder 60) to the 
drive 5 directory (cylinder 220). This 
travel over 160 tracks (and back again, 
if necessary) causes a delay of between 
one and two seconds. 

Such a delay also occurs during ac- 
cess to files on drive 5. The operating 
system usually consults one of the sys- 
tem files on drive 4 near the directory 
track, so the head travels back and forth 
between pseudo drives 4 and 5. 

This takes a bit longer than it does on 
floppy drives since the operating system 
would simply access another drive, re- 
ducing the necessary head travel. 

As the DOSPLUS manual states, 
"the name of the game" is minimizing 
head travel. A hard drive with more 
platters and fewer cylinders is faster 
than a drive with one platter and many 
cylinders (such as the Prometheus), all 
other things being equal. 

A hard drive with two platters and 
160 cylinders has the same capacity as 
the Prometheus drive, with only half 
the head travel. The difference is quite 
small, however, and is insignificant 
under most circumstances. 

Head travel aside, the fact is that a 



file loads from a hard disk much faster 
than from a floppy disk, typically in 
40-50 percent less time. It's not instan- 
taneous, but it is quicker. 

Space is the other main advantage of 
hard disks. Even after transferring 
nearly all my files to the hard drive, I 
still have over 4 megabytes of available 
memory. 

The drive accepts huge files as well as 
many files. It easily accommodates a 
monstrous data-base file that you 
would have to break into several parts 
and place on several disks with a floppy 
disk system. This makes the data base 
much easier to use. 

Back-up of the hard drive has tradi- 
tionally been a problem. Although the 
hard drive is much more reliable and 
not subject to the same physical abuses 
as floppy disks, it is still wise to back up 
your files periodically. 

DOSPLUS 4.0 does not provide a 
means of backing up the entire contents 
of the hard disk to floppy disks in one 
step. Two utilities, Transfer and 
HCOPY, back up files on the hard 
drives. 

Transfer copies all the files from one 
drive to another. Since the destination 
disk (a floppy) is obviously too small to 
hold them all, it lets you specify a class 
of files using wildcard file specs. 

For instance, "TRANSFER/BAS:4 
:1" transfers all the files ending with 
BAS (assuming they would all fit on the 
destination disk). If you can break 
down the set of files on the hard drive 
into subsets small enough to fit on flop- 
py drives, you can back them all up. 

Since the hard drive handles large 
files that wouldn't fit on a single floppy 
disk, the HCOPY utility breaks a file in- 
to pieces and saves each portion on a 
separate disk. It also reads those pieces 
back onto the hard drive and reassem- 
bles them into the original file. 

The floppy disks must be formatted 
and ready before HCOPY is run. When 
using HCOPY to read the file back in 
from floppy disks, enter the disk 
containing the last portion of the file 
last. Otherwise, you can present the disks 
to HCOPY in any order. 

The HZAP utility duplicates the 
functions of DISKZAP, a useful 
DOSPLUS disk-view-and-modify utility, 
except that it operates on the hard drive. 
Because of the many different hard 
drive systems available, you must use 
hard drive parameters that HZAP uses. 
It does not go by the settings in CON- 
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FIG. Tell it the number of platters, 

number of cylinders, sectors per track, 
track access time, and write pre-comp 
track each time you use it. 

That latter parameter is not ade- 
quately explained in either manual, so 1 
use the default setting. It would be nice 
to change the defaults so you would not 
have to specify the settings each time, 
but no provision is made for that. 

A more serious problem with HZAP 
is that it does not go higher than cylin- 
der 255, so you can't use it on the top 64 
cylinders of the Prometheus drive. 
Other drive brands that don't have more 
than 255 cylinders present no problem. 

DOSPLUS 4.0 provides a new direc- 
tory command, ACAT, for alphabeti- 
cal file catalog. DOSPLUS 3.4 and 4.0 
are otherwise identical except for the 
hard disk support. ACAT has an alpha- 
betically sorted catalog that makes it 
easier to find a specific file among the 
hundreds that could be in the directory. 

ACAT also accepts wildcard spec- 
ifications, displaying only the files 
that meet specified criteria. "ACAT 
A7/DAT" alphabetically displays all 
the files on the default drive that have 
file names beginning with A and ending 
with the extension DAT. 
• The sort is extremely quick, with 
practically no delay while sorting. This 
is an extremely useful function, 
although you cannot reliably call it 
from Basic because of the room re- 
quired to do the sort. 

When the hard drive is turned on, the 
LED on the front panel flashes until the 
drive is up to speed and ready. Wait 
until the hard drive is ready before at- 
tempting to boot from it. This usually 
takes less than 15 seconds. 

The hard drive case has a small cool- 
ing fan which, along with the constantly 
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Color Caterpillar 

Soft Sector Marketing Inc. 

P.O. Box 340 

Garden City, MI 48135 

Color Computer 

$21.95 cassette 

by Carlos Calle 

Color Caterpillar is an entertaining 
and fairly complicated game writ- 
ten in machine language for a Color 



rotating disk, produces a low whir. You 
can easily adjust to the noise and to the 
barely audible click as the head steps 
from track to track. The hard drive's 
overall sound is preferable to the inter- 
mittent whirring and clicking of a flop- 
py drive. 

Round-up 

The Prometheus 5 hard drive and 
DOSPLUS 4.0 make an excellent team, 
with only a few minor drawbacks. 
DOSPLUS is slightly harder to install 
than other hard-disk operating systems, 
precisely because it is more flexible. 

The Prometheus hard drive might be 
better off with two platters and fewer 
cylinders, but it is a terrific value con- 
sidering that it includes an excellent 
operating system at no extra cost, and it 
is priced much lower than most hard 
disk systems. 

Several competing hard-disk systems 
cost as much as $1 ,000 more and have no 
significant additional features. The 
Prometheus 10, with twice the capacity, 
costs only $200 more — an even better 
value! 

The only serious deficiency of 
DOSPLUS 4.0 is the need for a true 
back-up utility to copy all the files on 
the hard drive onto as many floppy 
disks as necessary. 

Micro-Systems has recently announced 
their latest operating system, DOSPLUS 
3.5, which should be available by 
the time you read this. They will 
no longer have a separate version for 
hard drives, but will provide add-on 
drivers to DOSPLUS 3.5 for hard-drive 
support. 

One important change is Micro- 
Systems' merging HZAP into DISK- 
ZAP, so the same program operates on 
both floppies and hard disks. ■ 



Computer with at least 16K. 

The program begins with a short in- 
troductory display of the title charac- 
ters, accompanied by sound effects that 
add to the overall pleasant presentation 
of the game. Armed with a gun con- 
trolled by the right joystick, you be- 
come the sole defendant of a valley un- 
der attack from menacing insects with 
uncanny reproductive abilities. 

You must shoot and destroy an ad- 
vancing caterpillar through the sur- 
rounding mushrooms. If you succeed, 
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FINGI 
printer into a more 
problem solving match for your com| 

FINGER PRINT is a plug-in module for your Epson 
printer that puts 10* special print functions at your 
fingertips. Tap your printer's panel buttons to 
instantly select the functions you need. 
It's that simple. But, seeing is believing... 




Want to use compressed to get ffiore columns on your spreadsheet 7 You got it 1 
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T i. r e d o f p r i n t i d q o n t. h e? p e r f a r a tic? n ? 
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Even combinations like doable emphasized italics are no problem/ 

That's just a sample of how FINGER PRINT turns your Epson MX 80/100 or IBM 
PC printer into a hard working printer.. .and FINGER PRINT has Buffer Clear and Left 
Margin Control, too! 

FINGER PRINT will not interfere with normal printer operation. ..and installs 
easily, without soldering. It comes with complete operating/installation instructions, 
control panel reference label, and it's WARRANTED FOR 1 FULL YEAR. 

*For Graftrax-Plus equipped printers. Italics and Fine Print cannot be selected on non-Graftrax-Plus models. 



$59.95 Look for FINGER PRINT at your 
local computer dealer. For the name of a 
dealer near you, or additional information, 
call (213) 914-5831. To order directly, 
call toll free: 800-835-2246, Ext. 441. MC/ 
Visa/COD orders accepted (include $1.50 
s/h...CA residents add sales tax). 
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Now you can try Pascal 
without spending a fortune! The 
Pascal 80 Trial Version is a 
reduced version of Pascal 80, and 
does not include pointer variables 
or disk files, and does not allow 
you to save your programs. But it 
does let you program in Pascal, 
list your programs to a printer, 
and even comes with a coupon 
worth $10 off the regular price of 
Pascal 80. This version of Pascal 
comes on a diskette that will boot 
on a Model I or Model III 
TRS-80. 

Here is what you get: — 

VARIABLE TYPES: real, in- 
teger, char, boolean, arrays, 
sets, records, and user de 
fined types. 

CONSTANTS: minint, pi, true, 
false, and user defined 
constants. 

OPERATORS: + - * / div mod 
comparison/set operators 
and or not. 

FUNCTIONS: abs sqr sqrt sin 
cos arctan exp In ord pred 
succ chr odd round trune. 

PROCEDURES: read readln 
write writeln 

STRUCTURES: if.. then.. else 
case for.. do while.. do 
repeat.. until goto 



Send $14.77 by check or money 
order to: 

Pascal 80 Trial Version 
New Classics Software 
239 Fox Hill Road 
Denville, NJ 07834 

Sorry, no credit card orders at 
this price! See our other ad for in- 
formation on our regular version 
of Pascal 80. 



N_EW CLASSICS 
SOFTWARE 

^S- — - — , : . ice 



the insect's remaining parts continue 
living and advance towards you. 

If you kill the monster before it gets 
to you, another one advances rapidly. 
The second caterpillar has a nasty assis- 
tant, a deadly beetle, that attacks you 
from unexpected directions. While 
you're busy staying alive, a tarantula 
joins your enemies in an attempt to 
devour you. 

Two players can use different joy- 
sticks to take turns for each round of a 
game. You score points by completely 
destroying a mushroom or by hitting a 
caterpillar segment, a beetle, or the ta- 



rantula. After you reach a score of 
10,000, you receive a bonus of one extra 
round. 

Magic mushrooms allow the cater- 
pillar to quickly dive towards you. 
Killer mushrooms break the caterpillar 
into segments that head down the 
screen. Regular mushrooms cause the 
caterpillar to turn away in the opposite 
direction. 

This is one of the most entertaining 
Color Computer games available. It com- 
bines exciting play, attractive graphics, 
and realistic sound effects in a profes- 
sional product. ■ 
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POWER! (Version 3.03, erroneously 

advertised as 3.3) 

COMPUTING! 

2519 Greenwich St. 

San Francisco, CA 94123 

$149 

by Charles R. Perelman 



POWER! is pure joy. It tames your 
CP/M until it's downright friendly, 
speeds up CP/M operations, reduces 
file name entry errors, and gives you a 
bushel of worthwhile utilities at a rea- 
sonable price. 

You'll put this 16K of software on all 
your system disks and wonder how you 
got along without it. Its flexibility and 
50 separate routines are a bargain. 
POWER !'s new version 3.03 improves 
an already fine package with greater fi- 
nesse, more features, and enhanced 
documentation. 

Using POWER! as a wraparound for 
CP/M gives added protection from nas- 
ty BDOS errors, even permitting re- 
moval of the system disk after booting. 
If you change disks and forget to hit 
control-C before writing to a disk, 
POWER! politely informs you to mend 
your ways without crashing the system. 

Commands 

POWER! supports most CP/M 



commands. Copy is a notable substitu- 
tion for the inscrutable Pip. You can 
use normal CP/M format, but 
POWER! syntax is usually shorter and 
faster. 

You'll feel comfortable with POWER! 
in no time at all, but to get maximum 
performance you must carefully review 
the manual and work with it, which is a 
pleasure compared to bare-bones 
CP/M. Wildcards are similar to CP/M 
usage but easier, friendlier, quicker, 
and more talented. Escape or control-C 
returns to POWER!, not CP/M. 

POWER! does most of the things 
you've always yearned for with CP/M. 
Individual utilities available from CP- 
MUG can't compare to the convenience 
of this error-trapped, documented, and 
coordinated composite system. 

For openers, DIR alphabetizes your 
files, shows all system and read-only 
files appropriately marked, and pauses 
to let you review a portion of the screen 
when the directory exceeds your ter- 
minal display area. 

Convenient wildcard functions dis- 
play directories by type or with the same 
initial letters. You can list all user areas 
or show directories for drives you've 
previously accessed, or for all user areas 
on all drives in your system. 

Sort lets you change the display so 
that DIR and other commands involv- 
ing file lists show system files last, 
sorted by file extension and alphabeti- 
cally; by file type, with system files last; 
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Affordable Alternative 






VERSI 
RS-80 OPERATING SYSTEM 
MODEL I AND III 



First Time Available to the Public Is This 

Unbelievably Priced Sub- Set* of the Renowned 

LDOS Operating System. 



Order Yours Today for Only $59.00 
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Shippings Handling 
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* Model-IE smal-LDOS provided on 40 track double density media. 
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* Prices & Specifications are subject to change without notice m ^y y « 
t Although not required, LSI recommends two or more drives when using smal-LDOS. /IMfS~* 
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SYSTEMS 
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(414)355-5454 



REVIEWS 



or unsorted. Such flexibility forces you 
to consider which alternative best serves 
your purposes. 

POWER! shines in day-to-day repeti- 
tive operations. To Copy, Erase, Type, 
SETSYS (make a system file), or 
SETRO (make file read only), start with 
a menu of files sorted alphabetically 
with assigned sequential numbers. 
Choose the numbers or ranges you 
want, press the enter key, and you get 
multiple processing of all selected files. 
This adds tremendous speed to your 
operations. 

You can choose whether to review 
each file in turn or continue automati- 
cally. You can even abort the operation 
in the middle of a file since the program 
keeps you informed of the file on which 
it's working. 

When you copy a file and a second file 
with the same name exists, you must de- 
cide whether to overwrite, skip, or make 
the destination disk file a BAK file. 

Other commands in which you select 
a file for operation use the numbered 
directory approach as well. You work 
more rapidly and make fewer mistakes 
when you type a number and not the en- 
tire file name. 

Like its CP/M counterpart, Type re- 
views files on the screen, but it stops to 
let you read each screen of text rather 
than testing your reflexes in hitting the 
hold key as the data flies by. Set Type 
for continuous scroll and you can in- 
crease or decrease scrolling speed by 
pressing a number. 

But wait, there's more. Press the 
space bar to scroll a line at a time, or to 
pause and use control-P for printing a 
specific section of a file. Besides stan- 
dard Type, TypeA lists text files without 
formatting commands in 16-character 
lines, TypeH displays COM files in hex- 
adecimal (hex), and TypeX is DDT (dy- 
namic debugging tool) style with print- 
able ASCII characters at the right side. 

If you're not sure which of several 
files has the data you need, select a 
group of likely candidates. Start re- 
viewing the first file with Type. As soon 
as you know you haven't found the 
right file, break out with control-K to 
immediately call up the next file in the 
queue. 

Erase a file by mistake? Reclaim dis- 
plays names of erased files and offers 
you the chance to revive them if you 
haven't written over the sectors. Recov- 
ered files are set to read-only status; you 
must reset to read/write to alter the 
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contents. 

Help is only a question mark away 
when entered from the command 
prompt. It saves flipping through the 
manual for proper entry if you forget 
a command name or mnemonic and 
get syntax errors. Help doesn't give 
you any clues to function operation, 
however. 

Run by itself produces a numbered 
menu of all executable COM files on a 
disk. You then choose any program. 
Follow Run with the program name or 
other parameters, and it works fine with 
WordStar or a spelling program. Ignore 
the $$$.SUB file in the WordStar direc- 
tory; POWER! created it to return to 
the program shell after you finish 
editing. 

When going back to POWER!, don't 
hit any keys until the sign-on prompt 
appears or you'll abort the submit file 
and wind up in CP/M. The alternative 
form can also directly call CBasic or 
MBasic and a user program, even if 
they are on another disk. 

POWER! segregates bad blocks with 
Test, generates checksums with Check 
to see if two files are exactly the same, 
and provides file size information in 
sectors and kilobytes with Size. Log 
controls a host of display and other op- 
tions and tells you where POWER! is 
located in memory. 

User and Xuser commands access 
user areas other than zero. Added capa- 
bilities include 32 user areas instead of 
16, file copy and move capabilities from 
one user area to another, and restricted 
access to programs in user areas 16-31 
with the Password command. 

Another practical tidbit is a unique 
customizing command: Pwretool. With 
a few keystrokes, you can change the 
name of any command. More impor- 
tant, you can delete or password-protect 
any command from your customized 
version of POWER ! . This helps prevent 
hitting the wrong keys and inadvertently 
making file changes or getting into a file- 
altering mode. 

Pwretool and Pass are separate from 
Power.COM. They run as COM files 
rather than within POWER!, and take 
up an additional 2K each. Excluding 
these programs from a protected disk 
prevents a snoopy user from altering 
protection levels. 

The Assembly language monitor rou- 
tines are a hacker's delight. Rather than 
struggle with DDT, use CM to compare 
two Assembly language programs and 



list the bytes that differ. DS displays one 
memory address at a time in both hex 
and decimal, and lets you change any 
byte within approximately 120 locations 
before or after your entry point. 

Search, which has wildcard func- 
tions, lists addresses of ASCII, hex, or 
combination groups of characters that 
match your key. POWER! lets you read 
from or write to any memory location, 
fill blocks of memory, move programs 
around in memory, duplicate blocks, 
and more. 

Do you want to add a few favorite 
routines of your own? User functions 
(UR 1 to UR4) allow you to jump within 
POWER! to your own utilities. 

Documentation 

The new spiral binding on the 
8'/2-by-l 1-inch manual makes it easy to 
read from a typing stand. Generous 
margins and spacing make it easy to 
scan or study. Besides a table of con- 
tents and an index titled "Function In- 
dex," the manual has an additional al- 
phabetized summary of all commands. 

Following a helpful introduction cov- 
ering manual organization, backing up, 
and similar start-up information, the 
manual has a general outline of pro- 
gram function, format, syntax, and 
scroll controls. 

Except for Password and Pwretool, 
each POWER! command is listed in al- 
phabetical order. Explanations include 
sample screens, descriptions of function 
use and syntax, and step by step instruc- 
tions. Some of the Assembly language 
commentary is a little terse and needs 
some expanding, but generally the in- 
formation is sufficiently detailed. 

A couple of pages contain sugges- 
tions for correcting problems that cause 
common error messages. You'll appre- 
ciate hints on applying POWER! to 
save crashed programs, glitched direc- 
tories, and files with bad blocks. You'll 
also have customization details for al- 
tering keyboard, video, and program 
operation, commands, and responses. 

The manual contains a wealth of in- 
formation in plain English, particularly 
for the more advanced programmer. 
This is truly exceptional documentation 
for such a program. 

I'm enthusiastic about POWER! and 
recommend it to any CP/M user with- 
out reservation. COMPUTING! guar- 
antees to refund your money if you're 
unhappy with the software. I think their 
money is safe.B 
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Gauntlet. The ultimate tank 
game for the Model I III. Fast, fun 

and exciting. 
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Microcomputers in Large 

Organizations 

by Thomas Madron 

Prentice-Hall Inc. 

Englewood Cliffs, NJ 07362 

Softcover, 181 pp. 

$12.95 

by Timothy Daniel 

A friend of mine who handles the 
care and feeding of a large com- 
pany's mainframe computer used to 
note gleefully that the managers in his 
organization had to sneak microcom- 
puters in the back door. Otherwise, they 
might incur the wrath of higher-ups for 
bringing toys to work. 

Times have changed; big business 
and government are taking the micro 
seriously. Microcomputers in Large Or- 
ganizations, by Thomas Madron, 



builds on this new legitimacy. 

This book should have a special place 
in the hearts of TRS-80 owners. The 
author makes a strong case for using 
Model Ills as executive work stations. 
He even includes a lengthy Basic pro- 
gram that acts as a master menu and ap- 
pointments calendar. Great stuff for 
the home hacker, but not necessarily the 
direction of tomorrow's automated 
office! 

Microcomputers in Large Organiza- 
tions seems to be based on thorough but 
somewhat dated research in hobby and 
trade literature. In his introduction, the 
author highlights the problems encoun- 
tered when micros supplement or replace 
traditional work methods. Topics in- 
clude planning for change, networking, 
and micro-mainframe communication. 

Once you get beyond the "Gee, 
aren't micros great" section, the book's 
lack of substance might disappoint 



you. Madron presents only two real-life 
cases. Each takes about two pages and 
neither is truly representative of micro 
integration into a large organization. 

The strongest selling point of this 
book is its unintentional but effective 
humor. I didn't know whether I should 
laugh or cry over the following state- 
ment about the IBM PC: "Although 
IBM announced some software for the 
system, substantial amounts of off-the- 
shelf software is not expected until the 
mid 1980's. ..." You can get informa- 
tion of equal integrity from a fortune 
cookie or Ouija board. 

The publisher's back-cover claim that 
Microcomputers in Large Organiza- 
tions is "the book that explains every- 
thing you need to know to use micro- 
computers in your business. . . " is one 
more rib tickler. But the joke's on you if 
you spend $12.95 to find out the punch 
line. ■ 
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Sneak Thief 

Soft Sector Marketing Inc. 

P.O. Box 340 

Garden City, MI 48135 

Model I and III 

$19.95 16K cassette 


thief, who then goes to the brig. 

If the thief succeeds in stealing a piece 
of gold, he turns into a fugitive and tries 
to escape through one of the doors. The 
fugitive seems to move aimlessly around 
the room until he goes through a door 
by chance. 


er at a time and each one becomes a 
thief. For his own protection, it's im- 
perative that the guard shoot the protec- 
tor as soon as possible. 

When the total number of intruders 
(thieves, fugitives, and protectors) cap- 
tured or shot equals 20, you've complet- 
ed a so-called wave. You receive bonus 


$21.95 32K disk 




points for all captured thieves, who then 
disappear from the brig. For each suc- 
cessive wave, the number of bonus 
points increases for each captured thief. 

After ten waves, the bonus points 
have doubled and you will receive no 
more increases in the bonus value. You 
can still score bonus points, however. 

If you complete a wave without 
shooting any intruders (by capturing 20 
thieves), you get back all your stolen 
gold. That's quite a feat, since protec- 
tors are releasing prisoners as you cap- 
ture them. I doubt that a released pris- 


by Thomas L. Quindry 

Tf you're the thrifty type who rel- 
Aishes rescuing your riches from infla- 
tion or evil-doers, Sneak Thief is the 
game for you. In Sneak Thief, each 
player is a guard whose duty is to pro- 
tect his gold from the thief. 

You can choose a one- or two-player 
format. The disk version has a talking 
voice and saves high scores. Both disk 


"In Sneak Thief 

each player 

is a guard 

whose duty is 

to protect his gold 

from the thief " 


and cassette versions have sound effects 
and the option of keyboard or joystick 
control. 

You start the game with three guards, 
and gain an additional guard with every 
10,000 points. The game ends when you 
lose all your gold (around 18 pieces) or 
all your guards. 

The gold is in a box in the center of a 
room. The thief enters from one of 
three doors. The guard shoots the thief 
or captures him by running into him. 
You earn more points by capturing the 


If the guard shoots the fugitive, your 
gold returns and you score points. You 
cannot capture the fugitive, and run- 
ning into him brings fatal results. 

Sometimes a protector appears who 
tries to keep you from shooting or cap- 
turing the thieves and fugitives. You 
score points by shooting the protector, 
but he destroys you if he runs into you. 

Another function of the protector is 
to attempt a jailbreak. If he gets to the 
brig, the protector removes one prison- 


oner is deducted from your 20 count. 

As in most arcade games, Sneak 
Thief's complications increase as you 
score more points. More intruders enter 
at once, and protectors try to release 
prisoners or attack the guard more fre- 
quently. The guard has his hands full. 

One feature I like is that you must 
press any key to resume action after 
you've lost one of your guards. This 
avoids marathon playing and allows 
you to leave the game for dinner or 
whatever. 
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ARRAN 



100% Machine Language Disk Index Program 

lo> the TRS 80 Model I & III. 

Automatical!]; recognizes ALL maior DOS's! 

The Arrangei is a m.ister index system thai 
automatically re< orris the names of your pro- 
grams, what disks those programs are on and 
type ol DOS l-'eatures include 

• Automatic single and double density 
recognition. 

• Accepts I DOS. DOSO'RSDOS. 
DB1.DOS, NF.WDOS 80. MUI.T1DOS . . . 

• Works interchangeably with Model 111, 1 
double density. 

• Capacity of 230 disks. 44 filenames disk 

• Quickly locates any amount of free 
granules 

• Finds a program in less than 30 sec onds! 

• Alphabetizes 1500 filenames in 40 sees.! 

• Option to boa by anv extension 
( BAS, CMD. ???) 

• Fasily updates diskettes previously 
added with only 2 keystrokes 

• Backup function built in 

• Uses 1 to 4 drives, 35, 40 or 80 tracks. 

• Radio Shack doubler compatible 
Requires 32k 1 disk minimum 

JUST $29.95 

FREE SHIPPING 
SATISFACTION GUARANTEED 

Specify: TRS-80 Model number 

(If you've added double density to 

youi Model I. please indicate) 

TRIPLED SOFTWARE 

P.O. Box 642A PERSONAL CHECK 

Layton, Utah 84041 VISA OR 

(801) 546-2833 MASTERCARD 
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K*L SOFTWARE 

******* * * * *********** 
SCRNWRTR $24.95 

I SCREEN WRITER IS A UTILITY PROGRAM USED 
! TO 0ESIGN AND SAVE CUSTOM SCREENS FOR 

; FUTURE USE IN YOIIH BASIC "HOC RAMS 

MAIL $40.00 

'. STORE UP TO 2000 NAMES ON ONE DO DATA 

'. DISK. 1 TO 4 LABtLS ACROSS. FAST SORT ON 

'. ALL FIELDS. USER FRIENDLY MENU OPERATION 



DBM Sub 



$49.95 



DESIGN AND WRITE YOUR OWN CUSTOM DATA 
BASE PROGRAMS WITH THESE UTILITY SUB- 
ROUTINES. 1 00* PAGE MANUAL INCLUDED. 



PCJCP 



$75.00 



PAINT CONTRACTORS JOB CONTROL PROGRAM. 
KEEP TRACK OF ALL JOBS, DRAWS AND BALANCE 
DUE. GENERATES STATEMENTS AND REPORTS. 



COMMING SOON 
CASH REGISTER $call 

POINT of SALE/INVENTORY/P.O. 
This Oni IsThe Most Versatile. Fastest 
& Thorough Program Of Its Kind! 

For Model's l& III 

POSTAGE ft HANDLING ADD $2.00 PER ORDER. 

NO COD ORDERS PLEASE. ALLOW ?1 DAYS FOR 
DELIVERY ON PERSONAL CHECK ORDERS. 



P.O.Box 39093 

NORTHIRIDGE StA. 

Charleston, S.C. 29407 
(803)552-9990 - 16 



The disk version is unique in that 
it boots on a 40- or 80-track Model I or 
III. It should also boot in a 35- 
track disk. 

My main objection to the disk 
medium is that it's practically impossi- 
ble to save as a command file on a sys- 
tem disk, even with the proper utility 
program. I used a utility program to ex- 
amine the disk and learned that the disk 
input/output (I/O) routines are not file 
oriented but are track and sector 
oriented. 

The program saves the scores on a 
single-density track 16, sector zero that 
would conflict with TRSDOS 1.3 and 
other Model III DOSes, because it re- 
quires single-density tracks and con- 
flicts with some of the DOS as it is 
stored. The data for the talking voice is 
also stored in single-density format. All 
this makes the program unavailable as a 
command file. 

In spite of this inconvenience in the 
disk version, Sneak Thief is an enter- 
taining game sure to be popular with ar- 
cade fans. ■ 
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Early Games 
Counterpoint Software 
Shelard Plaza North 
Minneapolis, MN 55426 
Models I and ID 
Color Computer 
Disk or cassette 
$29.95 

by Don Stauffer 

Early Games is a delightful disk of 
nine educational games for pre- 
school children. 

Although the program is essentially 
self-documenting, a brief but well- 
written manual accompanies the disk or 
cassette to explain loading procedures 
and present a one-paragraph summary 
of each game. The instructions do not 
mention the games' sound feature, but 
it is important. 

The menu is educational and appeal- 
ing in itself. It flashes a typical scene 
from each game on the screen for a few 
seconds, in a repeating pattern. The 
child depresses any key while the frame 
indicating the game he wants to play is 
on screen and the game loads. Your 
child does not need to read to operate 
the menu. 



FLIP If 

TM 
bookmark by D/Punch 

running out of diskettes? 

how many floppies do you have? 

only listen to records on one side? 

only play tapes on one side? 

STOP WASTING HALF 
YOUR MONO ft MEMORY 

EXACTLY. 

Why should your single-sided diskettes be 

readable and writeable only to one side? 

THESE TIMES DEMAND THAT EVERY DOLLAR 

YOU SPEND HAVE THE POWER OF TWO 



GREAT FOR: 

1. Saving storage space 

2. Increasing memory 

3. Making backup copies 

4. Saving money 

5. Fun to do 



Now you can easily convert your single-sided 
Floppies into Flippies (diskettes) using FUP-IFs 
pat pend., clumsyproof, leeryproof, conver- 
sion Kits. Works with single, double or quad 
density - hard or soft sector. With FLIP-IT, 
there is: 

NO NEED TO: 

1. Measure. 

2. Make alignment marks. 

3. Take media out of jacket 

4. Alter your hardware. 
8" flip-it 5- Buy additional software. 

"FLIP-IT was very easy to use... converted... 
four boxes of diskettes in less than one half 
hour... Used other side... No Problems." 

John DeMeritt, Belmont. MA 

"No errors in reading or writing data in spite 
of heavy use... will continue to recommend 
to my friends and clients." 

Joseph Wiellette. Brookhne, MA 
When otdermg. remember to specify your computer system. 



a) W FLIP-IT: fof all 5V computers incl. Apple, 
IBM, Osborne, Atari. Radio Shack, Commodore, 
Victor, Kaypro, Franklin t more only $29.95 



Alto, Radio Shack, DEC, DGt more only $34.95 
C) Labels: (sell-sticking, 100 ea.) only$3.00 

d) Write Protect/Enable Tabs: <ioo ea.) $2.65 

e) Hub-ReinfOTCer Kit: (positioning tool for hub- 
opening) 

W disks: $10.99 8" disks: $12.99 

f) Hub-Reinforcer Rings: (50 rings ea. for hub 
opening) 



p' 



5V disks $5.85 



5K" disks. $2.55 



Add $3 for shp & hdlg (AK, HI. PR. Canada add J5 50, 

Foreign countries add USD 10.50) - Mass. Res. add 5% tax. 

Send Check, Money Order to: 



D/PunehCo.(8M) 



P.O. Box 201, Newton Hlds, MA 02161 

Tata: 4991009 CHTRI TECH. INFO: (617) 964-2126 



W 



i< y- 






,'-Vi 



8" disks: $3.85 



<:] 



{$ 



-sBfi 



s See List ol Advertisers on Page 355 



TOLL FREE 24 HRS ORDER LINE 
1-800-227-3800 ext. 128 

copyright 1913 D/Punch Corp. 
We acknowledge all trademarks 

Dealer inquiries invited. "' ^ 22 

For your FREE bookmark for your 
manuals, send us a stamped, self- 
addressed envelope, gpcniai 
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At any time, the child can return to 
the menu by pressing enter. He can op- 
erate the system by himself once the 

program is running. 

Each game might not hold a child's 



attention for long. However, the variety 

of games and the menu's friendliness al- 
low him to operate the program for a 
long time without help. 

The first program is a matching num- 



•\ 



k-' c 




bers game. A single, large numeral ap- 
pears on the screen, and the child must 
press the corresponding key. If he 
presses the correct key, a happy tune 
plays and a new letter appears. 

Pressing the wrong key results in a 
sad pair of notes; the character remains 
for another try. Since the screen display 
doesn't change until after the happy- 
tune, the positive audio feedback is im- 
portant to the child. Sound should ac- 
company this game whenever possible. 

Next is a counting game. Anywhere 
from one to five blocks appear on the 
screen, and the child must press the cor- 
# rect number key. Again, the sound pro- 
vides immediate feedback for a correct 
choice. The use of numbers between 
one and five is important for the pre- 
school audience. 

An addition game follows. Two 
groups of blocks appear with a plus sign 
between them. The child must choose 
the key corresponding to the sum of the 
numbers in the blocks. Again, the total 
does not exceed five. 

A subtraction game has the same for- 




NEW TINY GEAP CHARACTER 
EDITOR INCLUDED 



COMPATIBLE WITH MOST WORD 
PROCESSORS 



* CREATE OR MODIFY TYPE STYLES * OVER 50 PRINT CONTROL COMMANDS * ^JIJu^mSp PH ' C AN ° ^^ STYLES 

* NUMEROUS SUPPLIED TYPE STYLES 

* COMPATIBLE WITH MOST DOS'* 

* MANY ADDITIONAL TYPE STYLES _„«„ 
AVAILABLE * CONTROL SPACE BETWEEN LETTERS 

* SUPPORTS EPSON, C.ITOH AND UtiES 
PROWRITER, PMC 8510, GEMINI 10, * TRUE PROPORTIONAL PRINT AND 
NEC 8023 - MORE TO COME SPACE 



* USER DEFINED AND CONTROLLED 
UNDERLINING 



* ALL NEW USER FRIENDLY MANUAL 

* TRS80, MOD I, III, MAX80, LNW80 

* CO CO SUPPORT SOON 



You can crt itt and print graphics liKt thtst - or 
you can choott from our library of ovtr 60 typt 
ttylts! 



st al $ i a 

OtfytCj&XLAJLfLl 




Computers 

221 Hirschfield Dr., Williamsville, N.Y. 14221 (716) 634-3026 




NEW NEW NEW We are now releasing the long awaited Writer Version 3 Dot Writer 
now includes new Tiny GEAP character creation program that is easy to use and very well 

documented All creation commands are available for display on screen any time during 
the creation process. Tiny GEAP is a short version ot the original Graphic Editor And 
Programmer Version 3 also has many new commands. We have spent a great deal ot 
time working to include the type of options users have asked for We now have over 50 
commands that give virtually total control ot the printer. The original power of Dot Writer has 
been retained and is completely compatible with previously created print files We have 
also added such features as vertical tabbing, multiple column printing, automatic index and 
contents generation, flush right concatenation control and much more We have spent a 
great deal of time increasing the spee;! of the program Though we are still limited by the 
printer speed, we have managed to increase the processing time in most applications We 
have included more type styles than ever before You still get the original 1 2 lettersets but in 
addition, we have packed even more on the disks We have rewritten the manuals New, 
easy to use and user friendly with plenty of examples' Now we include all printer and 
computer support with each program No extra charges' All of this and a lower price too 1 
The new version is only $79.95 and updates for owners are $39 95 upon return of the 
original Dot Writer disk Now you can do it all tor less 
DOT WRITER 3.0 with Tiny GEAP $79.95 

GEAP 2.1 is still available for the user who wants to create a video display, including 

Graphics, Text and INPUT statements and let GEAP write a BASIC program to recreate the 
screen. The resulting BASIC program can be merged into your own program 
GEAP 2.1 $45.95 

Letterset Manipulation utilities is a package of 12 utilities' that the typefounder will love. 

The v allow easy and fast manipulation of graphic files and include SPLIT to increase a 
c/aa" c up to 16 times and maintain HI-RES. COPY to mix letters/groups of letters with a 
let'em et p u t the lowercase of one style witn the uppercase of another. EXPAND to magnify 
letters in the file Also rotation, mirror, italic routines and more 1 
Letter««t Manipulation Utility $39.95 

ADDITIONAL TYPE STYLES - we' have 5 font disks available now and many more on the 

way Fhese font disks can be used with IA7\ FONT too' Write for samples of the type styles 

that a:e currently available 

FONT DISKS $29.95 aa. 
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mat. A minus sign separates the two 
groups, and the child must respond with 
the difference. This game is much hard- 
er, since subtraction is a more difficult 
concept than addition. However, I was 
impressed with how quickly a child who 
had never been exposed to subtraction 
could grasp the concept using this game. 

Two alphabet games are similar to 
the number games. The first is a recog- 
nition game, except it displays large 
alphabetical characters. The second 
teaches the order of the alphabet. The 
child presses the key for the letter that 
follows the one displayed on the screen. 

Names is a simple spelling game using 
the child's name, which the parent 
enters. The cursor advances after the 
child types in each correct letter. As in 
the previous games, sound provides im- 
mediate feedback. 

The shape comparison game is the 
highlight of the program. Four shapes 
appear on the screen, three identical and 
one different. The shapes are simple 
ones: blocks with markings, triangles, 
and hourglasses. This discrimination 



between like and unlike forms is crucial 
to the intellectual skills a young child 
must master for reading and math 
readiness. 

The last game, a drawing program, is 
a favorite of children who tried this col- 
lection. The child moves the dot with 
keys, but not the normal arrow key ar- 
rangement. Keys on the keyboard's left 
move the cursor left, keys on the top 
center move it up, keys on the upper 
left move it diagonally left and up, and 
so on. 

Even with experience, you might not 
be sure which key does what. I'm not 
convinced that this is better than using 
the arrow keys, and it's the main criti- 
cism I have of the program. However, 
children do not seem to mind the in- 
convenience of the dot occasionally go- 
ing where they don't want it to. 

Another slight problem is that the 
cursor always draws a line behind it or 
erases a previously drawn line. This 
makes the game easier to handle with- 
out a separate menu, but it also creates 
some trust ration. 



Aside from math and reading skills, 
this program teaches computer liter- 
acy by increasing the child's famili- 
arity with key positions and with the 
computer itself. 

Other than the criticisms I mentioned 
in the drawing game, I found few flaws 
in the program. I'd suggest that a 
change in the screen display following a 
correct choice would provide more im- 
mediate feedback for models without 
sound. 

This is the most effective educational 
program I've seen for preschoolers. 
Three-year-olds could handle many of 
the games with some adult help, while 
four- and five-year-olds can spend 
hours alone with the games. 

The ease of operation is truly impres- 
sive. Model I and III disk versions are 
even auto run, so the child can bring up 
the system by himself if you trust opera- 
tion of the disk drive to him. If you 
bought your system with the idea of us- 
ing educational software to help your 
children, this is one program you don't 
want to miss. ■ 



REE EPSON MX-60 PRINTE 




For a limited time, Doto Services, Inc., will give 
you o F REE Epson MX-60 Printer ($645 value), 
when you buy o TRS-80 Model IV, 48K, with two 
40 trock drives. Coll for our newest low prices. 
(Inludes RS-232, Printer Coble, TRSDOS) 

The perfect system, the perfect price! 

TRS 80 Model III, 48k - two PERCOM 40 

trock drives - EPSON MX-80 Printer. 

Data Services offers more — APPARAT'S 
NEWDOS80, version VER 2.0. regularly $149.95 
— now only $1 19. 95 (Model III units only.) 

Up to 20% savings on TRS computers — ac- 
cessories — programs, Plus: EPSON / PERCOM / 
APPARAT / HAYES SMARTMODEM / VERBATIM 
DISKETTES / MEMOREX DISKS. 

*TR5-80 is a trodemork of Tandy Corporation 

• See Lis! of Advertisers on Page 323 



■ F REE SHIPPING in 48 contiguous states. 

■ No Sales Tax on out-of-state orders. 

■ Visa/Master Card welcome. 

■ Personal checks, allow 3 weeks to clear. 

■ (International orders, freight F.O.D. Wichita, 
Kansas) 

CALL TOLL FREE: 1-800-835-1129 

or order by mail from: 

DATA SBMCES, MC. 

COMPUTER SERVICES SINCE 1970 

P.O. Box 1 1 57 Wichita, Kansas 67201 -1 1 57 
(In Kansas, call 1-316-838-9021) 
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Standard Pascal 

User Reference Manual 

Doug Cooper 

W.W. Norton & Company 

500 Fifth Ave. 

New York, NY 10110 

Softcover, 176 pp. 

$12.95 

by John B. Harrell, HI 



Since its inception by Kathleen Jensen 
and Niklaus Wirth, Pascal has been 
one of the most controversial of lan- 
guages. Doug Cooper has written a con- 
cise and clear manual to explain all as- 
pects of Pascal as the International 
Standards Organization (ISO) has de- 
fined them. 

This is truly a reference document. 
Standard Pascal User Reference Man- 
ual attempts to clarify the stilted, terse 
language definitions in the ISO standard. 

Mr. Cooper's Standard Pascal is easy 
to read. He develops the notation of 
Backus-Naur Formalism (BNF) to de- 
scribe the productions that precisely 
specify the language's syntax. 

He also develops and uses syntax 
charts (railroad charts) to amplify his 
explanation of the constructions. This 
provides clear, visual representation of 
the BNF forms, which might be confus- 
ing even to the experienced reader. Syn- 
tax charts are somewhat simplified and 
the language's complete definition still 
comes from the BNF productions. 

Standard Pascal User Reference 
Manual has 12 chapters that fully de- 
scribe the ISO standard definition's im- 
plementation of the language. In addi- 
tion, several appendices address a quick 
introduction to Pascal, a cross-refer- 
ence of the BNF forms to the textual 
material, and syntax charts for the BNF 
descriptions. 

After explaining the notation and de- 
fining the basic element of programs as 
tokens, Mr. Cooper thoroughly discuss- 
es the groups of tokens allowed in 
Pascal. He discusses each group of 
tokens using the BNF form to describe 
allowed syntax and gives examples of 
proper and improper constructions. 

Next, he presents each statement 
that the ISO standard recognizes. Mr. 
Cooper discusses each Pascal control 
statement. Here lies the strength of Pas- 
cal: The richness of the control state- 
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ments allows complete structuring and 
proper control of programs without the 
confusing GOTO statement so preva- 
lent in Basic and similar programming 
languages. 

Mr. Cooper describes each valid con- 
struction allowed for Pascal statements 
by giving the BNF production that gov- 
erns it and a syntax chart to explain the 
BNF form. Myriad examples illustrate 
the constructions. 

The following chapter launches into a 
discussion of the ordinary data repre- 
sentations in Pascal and the required 
functions. The initial discussion centers 
around the simple types the Standard 
requires. 

The BNF description and several ex- 
amples of right and wrong construc- 
tions explicate each simple type. Data 



"Pascal is a 

strongly typed language; 

you must define items 

prior to use. " 



type operators (such as addition and 
multiplication) are first described with 
their respective ordinary types. 

Next, Mr. Cooper presents the re- 
quired functions of the language. These 
have four types: arithmetic functions, 
transfer functions, ordinal functions, 
and Boolean functions. 

Arithmetic functions provide certain 
mathematic functions expected in each 
language. Transfer functions don't 
have common mathematical analogies. 
These transfer type real data to and 
from integer data types. The ordinal 
functions allow manipulation of the 
ordering relationships. 

After the discussion of the language's 
simple types, operators, and functions, 
you are ready for the syntax descrip- 
tions of simple expressions. Mr. Cooper 
presents the operations needed in these 
expressions with a complete discussion 
of their function on the operands and 
the precedence of evaluation. Charts 
provide a complete understanding of 
each operator's symbol, the operation 
performed, the operands' data type, 
and the result's data type. 

A program is worthless if the pro- 
grammer cannot communicate with it 



via some form of input and output. 
This is often the most difficult part of 
the program's definition: specifying in- 
put and output format so the data 
makes sense to the user. The simplest 
form of communication with a program 
written in Pascal is text. 

To allow a reader to understand the 
program segments more clearly, Mr. 
Cooper provides an early introductory 
section on text file input and output. 
This gives you a basic understanding of 
input and output in Pascal programs, 
but by no means presents the intricacies 
of file manipulation (one of Pascal's 
strong features). 

Pascal is a strongly typed language; 
you must define items prior to use. This 
definition creates a data item and a data 
type that remains associated with the 
item throughout the activation of the 
block containing each item. You can 
think of activation as the execution of a 
particular block of code. 

For example, the procedure block 
"carddeal" defines several variables for 
use during its execution, but these vari- 
ables do not exist outside this procedure 
and have no space in the computer's 
memory until it executes this procedure. 

The last part of the book discusses 
the complex data typing that sets Pascal 
off from other languages and makes it 
strong. As described before, several 
ways to represent data exist in Pascal 
programs. You can combine these data 
types into very complex and powerful 
data structures by using Pascal's lan- 
guage features. 

In addition to the simple data types, 
the book describes several other types. 
The enumerated ordinal type allows the 
programmer to name values to use as 
constants. For example, 

TYPE cardtype = (spade, heart, diamond, club); 

might be the definition of type for the 
variable "card." Then you can assign 
card any of the four alternatives speci- 
fied, and test for any of these selections. 

To accomplish this in Basic, you 
would have to use integer values to rep- 
resent the cards and then make the as- 
signments. Constants of this type 
(spade, heart, and so on) do not have 
any external representation. They are 
self-sufficient as written and you cannot 
transmit them to text files for input and 
output. 

Subrange types allow the definition 
of a variable or type over a preselected 

Continues on p. 68 




If you bought your computer to save time, then you 
need SUPER, the most powerful database system you 

can use:. Power is a combination of speed, ease of use 
and versatility. SUPER has them all. 

FAST - To demonstrate SUPER'S speed, ISA retained a 
professional dBASE programmer to benchmark SUPER 
vs. the acknowledged leader. A simple mailing list 
application was chosen to minimize dBASE 
programming cost. The results: 



Task 


SUPER Time 


dBASE II Time 


Set up/Program 


5:20 min. 


12:18:00 hrs. 


Input 100 records 


50:29 min. 


1:27:50 hrs. 


Sort & Print Labels 


6:41 min. 


4:18 min. 


Totals 


1:02:30 hrs. 


13:50:08 hrs. 



Notice that SUPER was faster at every task where your 
time is involved— and saving your time is probably the 
whole reason you bought a computer. 

EASY TO USE - SUPER won because of its ease of 
use. Since it is menu-driven, office personnel can easily 
learn to use SUPER to set up their own applications, 
speeding and simplifying dozens of tasks without the 
need of programmer support. 

VERSATILE - SUPER, unlike other business 

programs, doesn't dictate how to run your business. 
With SUPER the computer does what you want, when 
you want, the way you want it. SUPER may be the only 
business program you'll ever need. It can handle 

customer files, payables, receivables, depreciation, 
appointments, cost accounting, time charges, 
commissions, inventory, manufacturing control, and 
even matrix accounting systems! 

SUPER PERFORMANCE AT A SUPER PRICE - 

That SUPER beats the $700 dBASE program may 
surprise you, but in terms of price vs. performance 
SUPER has no competitors. Among its features are: 
production input, data compression, multiple databases 
on line, transaction posting, file reformating, stored 
arithmetic files, flexible report formats, hierarchical sort 
and multi-disk files for up to 131, 068 records. It can 
select by ranges, sub-strings, and field comparisons. It 
interfaces to word processors such as WordStar'", 
SuperSCRIPTSIT™, Model 11/16 SCRIPTSIT™, and 
NEWSCRIPT™. In fact SUPER has so many features that 



it takes a six-page product description to cover them all. 
Write or call and we'll send you one. 

SUPER is available for TRS-80™ Models I & III under 
NEWDOS™, LDOS™, and DOSPLUS; for TRS-80 Models 
II, III and 16 under TRSDOS™; and CP/M™ systems. 

Prices: TRS-80 and Osborne versions $250.00 

Other CP/M versions $295.00 

Manual (Price applicable to purchase) $ 25.00 

Now available for IBM-PC $250.00 
MasterCard and VISA accepted. 



OTHER SOFTWARE 

ManageMint™: A PERT/CPM project 
management system compatible with SUPER. It 
includes scheduling, resource and financial 
management modules. 

Sales Planning and Data Extraction System: 
Improves hit rates while cutting costs. 

Small, economical program packages for 
accounting, business and office applications as 
well as utilities. 

Write for Catalogue 




Institute For Scientific Analysis, Inc. 



.-3b1 



SOFTWARE FOR HARD USE 



Dept. M-3 Institute for Scientific Analysis, Inc. 
P.O. Box 7186 Wilmington, DE 19803 (215) 358-3735 



ORDERS ONLY (800) 441-7680 EXT. 500 



Trade mark owners: dBASEII -Ashton-Tate. SCRIPTSIT, SuperSCRIPTSIT, TRSDOS, 
and TRS-80 Tandy Corp NEWDOS/80-Apparat, Inc WordStar-MicroPro Intl. Corp. 
NEWSCRIPT-PROSOFT LDOS-Logical Systems. Inc. CP/M-Digital Research. 
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LOAD 80 






In the dawn of the computer age programmers needed the 
patience of Job to manually keyboard all the major program 
listings from a single issue of 80 MICRO. 

Then LOAD 80 burst onto the scene and exploded that 
practice. Today thousands of TRS-80* owners use LOAD 80 
cassettes and disks every month. These time-conscious com- 
puterists spend more time enjoying all the benefits of those 
80 MICRO programs. 

LOAD 80 programs come directly from 80 MICRO giving 
you complete and detailed documentation right there in the 
magazine. And now, the new disk transfer system allows 
Model III users to run LOAD 80 disks without conversions. 



Save close to 30 % on the single issue price by subscribing to 
LOAD 80 today (choose either monthly cassettes or disks). 

Color Computer users can now order our September 1983 
Quarterly, containing programs from the July, August, and 
September issues of 80 MICRO) available September 1983). 
Also available is the "Rest of '82" cassette, containing Color 
Computer programs from the 1982 issues of 80 MICRO. 

Start enjoying all the benefits of the programs in 80 
MICRO without all the programming hassels. Fill out the 
attached order form and send it to LOAD 80, 80 Pine Street, 
Peterborough, NH 03458. Or call toll free and use your 
Master Card, Visa, or American Express. 



** ATTENTION MODEL III USERS** 

New, Improved Operating System! 
— Ready To Run!! 




NEW DISK TRANSER SYSTEM ALLOWS LOAD 80 TO NOW BE RUN ON MODEL III SINGLE DRIVE 
UNITS WITH NO CONVERSIONS NECESSARY!! 

LOAD 80 is simply the listing from 80 MICRO. Use the KKYBOX accompanying each article as your guide to system configurations. LOAD 80 
runs on the * TRS-80 Model I and Model III computers only. COLOR LOAD 80 runs on the * TRS-80 Color Computer only. * TRS-80 and Color 
Computer are trademarks of Radio Shack, a division of Tandy Corp. 
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Yes! Send me the August LOAD 80 

D Disk $21.47 D Cassette $11.47 

Price includes postage and handling. 

Foreign air mail please add $.45 per Hem for postage and handling 

Please enter my subscription for one year, beginning 

with this month \s issue. I Disk 8199.97 ["Cassette $99.97 



LJCheck/MO DMC DVisa LiAE 

Card! Exp. date 



Signature. 

Name _ 



Address 



City- 



State, 



^ip_ 



LOAD 80-80 PINE ST. •PETERBOROUGH, NH 03458 

LOAD 80 and COLOR LOAD 80 arc manufactured by Instant Software Inc.. a subsidiary 
anything other than save you typing. 



Yen! Send me the COLOR LOAD 80 

r:,3rd Quarterly at $11.47 (July, August, September) 

□ "Best of '82'" at $16.47 

Price includes postage and handling. 

Foreign air mail please add $.45 per item jar pontage and handling. 

DCheck/MO DMC CVisa DAE 

Card# Exp. date_ 



Signature 

Name 



Address 



City 



State. 



^ip_ 



COLOR LOAD! 



I PINE ST. •PETERBOROUGH, NH 03458 



uf Wayne Green Inc. There is no warranty expressed or implied that LOAD SO and ( X)I .OR LOAD 80 will do 
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Continued from p. 64 

subrange of the spectrum of allowed 
values. Both types aid Pascal pro- 
grams in self-documentation. They 
cause the information that must other- 
wise appear in comments to become an 
integral part of the programs. 

The next chapter describes structur- 
ing these data types into complex types 
you can use to store more than one 
value in a single variable. These are the 
building blocks used in Pascal to form 
complex data structures. Mr. Cooper 
thoroughly describes the major con- 
structions: record and array. 

The remainder of this chapter dis- 
cusses file type. All previously discussed 
data types are limited to the working 
size of the computer's store, while type 
file is limited only to the external 
storage device's capacity. 



The last chapter describes the use of 
pointer variables. You allocate memory 
space for all the variables in a procedure 
block each time you activate it, and de- 
allocate memory space on termination 
of the procedure. Once defined, how- 
ever, the variable structure (activation 
record) is fixed during the procedure's 
execution. 

Pointers allow truly dynamic data 
structures that you can create and alter 
during execution of the program or any 
procedure contained in it. These struc- 
tures can remain active even though 
the procedure that created them has 
terminated. 

Mr. Cooper has provided a valuable 
tool to programmers using Pascal and 
those attempting to establish a working 
Pascal system on computers. He pre- 



sents a difficult topic — the standard 
definition of the language — in clear, 
concise terms. 

His many examples are extremely 
helpful in understanding the concepts 
of BNF productions as a tool to 
language description. You don't need 
an education in computer science to 
read Mr. Cooper's reference text. 

The material in Standard Pascal User 
Reference Manual is beneficial to any- 
one who wishes to increase his working 
knowledge of Pascal. Due to the com- 
plexity of the language description, I do 
not recommend this as a text for the 
beginner. 

It's a text for the Pascal programmer 
to enhance his fluency in the language 
and I heartily recommend this book 
to him.B 
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Structured Assembler and Linker 

Blackbeard Associates 

13534 Preston Road 

Suite 443 

Dallas, TX 75240 

Models I, II, and III 

$149 

by Bruce Powel Douglass 

Structured Assembler and Linker 
(SALC) is a new concept in assem- 
blers for the microcomputer. It allows 
structured statements in your Assem- 
bly-language programs. Conditional 
branches and loops are easy to write and 
understand with the English-like struc- 



IF Character Input, EQ.'X' THEN 



END 

WHILE B.NZERO DO 



END 
REPEAT 



UNTIE H, OR, L, ZERO 

IF C, AND, 080H, ZERO THEN 



END 



Program Listing 1 



tured control statements. These include 
If. . .Then. . .Else, While, Repeat, and 
Case. It minimally supports procedures 
and functions as well. 

SALC also supports unstructured 
Assembly language so you needn't re- 
write all the routines and programs 
you've already written. SALC allows 
you to create multiple relocatable As- 
sembly-language modules larger than 
your computer's memory. 

The linker links these separately com- 
piled pieces together into a complete 
program. The programmer can build 
subroutine libraries with external decla- 
rations to use from other Assembly- 



CP 


A,'X' 


JP 


NZ 


LD 


A.B 


CP 





JP 


NZ 


LOOP EQU $ 


LD 


A,H 


OR 


L 


JR 


Z.LOOP 


LD 


A,C 


OR 


80H 


JR 


NZ 


END 




Program Listing 2 



language routines. 

The assembler is not field sensitive; it 
recognizes a label or an instruction no 
matter where it occurs. Thus, you can 
indent your programs to more clearly 
show control construct nesting (as is 
common in Pascal and other structured 
high-level languages). 

SALC allows long labels, and the 
first 16 characters are significant. 
Labels can include upper- and lower- 
case letters, and three special charac- 
ters: the underline, the at sign, and the 
colon. 

Constructs and Options 

The use of structured constructs 
makes Assembly-language program- 
ming much easier to read and write. 
Consider Program Listing 1 . Normally, 
this takes the form of Program List- 
ing 2. 

Which is easier to read? Which do 
you think is easier to write? The closer 
the language is to how people think, the 
higher its level. Defined this way, SALC 
is a middle-level language. You're still 
speaking the computer's language, but 
its IQ is a little higher. 

Consider a routine that performs dif- 
ferent tasks on the basis of a returned 
result. In Z80 mnemonics, this involves 
a series of tests (CP) followed by jumps 
(JP). SALC simply performs the rou- 
tine with the Case construct (see Pro- 
gram Listing 3). 

The assembled program contains the 
CP and JP instructions necessary to im- 
plement the Case statement, since Case 
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ARE YOU 



BLASTING ALIENS? 



Have you had too much of firing laser cannons, guarding fuel cannisters, eating ghosts, avoiding missiles, and just plain getting killed off 
in pursuit of a few points? Or maybe you never really liked arcade games in the first place; either way, there is a program that you shouldn't 
be without. The name of this program: 





You become leader of a small and struggling country, attempting to stay alive, and expand if you can. Your government will have to deal 

with the many things every government runs in to; things like protecting your economy (or else risk a recession), providing services and food 

for your people, stimulating industry and encouraging new business, managing your government revenues, and controlling your army. From 

1 to 4 players can take part if you have 16K of memory, or up to 9 players with more memory. If you don't have enough people around, you 

can assign any number of the countries for the computer to control. (The computer is a worthy opponent, and it plays by all the rules!) You 

won't quickly become tired of this program, since you will have to make very many decisions to become a successful ruler; you must ponder 

tax rates, food distribution, government services, large-scale loans, your army's status, your battles, and much more. 

Included with the program is a 40 Page Handbook on how to rule a country successfully. (It is 8 1/2 by 11 inches, spiral bound; most business 

programs don't have a manual as good as ours!) The program is top-quality with excellent input and display routines. 

The 16K and 32K versions are provided together on cassette; the 32K version contains a SAVE GAME feature. PRICE: $18.50 

A 32K version (with SAVE GAME) is provided on diskette. PRICE: $20.50 



For those of you with 48K: SUPREME 



We fill up the extra memory with features such as Research/Development spending to make your army more efficient, a credit rating system, 
expanded reports for information about your country, more intelligent computer opponents, selectable computer "skill levels" (the computer 
countries can be anything from "Defensive" to "Aggressive"), and MUCH MORE! 
With a 50 + Page manual (re-written specifically for SUPREME RULER + ), and the program provided on either Cassette or Diskette. PRICE: $26.50 

(Note. Any SUPREME RULER Purchaser can upgrade to SUPREME RULER + at any time by returning the original disk/cassette and paying only the ditference in price plus $1 shipping.) 



AND FOR THOSE OF YOU WHO ARE NOT TIRED OF ARCADE GAMES 



EXTERMINATE! 



This 100% Machine Language program will challenge any arcade-game player. An original idea (as far as we know), in which your job is 
to prevent hordes of alien "BUGS" from escaping out of an underground cavern, by destroying ("Exterminating") them. For the novice, this 
game becomes only gradually more difficult, so as not to intimidate the player. But for an advanced player, there are methods of getting 
to the higher skill levels very quickly. EXTERMINATE! is a game with quality graphics and sound, and surprises to keep you busy at every 
new skii! level. 

EXTERMINATE: 16K and 32K versions on same Cassette - $15.50 
Model l/lll 32K program on Diskette - $17.50 



CLEARANCE!!! 



We constantly examine and update our software offerings in order to make sure that 
they all live up to our current high standards of quality, and sometimes we remove a 

program from our line-up. This recently happened to our battle-simulation program. The 
BATTLE of ZEIGHTY. So now we have stopped producing it, but we still have a pile of 
them stocked up in our inventory. To get rid ot them, we've cut the price IN HALF! (Previous 
purchasers have been compensated.) With this special offer there will be no warranty 
other than the Media Guarantee. (There will be no updates or returns.) 
This is not to say that The BATTLE of ZEIGHTY isn't a good program; it is a well-made 
one player game It allows you to set up a small army to your own specifications, and 
then you must use it to try to take over the fictional Zeighty Pass. You give each of your 
army divisions specific orders, while the computer plays the defending army. The display 
is satisfactory, consisting ot a "Map" that shows the position of the army divisions. ...ana 
features (terrain) are not taken in to account, but you'll have enough to keep you busy. 
The program contains a wide set of commands and options (such as mines, artillery, 
4 different division types, and more). It also has a built-in "HELP" function. 
With a 20 page, full size manual; for 16K, Cassette - S 8.95 

32K, Diskette - $10.95 



OUR "TR 



LE PROTECTION" 
GUARANTEE 

In today's software world it is hard to tell a good program from a bad one by only a magazine 
ad; that's why JMG has a warranty plan that will guarantee your satisfaction. Here is our 
"Triple Protection" guarantee: 

1) QUALITY GUARANTEE: If you are unsatisfied with the software product you have pur- 
chased, you may return it (in good condition) within 14 days for a refund, less a $2 handl- 
ing charge. (We also ask that you send us a brief letter stating the reason for your return.) 

2) UPDATES GUARANTEE: We always listen to our customers, and we often improve and 
expand our software products on the basis of their comments. If we make an improvement 
to a product and release a new version, all our previous purchasers will be notified and 
offered the update. To receive an update, you only have to return your original disk plus 
$1 for shipping costs. 

3) MEDIA GUARANTEE: The diskette or cassette has a Lifetime Guarantee. If yours turns 
out to be defective, or it fails and you do not have any backups made, then just return the 
disk/cassette and we'll replace it. 



TO ORDER: 



Just pull out a piece of paper and write the following information down 
1)Your name and address (including zip/postal code) 

2) The program you would like. 

3) Disk or Cassette? 

4) State the computer you own. (Model I or III? How many Disk drives? 
16K. 32K, or 48K?) 

5) Enclose either payment (check / money order) OR Credit Card name & 
number, and expiry date. 

6) Mail it to JMG. to either of our addresses. 

OR 
Go and see your nearest dealer. If he doesn't carry JMG programs, shout 
at him a bit. 

DEALER INQUIRIES INVITED 



^%r,. 
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v* 126 



THE FINE PRINT: 

We accept VISA and MasterCard. 

All prices in U S Funds. 

Please allow 1 or 2 weeks for PERSONAL CHECKS to clear. 

SHIPPING CHARGES are $2.00 in North America, $5.00 

ever seas 

If you order 2 or more programs, there is no shipping charge 

in North America; 1/2 charge ($2.50) overseas 



P.O. BOX 598 
FALLS STATION, 
NIAGARA FALLS, N.Y. 
U.S.A. 14303 
OR 

710 UPPER JAMES ST. 
HAMILTON, ONTARIO 
CANADA L9C 2Z8 
(416) 389-6086 



Software Authors: Do you have a new and original program? Why not check us out! Our royalties are worth looking in to. 
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is not a Z80 command. However, it 

takes care of some of the details that 
make Assembly-language programming 
a chore. 

SALC minimally supports Procedure 
and Function constructs, used as sub- 
routines in high-level languages. No 
parameters are explicitly passed in 
either of these constructs. This means 



no local variables and no recursion. 
Well, you do have recursion in your 
subprogram, but you must manipulate 
the stack yourself. 

It would be nice to specify the regis- 
ters to save on stack directly in the 
procedure or function statements. The 
program could then assemble the pro- 
cedure calls as a set of Pushes followed 



CALL GetlnputChar 
CASE 

A,EQ,'PTHEN 

. . . ;THIS CODE EXECUTED ONLY IF 
. . . ;THE A REGISTER HOLDS AT 

END 

A,EQ,'2' THEN 

. . . ;THIS CODE EXECUTED ONLY IF 
. . . ;THE A REGISTER HOLDS A '2' 

END 

A,EQ,'3' THEN 

. . . ;THIS CODE EXECUTED ONLY IF 
. . . ;THE A REGISTER HOLDS A '3' 

END 
END ;END CASE STATEMENT 

Program Listing 3 



by a Call. 

The Procedure and Function con- 
structs improve reading the source 
code. They are essentially ignored ex- 
cept they provide a label for the subpro- 
gram. If your procedure is the one in 
Program Listing 4, you would execute it 
with a Call statement, such as: 

CALL DivideHLby8 

The Procedure and Function con- 
structs are assembled identically. Nor- 



PROCEDURE DivideHLby8 
LD B,3 

XOR A ;clear carry and zero A 

WHILE 8.NZERO DO 

SRL H ;shift right logic into carry 
RR L ;rotate carry into L 
RR A ;rotate carry into A 
DEC B ;three times 
END ; end WHILE 
; NOW HL IS DIVIDED BY 8 
; AND A HAS THE REMAINDER 
END ; end DividellLbyS 

Program Listing 4 




9 Southmoor Circle, Kettering, Ohio 45429 

[513] 294-3383 [12-6 for phone orders] 

Checks, credit card [VISA/MC], or COD accepted. 

SAME DAY SHIPMENT! 



LEAPER $15.95 tape 

$19.95 disk 

SUPER HERO $15.00 tape 



SPECIAL OFFER: 

BOTH for $25.00 

[tape only]! 




MODEL 1, 3, or 4 

LEAPER 

NEW! NOW WITH VOICE!!! 

[1 or 2 players] 
Best "Frogger-type" program 
available! Joystick or keyboard 
control. Machine language! Fast- 
action! This fantastic program 
is a solid "10"! Progressively 
more difficult levels of perform- 
ance! Rrribbitttt! 



MISADVENTURE #6 

UPER HER 
IDVENTURI 

With Sound and Graphics! 




YOU 

ARE THE 
SUPER HERO' 



A 'if A:. 
CHALLENGE 
FOR THE 
EXPERIENCED 
ADVENTURER 1 



Model I or III 
16K TAPE $15.00 

Can Be Transferred To Disk 



Write for our free illustrated catalog of quality 
model 1, 3, A and color computer games! ^379 
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Department 80 
(305) 894-0789 (Florida) 



Orlando, FL 32803 USA 



TOLL FREE 800-3279294 



jgmmm 


RIBBONS 


4 ■-■■'■ ■ iv-?T' •-,.. . . . 


EZ 


CARTRIDGES 




RELOAD 




RADIO SHACK 






PRINTERS 






Daisy Wheel II 


10 For $24.95 


3 for $29.95 Re-Loadabl 


Black 




6 for $29.95 (DW II only 
Non-Reloadable 


Brown/Blue/Red 


6 F~,<: 24.95 


N/A 


LP 1-2-4 


4 For 18.95 




LP3&5 


3 For 13.95 




LP 6 & 8 (DMP 400) 


3 For 13.95 




DMP 200 


3 For 13.95 




DMP 500 


3 For 13 95 




EPSON/IBM 




EPSON BRAND 


MX-70/80/80/F/T 


3 For 16.95 


16.95 ea. 


MX-100 


3 For 18.95 


21.95 ea. 


OKIDATA 






80-82-83 




4 For 13.95 


CENTRONICS 






700/730/737/739/779 






ZIP PAK 


4 For $18.95 




CITOH 






8510 


3 For $13.95 





CALL TOLL FREE 800-327-9294 

Write For Free Catalog 

Over 10O0 items in Diskettes, Paper, Lables, Ribbons, Checks, Storage Boxes. 
Furniture, Binders and Hardware. Florida plus 5% tax. 

Add $2 For Shipping On Orders Less Than $30 

Most orders out in 24 hours with VISA, M/C, Money Order, AMEX, Cashier 
Check, Bank Wire and CO.D. Pesonal check allow 10-14 days. Mail order only. 
Prices subject to change. 




Sinclair- iddd 



o 

"computer-peripheral switchers 

Conned any number ol peripherals to a single I/O port - usa a slnglo printer to sup- 
port several microcomputers — use two or more printers to support a single 
microcomputer — access a modem Irom any ol several microcomputers — Ideal tor 
domenitratino or comparing equipment. The Setecto-Switches are dnlgnM to 
eliminate the unnecessary plugging & unplugging of cables which connect printers, 
terminals, or modems to various compulers. Hv .."inc. a Sr.lecto-Switctt, you achieve 
more eliicient system operation, better utilization ol peripherals & computer ports, 
eliminate redundant hardware 4 reduce service calls. 5 yr. limited warranty on all 
Selecto-Swtiches. No power required. Size (Inches): 10L x TO x 3H. 2V, lbs. 

RS232 SERIAL SELECTO-SWITCH 

• Switches all lines of asynchronous data • Easy expansion ol 
serial ports • Connectors are female DB25 type 

WUtTMO. DESCRIPTION PRICE 

GRS232-AB 2-Way Switch $139.95 

GRS232-ABC 3-Way Switch $179.95 

DB25 PARALLEL SELECTO-SWITCH 

• TRS-80. Apole, and IBM compatible • Switches 24 iines (line 
1 is ground) • Connectors are female DB2b type 

PART HO. DESCRIPTION PRICE 

GP24-AB 2-Way Switch $139.95 

GP24-ABC 3-WaySwitCh $179.95 

CENTRONICS-STYLE SELECTO-SWITCH 

• Switches all 36 lines • Connectors are female Centronics 

PART NO DEKBIPTHm PWM' 

GCENTAB 2-Way Switch $199.95 

GCENT-ABC 3-Way Switch $229.95 



Micro-Logic Corp. 
MICRO-CHARTS 




• FjI y encoded Oals • ln:;:a~t access • 'I suec totally .juiroiehens ve • Compact 
evixll In. durable credit card piastlc • Perfect tor programmers & engineers 

• Clear & concise tables lor: lull instruction set, disassembly. ASCII, base conver- 
sion, effect ol Hags, compare vs. jump. Interrupt structure, plriout. cycle times, 
diagrams, bug notes, & much more... 

fMT NO. REFEItEHCE PWCE 

ML-Z80 Z80CPU $5.95 

ML-8080A 8080A/8085A $5.95 

ML-6502 6502 (65XX) $5.95 

ML-8048 8048, Relatives, Algorithms $5.95 

ML-7400 5400/7400 TTL $5.95 

BOOKS 

30001 Natlonel CMOS Data Book|1981) S6.9S 

(640 pages) 74C, CD40O0, and AJD Converters 

30O03 National Lineer Data Book (1982) S11.95 

(137G oases', LM. LF. ADC. i)AC, I H Series 

30008 National Memory Data Boo«(1980) $6.95 

(464 pages) RAMs, ROMs. PHOMs. EPROMs Series 

30009 Intersil Data Book (1983) S9.95 

(1356 pages) Complete line. 

30010 National Audio/Radio Handbook (I960) 15.95 

(240 pages) Pre-Amps, AM, FM & FM Stereo, Power Amps 

30011 National Linear Application Handbook (19801 . $15.95 

(736 pages) Application Notes, l.inea- Briefs, etc. 

30012 National PAL Data Book (1982) $5.95 

(176 pages) Application Notes, Linear Briefs, etc. 

30013 Zilog Data Book(1963) $7.95 

(641 pagos) Mlcop.'ocessors anC Support Chips 

210830 Intel Memory Components Handbook 11983) $14.95 

(798 pagos) Contains all Application Notes, Article 
Reprints. Data Sheets, and other design inlormation 
on Intel's RAMs, EPROMs, E'PRQMs & Bubble Memories. 

210844 Intel Microprocessor* Peripheral Handbook (1983) . $14.95 

(1027 pages) Contains Data Sheets on all ol 
Intel's Microprocessors and Perpherals. 



ATARI PADDLES 

JSP (2) $4.95 pair 

ATARI DRIVER 

JSD(1) $2.95 ea. 

TV GAME SWITCH 

Used on Atari. Cosmet- 
ically blemished. 100% 
functional. 

TGS-1 . . . $2.95 ea. 

J ameco Digital Thermometer Kit 
HIW Ii l- ll IM Dua| „„,„„ _ sw|tc „ 

controls for indoor/outdoor 
or dual monitoring — can be 
extended to 500 feet. Con- 
tinuous LED .8' tit. display. 
Range: -40"F to 199 'F, -40-C 
to 100*C. Accuracy ± 1 • 
nominal. Calibrate tor 
Fahrenheit/Celsius. 
Simulated walnut case. AC 
ironfl etOQ fiC wall adapter Included. Size; 

Universal _ Computer Keyboard Enclosures 

"DTE'' Blank Oesk-Too Enclosures 
are designed lor easy modFlica- 

liO'l Hiyf. ■.!r-:u;lh^p::,:y rn.jl:1e^ 

T& end pieces in mocha Ei'c.-n fhilsfi. 

r^ Sliding rear/bottom panel lor service/ 

■» compnn.n *.<-,;>> I'jp/ixjrt. panels .080" 
r /jy t-ic< alur- s :d Hi type ' 230 limsr [gale '. nt 
^ f.oJO'i 1c- M.sl -.hi la;1f.esicn after nioOi'icstlc-. 

t Ve.-itpd too ?. :ir.ll-<i ;:.. : ii-l ; . (or rjwirg e"i-i^-.: f - 
3 4lj Y ~ mm ^^^^mF \ ^ fj n 'M.-^Irurlim crci^s .iili-itec ..■jlI>:..hI"j : 

-* a. si — +/ Assembly Instructions included. 

DTE-8 Panel Width 7.5" $24.95 

DTE-11 Panel Width 10.13" $27.95 

DTE-14 Panel Width 13.5" $29.95 

t. DTE-20 Panel Width 19.25* $34.95 



• Powerful - fully programmable 2K 
memory • Portable - 6'/ B " x 6%" x 1%" - 12 
oz. • Expandable - Optional 16K RAM 
module • Single-key entry commands 

• Educational • Unique syntax-check report 
codes for error identity • Accurate to 9Vi 
decimal places for full range math and 
scientific functions • Graph drawing and 
animated display • Advanced 4-chip design 
combining power, portability and 
affordable price. 

TS1000 




$54.95 



ACCESSORIES FOR Hi.'.UM ■indlt- 1 1000 and ZX81 



■n i.'.i =*« Sinclair- 1 6 1 6 i E,pan, 



16K.slzi:3-x3-xt.5-(5w| TS1016 $49.95 



fcdl.'.U!! Bii-iElai r- 8040 



32 column thermal printer (4 Its) TS2040 $99.95 

Printer paper- 3 rolls (4.3 In. x82 ft.) TPP-3 $5.95 



Keyboard Mask for Your 
ZX81/1000* Computer 








The JE881 Keyboard Mask provides users of the 
2X81/1000 series computer the individual feel of 
each keypad on the keyboard. The mask has a rais- 
ed outline around each keypad allowing the user to 
feel and correctly position their fingers onto the 
keyboard. 



JE681 KEYBOARD MASK 



$9.95 each 



ZX81/1000* Keyboard 
Conversion Kit 




1 trademark ol Sinclalr/Tlmex 



80-Key Keyboard 




CA150C $69.95 



95-Key Keyboard 




CA154A $79.95 




CONTROL DATA KEYBOARDS 

* 7-bit Parallel ASCII 

* SPST Switching 

* FTZ Shielded Base 

* N-Key Rollover 

* 128 Character ASCII 

* Non-Slip, Non-Glare Keycaps 

* CDC752 Terminal Keyboards 

* Attractive Case 

These Control Data Keyboards consist of a base, cover, 
the keyboard assembly, and an interface cable. Color 
(case): Harvest gold and black. Color (keycaps): Black, 
blue, and red. Electrical requirements: + 5V @ 600mA, 
-12V @ 50mA. Size: 21 Vi"W x 9"D x 3V*"H. Weight: 6 
lbs. All units brand new in original boxes, specifications 
included. 



Keytronics 90- Key Soft-Programmable Keyboard 

WITH SECURITY KEYLOCK SWITCH ^-'.l* ~i 



> RFI shielded 
' Cursor controls 

• Numeric keyboard 
- 8 oil Parallel 

• Capacitance keys 
■ 10 user-programmable koys 

• Positive TTL Logic 

• Size: 17-L* S'/.-w. 2V1-H 



Made (or Visual Technology, this keyboard features: a secu.-ily keylock (includes two keys) to Quard against 
unauthorized use; an 11-key numeric keypad; cursor controls; and 10 user-programmable keys. Electrical re- 
quirements: + 5VDC. Color (case): White. Color (keycaps). Black. Complete with case, keyboard assembly, 
40-inch .ntertace cable, and schematics. Weight: 7 lbs. 

Part No. KB270 $79.95 each 




23 ,, Lx5'/."Wx1-3ia"H 



MICRO SWITCH 85-KEY KEYBOARD 

Word Processing Keyboard. ?6 Pin Edge Card Connection. Supply Voltage +5V0C Main Keyboard 

is QWERTY. Additional Key Pads loi Cursor and word processing hinclienl. 

Part No. 85SD1B-1 $29.95 each 



HI-TEK 14-KEY NUMERIC KEYPAD 
SPST switching. Cftarcoal grey keycaps Mounted < 

Part No. K-14 





2708,2716,2732 & 2764 EPROM Programmer 

JE664 EPROM PROGRAMMER 

8K TO 64K EPROMS - 24 AND 28 PIN PACKAGES 

— PROGRAMS 2716's IN 16 SECONDS — 

— PROGRAMS 2764's IN 64 SECONDS — 

• Programs, validates, and checks tor properly erased EPROMs • Emulates PROMs 
or EPROMs ■ RS232C Computer Interface for editing/program loading * Loads data 
Into RAM by keyboard ■ changes data In RAM by keyboard • Loads RAM horn an 
EPROM ■ Compares EPROMs lor content differences • Copies EPROMs > Power In- 
put: 115VAC, 60Hz, -« 10W powor consumption * Enclosure: Color-coordinated, 
iighl tan panels w/molded mocha brown end pieces * Size: 15-5/8"L I 8Y>"0 i 
3VH ■ Wt.: 5¥. lbs. 

JE664-A EPROM Programmer $995.00 

AssCTCleO & Tested j Include J.M16A Mopjlej 

JE665 - RS232C INTERFACE OPTION - The JE665 RS232C Interface 

Optiot implements computer access to Ihu Jf.66*'s RAM Sample soltwa'e written in 

. deil to- TRS-80' Model I Level II !'. pul avid rate 9600 Word 

lg:r; 6 Pits ■ COO parity Slop bits: 2 Option may be adapted to other computers 

JE664-ARS EPROM Prog. W/JESG5 Option . S1195.00 

Assembled and Tested (includ es J M'SA Module ) 

EPROM JUMPER MODULES - The jeWs JUM'ER WOCULE (Personaii- 

t, Module) is a rili-o-.n Module thatpre-setsJEcfc'l tor orope- p'ogramr:.' 

the EPROM & configures EPROM SB- eel ' liar EPROM 

Part 

No. EPROM EPROM MANUFACTURER PRICE 

JM08A 2708 AMD. Motorola. Natlonal.lntel.TI J14.96 

JM16A 2716.TMS2516 Intel. Motorola, Nallor-al. NEC. Tl $14.95 

JM16B TMS2/I6 Motorola, Tl (+5,-12, + 12) $14.95 

JM32A TMS2532 Motaola.TI $14.95 

JM32B 2732 AMD.Fu|IISu,NEC,Hltachl,lntel $14.95 

JM32C 2732A(21V) Fujitsu. Intel $14.95 

JM64A MCM68764, 

MCME81764 Motorola $14.95 

JM64B 2764 Intel $14.95 

JM64C TMS2564 Tl $14.95 

JM640 HN482764G-S H«ach(2IV) $14.95 

iii's Black Hole 
EPROM Eraser 

| 9 Chips — 8 Minutes | 

The Black Hole EPROM Eraser will completely and salely erase 9 EPROMs in less than 
8 minutes The Black Hole is a fully automatic cassette loading eraser featuring 
U-siapec 4000 nr. UV lamps mounleo in a special ALZAK (UV reflectivity of 91 
parabolic light tunnel. In operation, the user s-ips In an anti-static Bug Box (3 ea. 
Incl j containing the EPROMs to be erased into the loading slot on the front panel of 
Black Hr*. The rest is fully automatic. The Black Hole latches the Bug Box into 
place, turns on the UV lamps and starts its fully solid slate (CMOS) UV integration 
dose timer. The percentage erasure time is monitored and displayed on a front panel 
LEO readoul At the end ol the erase cycie. the Black Hole ejects the Bug Box con- 
taining the 9 erased EPROMs and turns otf power. 
PART NO. PRICE 

ULV-008 Replacement Lamp lor ERS-OOB $29.95 

ERS-008 Eraser, Auto Eject & LED Readout $249.95 



IBM MEMORY EXPANSION KIT 



SAVE HUNDREDS OF $$$ BY UPGRADING 
MEMORY BOARDS YOURSELF! 

Most of the popular memory boards allow you to add an additional 
64K, 126K, 192K, or 256K. The IBM64K Kit will populate these boards 
In 64K byte Increments. The kit Is simple to install — just Insert the 
nine 64K RAM chips In the provided sockets and set the two groups 
of switches. Directions are Included. 

IBM64K (Nine 200ns 64K RAMs) $59.95 



EXPAND YOUR MEMORY 



TRS-80 to 16K, 32K, or 48K 

••Model 1 = From 4K to 16K Requires (1) One Kit 
Model 3 = From 4K to 48K Requires (3) Three Kits 
Color = From 4K to 16K Requires (1) One Kit 

"Model 1 equipped with Expansion Board up to 4SK Two Kits Required 
- One Kit Required for each 16K of Expansion — 

TRS-16K3 *200ns for Color & Model III S12.95 

TRS-16K4*250ns for Model I $10.95 



TRS-80 Color 32K or 64K Conversion Kit 




Easy to install kit 

dynamic RAMs S I 

computers with E circuit Boards, & i 

Minor modifications of 32K memory v 



with 8 ea. 4164-2 (200ns) 64K 
intatlon. Converts TRJV80 color 
II new color computers to 32K. 
ill allow the use of all the 64K of 



the dynamic RAM providing you have a FLEX DOS operating system. 

TRS-64K2 $54.95 




POWER SUPPLY +5VDC @ 1 AMP REGULATED Transaction Tech 

Output +5VDC irt IA (elso +30VDC) reg. Input I15VAC 60Hz. 2-tone (black/beige) self-enclosed 
case. 6 ft., 3 cond. black powor cord. 6«!"W I 7"0 i 2V.-H. Wt. 3 lbs. Oata sheet incl. 

Part No. PS51194S $14.95 each 



POWER SUPPLY +5VDC (/?. 3 AMP REGULATED De/tron 

Input: 115VAC. 47-440H1. Output: 5VDC Adiustahle 3 amp. 6VDC « 2.5 amp. Adjustable cur- 
rent limit, Ripple 8 Noise: 1H»rms. 5MV p-p - 2 mounting surfaces. UL recognized. Sire: 4 'W« 
4ft"L > 2-7/16"H - «rt. 2 IBs. Data sheet included. 

Part No. QPS-1 .$29.95 each 




POWER SUPPLY +5VDC @ 7.5 AMP, 12VDC ® 1.5 AMP SWITCHING 

Input: 115VAC, 50-60HZ iff 3 a«ip/230VAC. 50Hz tc 1.6 amp. Fan volt. /power supply select swit- 
ches |115/230yAC|. Output: 5VDC ;5 7.6 amp, 12VDC Jf 1.6 amp. 8 It. blk. pow. card. 11'VWi 

$39. 95 each 



5</4 n Mini-Floppy Disk Drive 

FOR TRS#) MODEL I • COLOR COMPUTER 

Features smote or double density Recordmg mode: FM 
sngle. MFM dour* density Seek time: 25msec. track to 
track. Power. »I2VDC (±0.6V) 1 6A max , ,5vDC 
(±0 25V) 8A max Unit as pic at right dees rot incl case, 
power supply, cables). 30 pg data book incl. wt. n lbs. 
Size SVW» 8"0 .3V.-H 
Pert No. Limited Quantity/ Price 

FD200 $179.95 

Single sided, 40 tracks, 250K bytes capacity 

FD250 $199.95 

Double-sided, 35 tracks, 438K bytes capacity 




POWER SUPPLY 4-Channel Switching - Apple Compatible 

FOR USE. AS AN EXTERNAL POWER SUPPLT FOR APPLE 

Microprocessor, mini-computer, terminal, medical equipment and process control applications. In- 
put 90-130VAC 47-440HZ. Output: . 5VDC « 5A. -5VDC ig IA: .12V0C 18 IA, -12VDC (8 IA. 
Line re;.: ±0.2%. Ripple: 30mV p-p. Uad_reg.:_t 1% Overcurront protection. Ad): 5Y main out- 

$59. 95 each 



81' FLOPPY DISK DRIVE 




$10.00 Minimum Order — U.S. Funds Only 
California Residents Add 6Va% Sales Tax 
Shipping — Add 5% plus S1.50 Insurance 
Send S.A.S.E. for Monthly Sales Flyer! 



Spec Sheets — 30« each 
Send $1.00 Postage for your 
FREE 1983 JAMECO CATALOG 
Prices Subject to Change 





J ameco 
■ JI^J:I.].'lt>kl 




^534 1355 SHOREWAY ROAD, BELMONT, CA 94002 
8/83 PHONE ORDERS WELCOME — (415) 592-8097 Telex: 176043 



Shugart 801 R 
compatible 
Single-Sided 
77 Tracks 
400/800K Bytes 
Capacity 
Industry Standard 



runts, i-ivi b-inui*;. ivirivi uuuuie 

rate: 2S0K bits/sec. single density; 50OK bits/sec. 
' i s density. The FDD100-8 is designed to work with the 3inole- 
- . sol: sectored IBM Diskette I. or eq. disk cartridge. Power: 
'"•ACS 50-60H7, »24VDC 4J 1.7 amps max., +5VDC a 1.2 amps 
"i9- Jnit as pictured above (does not include case, power supply, or 
• - s). Size: 8.55-W x 14"L x 4.5"H. Weighs 12 lbs. Incl. 96-pcj. 

•"art No Price 

FDD100-8. .$1 69.95 ea.y 



^See List ol Advertisers on Page 323 
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mally, a function is a subprogram that 
returns a simple value, but this is not a 

high-level language so no difference ex- 
ists between them. Their function is to 
better document the programs. You can 
call the subprograms that return values 
(called functions) as well as those that 
do not (called procedures). 

Besides the structured Assembly-lan- 
guage constructs, SALC supports a 
number of options, including assembler 
directives. Some assembler directives in- 
clude a title for your assembly listing, 
page ejection, and the Include directive. 

The Include directive lets you insert 
another source assembly file anywhere 
within a source program being assem- 
bled. When the program reads the In- 
clude statement, it loads and assembles 
the specified file name. You cannot nest 
Included files. This allows a method of 
linking program segments together be- 
sides using the linking loader. 

SALC has a multipass assembler. 
You have several options available dur- 
ing assembly and linking. You specify 
these with a /X (where X is a letter de- 



noting an option) on the command line. 

Options include outputting an in- 
dented source file, specifying whether 
or not to be case-blind (a is the same as 
A), outputting the error messages to a 
log file or the screen, and waiting for 
disk change. 

Another useful option is creating a 
Microsoft compatible relocatable ob- 
ject file. You can link these files with the 
Microsoft linking loader to compiled 
Basic, Fortran, or any M 80-compatible 
compiled language. 

Summary 

On the negative side, SALC does not 
provide an editor. It takes standard 
ASCII file format. I use my NewScript 
word processor to create my SALC files. 

A more serious problem is that cur- 
rently SALC only runs with TRSDOS 
and LDOS. Programmers who prefer 
MULTIDOS, NEWDOS80, or DOS- 
PLUS must sit this one out. SALC might 
work with some of these operating 
systems, but it doesn't specifically sup- 
port any besides TRSDOS and LDOS. 



The manual is a bit terse for my 
tastes. It describes all the structured 
constructs, and presents some brief ex- 
amples to show syntax. The end of the 
manual contains a rather large calcula- 
tor program (provided on disk as well). 
The manual could use some middle- 
level examples. 

SALC comes with assemblers and 
linkers for both Z80 code and 8080 
code. The 8080 version is primarily for 
CP/M folks, I suspect. But if you prefer 
8080 programming to Z80, it has a sep- 
arate assembler. The calculator pro- 
gram is in source, absolute object, and 
relocatable object code format, in both 
8080 and Z80 mnemonics. 

My opinion of SALC is quite high. 
There are a few drawbacks, but the only 
serious one is that the assembler does 
not support all DOSes. It works well, 
but you'll take a while to get used to the 
structured language constructs. How- 
ever, considering the time and effort 
using them saves, the work is insignif- 
icant compared to the benefits. ■ 



Gold Plug - 80 

Ahhhh, instant relief! At last there is a 
permanent cure for contact oxidation 
on Model I edge connectors. Many TRS-80 
users are familiar with the symptoms: un- 
timely resets, spontaneous reboots, or the 
inability to get the computer started at all 
without a frustrating session with a pink 
eraser. 

The Gold Plug 80 is a well made device 
consisting of an edge-card plug with gold 
plated contacts, available with either 34 or 
40 contacts. The rear of the plug has ter- 



TRS - 80 + MOD I, MOD III, COCO 

minal tabs which fit exactly over the ex- 
isting foil fingers on the TRS-80's connec- 
tors. After installation, the original plugs 
have been extended about a half inch, 
meaning that the plastic door covers no 
longer fit. This did not trouble me, but you 
should take it into consideration. E.A.P.'s 
advertising leaflet, by the way, cautions 
you about the doors, which is refreshing. 
They also have the excellent policy of per- 
mitting you to return any plugs ordered for 
a refund if after seeing them you are un- 




The Gold Plug 80 
GOLD PLUG 80-E.A.P. COMPANY .216 
P.O. Box 14 Keller, TX 76248 (817) 498-4242 






willing to undertake the instajlation. 

An excellent set of instructions accom- 
pany the plugs, and they are shipped 
promptly. I ordered mine by mail on a Mon- 
day and received my set of plugs by first 
class mail on Tuesday of the next week. 

Installation 

Installation requires a soldering iron (I 
use a 40-watt Weller), Rosin-core solder, a 
Phillips screwdriver, and your last Pink 
Pearl. The keyboard and Expansion Inter- 
face have to be disassembled to get at the 
connectors, which are then cleaned — the 
eraser's last fling. The Gold Plug 80 is fit- 
ted over the existing plug with the con- 
tacts centered, and then soldered to the 
board. I have some soldering experience, 
but it proved to be an easy, safe job. The 
contact is heated, a very small amount of 
solder applied, and then you go on to the 
next contact. It took about an hour to do 
all six plugs. 

GOLD PLDG 80 Mod I (6) $ 54.95 
Keyboard/EI (mod I) 18.95 

Individual connectors 9.95 

COCO Disk Module (2) 18.95 

Disk Drives (all R.s.) 9.95 

Gold Disk Cable 2 Drive 29.95 
Four Drive Cable 39.95 

GOLD PLUG 8 Mod III (6) 5 4.95 
Internal 2 Drive Cable 29.95 
Mod III Expansion port 10.95 
USA shipping SI. 45 Can/Mex S4. 
Foreign $7. texas 5% tax 



E.A.P. CO. 
P.O. BOX 14 

KELLER, TEXAS 7624! 
(817) 498-4242 



MC/VISA 
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Lazy Writer Extensions 
AlphaBit Communications Inc. 
13349 Michigan Ave. 
Dearborn, MI 48126 

by Dan Robinson 

Lazy Writer has grown a bit in recent 
months. AlphaBit Communica- 
tions, the original manufacturer of 
Lazy Writer, has added a number of ex- 
tensions to the popular word processing 
program. 

Various extensions display text for- 
mat, align tables by decimal point and 
produce totals, incorporate illustrations 
in your documents, and construct Do 
files to set up your word processing ses- 
sion. Another extension provides fill-in- 
the-blank capability. 

A "quick" version of Lazy Writer is 
also available, as well as Electric 
Webster's new option for automatic 
hyphenation. 

Formatter 

Formatter displays the location of 
line and page breaks as an aid to hy- 
phenation, header changes, and foot- 
noting. When you press the clear and 
enter keys, the Formatter module 
searches through the text and clears the 
screen to present the word, byte, and 
character count, as well as the number 
of the last page. 

If you return to edit from this point, 
you'll see a large bar across the screen at 
page breaks, and centered text is indeed 
centered on the screen. The text does not 
appear indented or justified, but the 
lines terminate at exactly the character 
displayed. The module does not show 
headers and footers, but it accounts 
for them. 

The Formatter enhancement is par- 
ticularly valuable in making certain that 
a heading isn't cut off from its text, or 
that tables aren't broken in the middle. 
Knowing the page breaks, you can in- 
sert footnotes in the proper place or 
change headers and footers. 

Another option from the Formatter 
menu is hyphenation. You select the 
minimum number of characters to add 
to each line, and your text appears line 
by line. The cursor blinks at the last op- 
portunity to hyphenate, and you can 
move it to the word break. 

When you press the hyphen key, For- 
74 • 80 Micro, August 1983 



matter breaks the word, inserts a 
hyphen, and adjusts line lengths. Lazy 
Writer moves on to the next hyphena- 
tion opportunity. If you want, you can 
put soft hyphens in the text rather than 
hard ones, so printed text breaks at that 
point only if necessary. 

Formatter also error-checks for any 
goofs you might have made with control 
codes. It flashes an error message and 
places the cursor over your mistake. You 
must deformat text prior to printing. 

Formatter is now standard on new 



"Formatter. . . is 

particularly valuable 

in making certain 

that a heading 

isn 't cut off 

from its text. 



copies of Lazy Writer, and is a $25 up- 
grade for current owners. 

Lazy Calc 

Lazy Calc performs the four basic 
math functions on figures in your text file 
and inserts the result in printed copy. 

It specifies the number of columns to 
be used in a nonprinting comment line, 
and identifies the location of the answer 
using # signs equal to the number of its 
digits. 

Addition is the default function, so 
the standard mathematical sign ( - , * , 
or /) must precede the number if you 
want other functions. Then the pro- 
gram places block move markers from 
the first number to be calculated to the 
last digit in the total. You call Lazy Calc 
from the Lazy Writer directory to per- 
form the math and insert the answers in 
the text file. 

You can pass information to Lazy 
Calc in comment lines, and mark nu- 
merical data (such as dates or check 
numbers) so it does not become a part 
of the result. Lazy Calc also functions 
with alternating credit/debit columns 
like those used in a balance sheet. 

The printed result will be much like 
Basic's Print Using statement, with a 



specified number of digits behind the 
decimal point, and commas and dollar 
signs in place. If you make an error, the 
program returns to your text with the 
cursor over the mistake. 

The program doesn't pretend to com- 
pete with spreadsheets, and you'll find 
that totaling short columns is faster if 
done manually. Longer columns make 
the formatting worthwhile, but any 
number-editing requires repeating the 
whole process. 

The price of Lazy Calc is $29.95. 

Lazy Tab 

Lazy Tab lets you set or reset tab 
positions. Place the location of desired 
tab settings in a nonprinting comment 
line, and call Lazy Tab from the Lazy 
Writer directory. All tabs change to the 
new specifications. 

Lazy Tab also includes a decimal 
align command to neatly stack your 
figures one above another, and is com- 
patible with Lazy Calc. Lazy Tab sells 
for $15. 

Lazy Draw and Lazy Do 

Lazy Draw is a separate command 
file that lets you create illustrations. 
You can include these in your text file 
and print them as TRS-80 block 
graphics. 

Draw pictures with the arrow keys, 
and erase errors by holding the clear key 
while moving the cursor. You can type 
text into the picture, and save the result 
to disk. The screen is saved in ASCII 
code with an optional offset for printers 
like the MX-80. 

You can load the completed file to- 
gether with text files and print it as you 
would any other document. It might re- 
quire a bit of experimentation to get the 
desired result, since the Lazy Draw 
could misinterpret the graphics codes 
and alter format counters. 

The program works only with printers 
that respond to ASCII codes to print 
block graphics. The MX-80, for exam- 
ple, prints block graphics as it does with 
Graf tr ax 80, but it doesn't function 
with Graftrax Plus. 

Lazy Do is very similar to a DOS Do 
command or chain file. The program 
holds a series of instructions to load 
Lazy Writer, bring up a given docu- 
ment, call a menu, set desired param- 
eters, or perform a given task. 

Lazy Draw and Lazy Do come as a 
pair for $19.95, or you can order the 



can't keep* it secret any 




Data-Writer outperforms 
Maxi-Manager. 

Outperforms Aids-I 

Outperforms Profile III +. 

Data-Writer is 

more powerful, 

more flexible, and 

easier to use. 




sSee List of Advertisers on Page 323 
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Lazy Stuff quartet (Lazy Calc, Lazy 
Tab, Lazy Draw, and Lazy Do) as a 
package for $39.95. 

Lazy Doc 

Lazy Doc is a utility that permits key- 
board input to replace data in a coded 
text file. When Lazy Doc reaches a fill- 
in-the-blank location, a request for the 
data appears on the screen and all 
references to that data are replaced in 
the file. 

Name, address, and the like can come 
from the operator to match a lengthy 
standard file without manually editing 
the text. Line lengths adjust as neces- 
sary to fit the variable input length. 

Lazy Doc also supports standard or 
boilerplate paragraphs that you can 
call from disk and insert in the current 
text file. 

Lazy Doc takes most of the work out 
of repetitive typing for similar docu- 
ments. Lazy Doc takes Lazy Writer out 
of the home and puts it in the office 
where it can compete with higher priced 
business software. 

Lazy Doc costs $59.95. 

Q Version 

David Welsh prepared a quick ver- 
sion of Lazy Writer with the print 
module in memory. This edition offers 
greater speed since you don't need to 
load the print and edit modules; it ends 
the thumb twiddling users once endured. 

Q Version is useful for those who 
must process a number of short letters, 
but the code's presence is at the expense 
of the text buffer. Use the standard ver- 
sion for longer documents or chain 
them for printing. 

Unless you're writing the great Amer- 
ican novel, you'll find plenty of space to 
accommodate your text, and the added 
speed is a definite plus. The Q version is 
available to registered owners for $20. 

In the mill are Lazy Merge, which in- 
serts material from a data file into 
text to produce form letters, and Lazy 
Font, which supports customized fonts 
for printers such as the MX-80 with 
Graf tr ax. 

Lazy Writer has long been highly 
regarded, and it started with more 
features than any other TRS-80 word 
processing program. Its author con- 
tinues to add features, printer drivers, 
data sheets, and newsletters that make it 
the best supported word processing pro- 
gram available for the TRS-80. ■ 
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Legal Care For Your Software 

A Step-by-Step Guide for Computer 

Software Writers 

Daniel Remer 

Nolo Press 

Berkeley, CA 94710 

1982 

Softcover, 256 pp. 

$19.95 

• V2 

Solving the Computer Contract 
Dilemma — A How-To Book 
for Decision Makers 
Bruce K. Brickman 
Hay den Book Co. 
Rochelle Park, NJ 07662 
First Printing, 1982 
Softcover, 166 pp. 
$20 

by Carl Oppedahl, J.D. 

Daniel Remer 's Legal Care For Your 
Software, though geared for soft- 
ware authors, is fine reading for anyone 
who expects to be on the giving or re- 
ceiving end of a large sum of money in- 
volving software. Remer successfully 
explains the elementary legal principles 
that govern the relationships between 
the software writer, publisher, and 
consumer. 

Further, he illustrates the various fi- 
nancial and business interests of writers 
and publishers, and anticipates some of 
the conflicts that arise between them. 
Finally, he shows how, with a bit of 
thoughtful bargaining, they can resolve 
some apparent conflicts through prop- 
erly drawn contracts . The book general- 
ly gives good advice and is easy to read. 
Thousands of people write software 
for home computers and profit from it. 
Some set up their own firms to market 



the programs, but most choose to con- 
tract with a publisher who sells the soft- 
ware through an established organization. 

Most of them have two things in 
common — they cannot find a lawyer 
skilled in computer law, and couldn't 
afford his advice anyway. Legal Care 
For Your Software is for them. 

The first few chapters of the book 
contain detailed discussions of the two 
common ways to protect software: 
trade secret and copyright. 

Basically, you accomplish trade se- 
cret protection by making sure everyone 
who gets your program has signed a con- 
tract promising not to give it to anyone 
else. Remer provides tear-out forms to 
use for this purpose, and lucidly ex- 
plains the advantages and disadvantages 
of relying on trade secret protection. 

For example, if you absent-mindedly 
leave a copy of your program lying in 
the street, someone who has not signed 
your contract might pick it up and use 
it. You will be powerless to stop them. 

Copyright protection, as Remer de- 
scribes, is easy to get and easy to keep 
under the 1976 Copyright Act and 1980 
revision. He explains the copyright of- 
fice forms line by line, and tells how and 
where on the program to put a proper 
copyright notice. 

The new act and its revision brought 
computer software securely under the 
wing of copyright protection, and re- 
moved most of the pitfalls for the un- 
wary. Before 1976, for example, if 
you released even a copy or two of your 
program to the public without a copy- 
right notice, you ran the risk of losing 
all rights to the program. 

Under the new law, you can often 
save most of your rights, as long as you 
don't take too long to affix notices to all 
the copies. 

Remer devotes five well-written 
chapters to the contracts all software 
writers negotiate sooner or later. After 
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By adding the Multiplexer 
to your Hard Disk you can 
add more computers 
to your system. 




SPECIFICATIONS: 

Single Circuit Board • 4 Users per Muliiplexer 

No External Power Required • WD 1001 compatible 
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ADD COMPUTERS TO YOUR HARD DISK 

Adding a hard disk to your computer is the first step in making your 
micro a powerful computer. Adding more computers to your hard 
disk makes it a real system. The Bi-Tech MULTIPLEXER does just 
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without the need for additional sub-systems. The MULTIPLEXER 
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affording a true data base to all of its users. 
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• is capable of operating at a faster speed than the hard disk. There 
is no waiting time as with other systems. 

• offers the same data transfer rates as in a single computer to hard 
disk sub-system. 

• is totally transparent to the user, software, and hardware 

• is now available for most computers with a BT Hard Disk sub- 
system and also for many other hard disk systems. 
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• Tab to Write-Protect the Cartridge 
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spelling out what is and what isn't re- 
quired in a valid agreement, he discusses 
the many issues likely to come up, gives 
suggestions on how to negotiate them, 
and points out the areas where a 
lawyer's help is useful or necessary. 

In these chapters, Legal Care stands 
out from many other books in the field. 
Chapter eight, for instance, discusses 
areas where the programmer and pub- 
lisher are likely to clash during negotia- 
tion. For example, the parties must 
decide the term of the contract and ar- 
rive at a formula to divide up the sales 
proceeds. 

The natural tendency is to find a par- 
ticular percentage-of-sales royalty rate 
and a fixed term. Assuming the publish- 
er offers what seems like a low royalty 
rate, the programmer might want a 
short term of license. He assumes that if 
the program is a success he can renegoti- 
ate a higher royalty rate later. 

Yet the publisher might not promote 
the software vigorously unless assured 
of a long-term agreement within which 
the promotional investment might be 
repaid. An impasse follows. 

To quote Remer: "... instead of lim- 
iting the length of the license, allow the 
publisher as much time as he wants to 
sell the program. Then you can moti- 
vate him to really push your program by 
including a clause in the royalties sec- 
tion (of the contract) that guarantees 
you a minimum royalty level. A pub- 
lisher who doesn't quite manage to meet 
an agreed-upon sales quota is faced 
with the choice of making up the mone- 
tary difference (in the hope of selling 
more programs next quarter) or re- 
turning the license to the programmer. ' ' 

Through examples like this, Remer 
points out ways in which situations that 
appear to be adversarial can become co- 
operative. These range from a variety of 
negotiation methods to imaginative 
contract terms decribed in the text and 
appearing in the pull-out licenses at the 
end of the book. 

Patent and trademark are the next 
subjects. As Remer explains, the United 
States patent laws are of little help to 
programmers, at least given recent 
court interpretations. 

While copyright registration usually 
does not require the assistance of a 
lawyer, applying for a patent almost 
always does. When you seek a software 
patent, the patent office is likely to re- 
ject the application. Even if they grant 
the patent, a court will probably find it 

78 • 80 Micro, August 1983 



invalid if it later becomes the subject of 
litigation. 
Since all granted patents are public 

records (the word patent means open 
for all to see), a patented program can- 
not be kept as a trade secret. Anyone 
who wants to learn about the program 
can order a copy from the patent office. 
Trademarks, like patents, generally 
require the help of a lawyer. Fortunate- 
ly, it is not essential that a program have 
a trademark. The chapter on trademark 
discusses the many steps you have to 
take to get one, as well as the benefits 
gained. 



"Remer spells out 

the relatively few areas 

requiring a lawyer's advice, 

and discusses 

the remaining topics 

in plain language. . ." 



Even if you have no trademarks, you 
must avoid infringing the trademarks 

and service marks of others. Remer ex- 
plains the footnotes that should appear 
in any advertisement or manual that 
refers to someone else's trademark. 

No book on software publishing law 
is complete without a chapter on war- 
ranties, and Remer's thorough discus- 
sion is recommended reading for every- 
one, including end users. If a program is 
published with no mention of a warran- 
ty, for example, state and federal laws 
provide one. 

The various pull-out forms let a pub- 
lisher tailor the warranty for the level of 
coverage, ranging from lifetime support 
to Radio Shack's "as is" non-warranty. 

A complete index also serves as a 
glossary by pointing to definitions 
within the text. 

Legal Care For Your Software gives 
sound, understandable legal advice. 
Remer spells out the relatively few areas 
requiring a lawyer's advice, and dis- 
cusses the remaining topics in plain lan- 
guage with a minimum of legalese. 

Clear examples supplement the im- 
portant concepts, and humorous, ex- 
planatory cartoons occasionally break 
up the text. 



The Dilemma 

Bruce Brickman's Solving the Com- 
puter Contract Dilemma— A How-To 

Book for Decision Makers is hard 

reading, and is more likely to nut you to 
sleep than teach you anything about 

computer contracts. 

The cover claims that Computer 
Contract Dilemma is for "business 
executives, data processing managers, 
and lawyers," but even lawyers special- 
izing in commercial contract law will 
find the book difficult to understand. 

Furthermore, a majority of the court 
cases discussed are from New Jersey, 
and have only limited applicability to 
the rest of the United States. A partial 
explanation for this lies in the book's 
apparent origin — the New Jersey Insti- 
tute for Continuing Legal Education. 

Only the first two and final chapters 
are accessible to laymen. They intro- 
duce the book's subject, negotiation of 
contracts for computer acquisition and 
leasing, and discuss a variety of bar- 
gaining techniques. 

None of the negotiation meth- 
ods — good guy/bad guy, controlled 
anger, and bargaining solely with the 
ultimate decisionmaker — is unique to 
the computer field, but they deserve re- 
petition if only because your opponents 
will eventually use them all. 

Some chapters appear to be tran- 
scriptions of lectures. For example, the 
third chapter, "Computer Contract 
Basics," starts out: "Litigation with its 
coincident evidentiary issues forms the 
prism through which the attorney per- 
ceives his client's situation in order to 
prepare a document able to survive the 
ultimate litmus of drafting skill." 

The punctuation and spelling errors 
that crop up about every fourth page 
are what you'd expect from unedited 
lecture transcripts. 

Six of the eleven chapters contain ex- 
tremely dry top-to-bottom coverage of 
the Uniform Commercial Code, a body 
of law that has been enacted, more or 
less, in each of the fifty states. The 
chapters discuss sections of the code 
and actual court cases interpreting them. 

Lawyers who read these chapters will 
be disappointed to find that, despite the 
1982 press date, none of the cases cited 
is more recent than 1979. Also, the case 
citations are often sloppy in form, and 
sometimes incorrect. 

These chapters are hard going for 
laymen, partly because they use 
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technical legal terms, such as "parol 
evidence" and "tolling a statute of 
limitations," yet define them nowhere 
in the text. Neither a glossary nor an in- 
dex helps the reader or indicates defini- 
tions that do appear in the text. 

The analysis of court cases, though 
usually legally sound, is often cloaked 



in impenetrable prose. However, the 

clarity of writing style varies greatly 
over the many chapters. 

It's also regrettable that only nine 
pages consider the fast -growing subjects 
of copyrightability and patentability of 
software. 



As a final comment on the book, the 
use of the word dilemma in the title is 
somewhat misleading. The reader who 
gets through all eleven chapters finds 
that no particular dilemma (a difficult 
choice between two equally distasteful 
alternatives) is ever identified, let alone 
solved. ■ 
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ProTrade — The Professional Tool for 

Stock and Option Trading 

Nevins Microsystems Inc. 

210 Fifth Ave. 

New York, NY 10010 

Model I or III 

$350 

$35 for manual and demonstration disk 

by Frederic S. Goldstein 

ProTrade is designed specifically for 
an investor familiar with the 
securities markets in general and the 
listed option market in particular. It 
provides two types of information: real- 
ized and unrealized profit and loss on 
groups of transactions, and theoretical 
values of options based on the Black- 
Scholes model. 

To calculate an option's correct theo- 
retical values, you must provide the 
program with specific, up-to-date infor- 
mation concerning both the stock and 
the option. You need to know the un- 
derlying stock's volatility, the antici- 
pated amounts of the next several div- 
idends along with their ex-dividend 
dates and the risk-free interest rate for 
alternate investments. You also need 
the option's strike price, conversion 
ratio, and its expiration date or dates. 

The program is menu-driven and the 
98-page manual explains each of the 12 
menu items. However, the documenta- 
tion does not contain a good system 
overview, so I had to work with it 
awhile. 

You execute the program by typing 
PROTRADE. A message asks if you 
want to change the usual start-up. If 
you hit the enter key, or type N and then 
hit the enter key, the system uses its reg- 
ular data files. Otherwise, enter the file 
names you wish to use. This feature al- 
lows you to use the same set of disks to 
work with different data files. 

Next, enter the date in the MM/ 
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DD/YY format. If you don't, the 
system rejects your input. 

The main menu gives you 12 choices 
in two categories. Items 1-4 are called 
Information Displays and items 5-12 
are called Data Bank Changes. 

To run any of the information dis- 
plays, first enter data through the data 
bank changes. Your first choice should 
be number 5: Add or Change Security. 
This lets you enter or correct relevant 
data on a security. 

For stocks, ProTrade prompts you 
for volatility and the next four ex- 
dividend dates along with the appro- 
priate amounts. For options, it prompts 



"ProTrade evaluates 

completed trades 

based on their 

closing prices 

and marks open trades 

to market. . . " 



you for the underlying security, the op- 
tion strike price, its expiration date, and 
the conversion ratio. Menu item 6 allows 
you to delete a security. You must 
enter every security, stock, or option 
with which you work. 

Item 8, Buy or Sell, lets you accumu- 
late a series of trades into a strategy. 
The program as a whole allows up to 
ten different strategies. Item 7 allows 
you to set a current market price for a 
security subsequent to its entry into a 
strategy. 

Menu item 1 calculates a net realized 
and unrealized profit or loss based on 
an analysis of all the trades in a strategy. 
ProTrade evaluates completed trades 
based on their closing prices and marks 
open trades to market using item 7. 

For example, suppose you purchase 
stock in a company and write a call 
against that position. Then you close 
the position by buying back the call and 



write a new call against the position. 
The program calculates the realized 
gain or loss on the position you just 
closed, an unrealized gain or loss on po- 
sitions that are still open, and a net of 
the two. 

Item 1 1 sets the cost of money. The 
profit and loss routine uses this figure to 
indicate how much it would cost if you 
had borrowed the entire amount of 
funds committed to the strategy. The 
bottom line of the profit and loss screen 
reflects the strategy's daily cost. 

It's interesting to see a strategy's 
gross trading profits reduced by a 
theoretical amount allocated as an in- 
terest charge. Unfortunately, the pro- 
gram does not take into account any 
dividends you might have earned over 
the period the position was open. The 
program developers indicated to me 
that they would correct this oversight in 
the program's next version. 

ProTrade's most valuable feature is 
its ability to calculate theoretical values 
for options. You invoke this procedure 
by selecting item 2. However, you first 
must select item 10 and enter the interest 
rate for risk-free money. 

If you forget, the option valuation 
routine tells you to hit the enter key to 
continue. At this point you'll probably 
realize that you forgot to enter the 
necessary number. 

The program calculates theoretical 
option prices in two ways. If you ask for 
a stock's option prices, the program cal- 
culates theoretical values and hedge ra- 
tios for calls and puts for the nearest 
strike below the current price, as well as 
the next two above the current price. 

Unfortunately, since the computa- 
tions are complex they are also time- 
consuming. It takes about five minutes 
to complete the analysis for one com- 
pany. Furthermore, the break key is dis- 
abled. If you want to abandon a set of 
computations before the program is 
complete, you either have to reboot or 
wait until the program finishes. 

Also, the routine assumes that op- 
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REVIEWS 



tions expire on the fifteenth of the 
month. In reality, options expire at 
noon on the Saturday following the 
third Friday of the month. 

You can also ask the program for 
a specific option's valuation. This 
approach is much faster because Pro- 
Trade makes only one set of computa- 
tions. This approach is also more accu- 
rate because you provide the computer 
with the exact expiration date back in 
item 5. 

Other menu items let you display 
transactions in a strategy or securities in 
the data bank. You also can cancel a 
trade or security by using a special pro- 
gram called Propurge. 

To check for accuracy, I made a series 
of runs that compared ProTrade with 
one of the services providing data to op- 
tion market makers on the floor of the 
stock exchange. For calls and hedge 
ratios, the numbers were in complete 



agreement to at least two places of 
accuracy. 

However, there were significant dif- 
ferences with respect to puts. The sys- 
tem is high by about !4 to Vi point. This 
was not particularly surprising, since 
there are a number of ways to evaluate 
puts and the investment community it- 
self is not in agreement on this subject. 

Is this program useful for an inves- 
tor? The answer is a qualified yes. Al- 
though the call prices agreed with my 
other model, both were different from 
the prices published in the newspaper. 
Unless you can get accurate volatility 
readings and an appropriate interest 
rate, you will have trouble getting mean- 
ingful numbers out of the program. 

However, it is helpful in spotting op- 
tions that are greatly over or under priced. 
It also can help a call writer by indi- 
cating what kind of spread to expect 
when rolling an option from one period 



and series to another. 

One of ProTrade's weaknesses is that 
it prints out only lists of securities or 
trades, but not a chart of the theoretical 
values for options. You can overcome 
this limitation on the Model III by using 
DUAL ON to route the screen display 
to the printer. Unfortunately, the 
Model I doesn't have a comparable fea- 
ture and you must copy by hand any 
figures you wish to retain. 

According to Nevins, all registered 
owners will receive complete software 
updates and enhancements for at least 
two years. Enhancements to the Model 
I/III versions are scheduled for later 
in the year. A CP/M version is also in 
process. 

Remember that option trading can be 
risky. Should you decide to purchase 
this program, follow its results on paper 
before committing any funds based on 
its results. ■ 



• •••• 

TRS-80 Model I, III, and Color 
Computer Interfacing Projects 
William Barden, Jr. 
Howard W. Sams & Co. Inc. 
4300 West 62nd St. 
Indianapolis, IN 46268 
Softcover, 272 pp. 
$14.95 

by Gary Shade 



JRS-80 Model I, III, and Color 
Computer Interfacing Projects does 
an excellent job of demonstrating and 
explaining how you can interface cus- 
tom circuitry to these Tandy computers. 

For the most part, the circuitry is sim- 
ple to implement. Most projects require 
three or fewer integrated circuits and a 
couple of resistors and capacitors. 
Design examples cover interfacing the 
circuitry to the Model I's and Ill's ex- 
pansion or input/output (I/O) bus, cas- 
sette port, and RS-232 port. 

The book presents similar designs for 
the Color Computer. Mr. Barden uses 
the CoCo's RS-232, joystick, and ROM 
cartridge ports to interface to his proj- 
ects. Each computer receives equal 
treatment from the author. 

This is what makes the book unique. 
It covers information on three of Tan- 
dy's computers in one publication. 
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Each chapter is devoted to different 
projects or concepts. The projects also 
provide the software required to test, 
calibrate, and drive each of the circuits. 
Most of the hardware projects require 
software drivers written in Assembly 
language. 



" . .you get information 

on three computers, 
the author's knowledge, 
and some nifty projects. . . 



You need not be an expert on Assem- 
bly language, or even own an editor/as- 
sembler, to get the programs to run. 
The author provides you with loader 
programs in Basic that POKE the re- 
quired code into memory. This allows 
even the most inexperienced experi- 
menter to get up and running with mini- 
mum difficulty. 

The projects cover analog to digital 
(A/D) converters, a joystick interface 
for the Models I and III, and RS-232 
communications. Mr. Barden includes 
an excellent description of the Western 
Digital TR1602B UART used in the 
Models I and III. He also describes how 



to sense and drive switches, transducers, 
and light-emitting diodes (LEDs) from 
each system. 

One of the projects is a device to digi- 
tize a speaker's voice, store it in the 
CoCo, and play it back through the 
speaker in your television set. There are 
several other Color Computer projects 
in the book, including a half-year clock. 

Mr. Barden discusses the circuitry 
contained in the three computers, and 
examines the Model Ill's I/O bus, the 
Model I's expansion interface bus, and 
the CoCo's ROM cartridge port in great 
detail. He also covers the differences be- 
tween the Z80 and 6809E CPUs. 

Mr. Barden wrote several articles for 
various publications on interface proj- 
ects for these computers. Some of the 
information appears to be reprinted 
from these articles, although I could 
only verify one chapter as coming from 
a magazine. 

This by no means detracts from the 
book's usefulness. The material is co- 
herently organized and provides the 
reader with a valuable reference. 

About the only complaint I have with 
the book is the length of its title! Con- 
sidering you get information on three 
computers, the author's knowledge, 
and some nifty projects, the book is a 
bargain at $14.95. 

I highly recommend it to the novice 
or to anyone interested in learning more 
about his Tandy computer. ■ 




CHROMAtrs, South Shore Com- 
puter Concepts, 1590 Broadway, 
Hewlett, NY 11557, Model I or III, 
$99 kit, $169 assembled. 

"CHROMAtrs is another attempt 
to add color to the uncolorful 
TRS-80 Models I and III. 

"...CHROMAtrs does give a 
Model I or III an added 15-color 
display, assuming that you have a 
color TV or monitor attached. 

". . .it offers the devout hobbyist 
a new toy at an attractive price. I 
don't see it becoming popular 
enough to attract any high-level pro- 
grammers . ... However, for users 
who like to roll their own, it offers 
an incredible price-to-performance 
ratio, especially if built from a kit." 
80- U.S. Journal, June, p. 103. 



Word Processing Buyer's Guide, 

Arthur Naiman, McGraw-Hill Inc., 
New York, NY, 325 pp., $15.95. 

"(The author) sets up a 100-point 
scale for his evaluation of word pro- 
cessors, and tells you why each of the 
points is awarded or, in some cases, 
deducted. . . .whether you're a nov- 
ice or a hacker, you'll find this book 
informative and fun. (The) style is 
conversational, yet clear and suc- 
cinct. The book covers the word- 
processor field better than most 
works of this type..." Personal 
Computing, June, p. 148. 



Milestone, Digital Marketing for 
Organic Software, 2670 Cherry 
Lane, Walnut Creek, CA 94596, 
Model I or III with CP/M and 

Model 4, $295. 

"Milestone is a project manage- 
ment program . . . intended to com- 
plement critical-path analysis. Spe- 
cifically, it provides information on 
project completion, project cost, 
schedule performance and resched- 
uling impact. 



"Considering the complexity of 
the subject, it is convenient and even 
easy to use. This is the result of a 
well-thought-out, menu-driven pro- 
gram. . . . This software does require 
a video-personalization package. 
The process of customization . . . can 
be difficult. . . . You should check 
out the installation procedure in ad- 
vance to make sure it serves your pur- 
poses." InfoWorld, May 30, p. 41. 

Daisy, Med Systems Software, P.O. 
Box 3558, Chapel Hill, NC 27514, 
Model I or III, Model I Scripsit, 
$74.95. 

"Daisy is a carefully written pro- 
gram that enhances Scripsit in many 
practical ways. ...If you have a 
need to prepare highly technical doc- 
uments, or just long, nontechnical 
ones, Daisy supplies just about 
everything you could need. ... If 
you are looking for a program that 
will expand Scripsit. . .and you 
don't care about right-justified pro- 
portional print, then buy Daisy." 
Creative Computing, June, p. 86. 

Writing in the Computer Age, An- 
drew Fluegelman and Jeremy Joan 
Hewes, Anchor Press/ Doubleday & 
Co., Garden City, NY, 254 pp., 
$10.95. 

"If you write at all, either profes- 
sionally or as a casual correspon- 
dent, Writing in the Computer Age 
will be useful to you. . . . If you have 
absolutely no experience with word 
processors, some chapters may be a 
little daunting, but they're worth 
reading and digesting before taking 
the plunge into electronic word- 
smithing. 

"... the authors discuss becoming 
comfortable with a word processor, 
the mechanics of editing on paper 
and on the screen, proofreading, 
producing elegant manuscripts, or- 
ganizing research and files, and using 
computer communications." Per- 
sonal Computing, June, p. 150. 



The Works, Omikron Systems, 
Berkeley, CA, Model I or III, $299. 

"...The Works... has been 
bundled with software such as 
WordStar, MBasic and CBasic that 
are individually worth a great deal 
more than the hardware modifica- 
tion alone. 

". . .The Works can be installed 
by any neophyte following instruc- 
tions included with the package. 
... I have been using my CP/M con- 
version for six months. . . .The 
Mapper I has never caused any prob- 
lems, nor interfered with the nor- 
mal non-CP/M functioning of the 
computer. 

". . .The Works does work, and 
represents an excellent value. The 
user must decide whether the trade- 
offs involved in switching to CP/M 
are worth giving up some of the fea- 
tures of newer operating systems." 
Interface Age, June, p. 67. 

Sprinter II, Holmes Engineering, 
3555 South 3200 West, Salt Lake 
City, UT 841 19, Model I or III, $99. 

"Sprinter II . . . is the fastest speed- 
up modification for the TRS-80 
Model I and HI currently available. 
It is also the easiest to install and one 
of the least expensive. The Sprinter 
II gives you 16 different speeds from 
which to choose, all integer multiples 
or dividends of the standard 1.77 
MHz clock speed. 

" . . .1 have used the modification 
without any problems whatsoever on 
any programs, including database 
management programs, compilers, 
statistical and other mathematical 
analysis programs, and programs to 
load neurological data from an ex- 
ternal A/D converter connected to 
electrodes stuck in my pet leeches." 
Creative Computing, June, p. 161. 
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WHERE BIT? 

Wherever it is, we want it. Maybe, just maybe, we're 
searching for your program, but we'll never find it 
Unless you call us. 

It has to be good, though. Because we're the 
Software Guild™, an organization devoted to finding 
the very best microcomputer programs for packaging 
and distribution under the Softsmith™ label. Hundreds 
of titles have already been licensed to the Softsmith 
library. But they're only the beginning. Our goal is to 
have the best program in major categories on every 



popular machine. Of course, we can't do it without you. 

If you're a program author or publisher, The 
Software Guild offers some distinct professional and 
monetary advantages. 

First, you devote your time to what you do best: 
programming. You can leave the manufacturing, 
packaging, documentation, distribution and customer 
service to us. 

Second, our revolutionary retail merchandising 
system will put your program before the public through 
the normal computer and software stores, plus record 
outlets, department stores, book shops, and more 
places where software has never before been available. 




Third, is royalties. Wider distribution means more 
substantial royalties. And, your Software Guild 
royalties start to accrue when the dealer makes his pur- 
chase in quantity, so you aren't left waiting while 
money trickles in. 

Fourth is flexibility. We do not insist on the 
exclusive rights to your program. You can deal with 
other publishers and distributors, or market your pro- 
gram yourself, while it is in Softsmith distribution. 

We know you're out there, working and dream- 
ing, and we want to help make your dream come true. 
Our full staff of professional evaluators are waiting to 
review your best-seller. 



So call us, wherever you are. 

Contact Regina Roberts at (41 5) 487-5200. 

Or write: 

The Software Guild 

2935 Whipple Rd. 

Union City, C A 94587 



The 
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(415)487-5200 
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GAME 




Armageddon 





Flaming meteors plummet into the 
heart of Madison, WI, obliterating city 
blocks. Your mission is to man a mis- 
sile-firing rocket and save the Fauer- 
back brewery, the Capitol building, the 
Frank Lloyd Wright-designed Unitar- 
ian church, and the University of Wis- 
consin's Sterling Hall from destruction. 

Your rocket has 10 missiles that you 
fire right or left. When your ammuni- 
tion runs low, reload from the Sterling 
Hall rooftop deck before another me- 
teorite smashes Madison. If ten meteor- 
ites reach the city, or if a meteor hits 
your rocket, you've failed your mission 
and the game is over. 

Playing Armageddon 

The space bar shoots missiles singly 
or in rapid fire. Missiles are effective 
only at short range. Your rocket is con- 
trolled by either a joystick or by keys on 
the keypad. The number 4 key moves 
the rocket left, the 5 key moves it up, 



You need speed and 
dexterity if you 
are to save Madison, WI, 
from certain destruction. 



the 6 key moves it right, and the 2 key 
moves it down. 

Armageddon has four skill levels, but 
you cannot advance to the next level un- 
less you've earned it with spectacular 
bombing raids. 

Armageddon's Program 

The 16K Model III action is fast 
because the main control loop directs 
program action, and branches to other 
routines. Four loops perpetuate them- 
selves whenever your rocket goes right, 
left, up, or down. As many character 



NM$ 


Player's Name 


SC 


Score 


SH 


High Score 


B 


Location of Rocket 


G 


Location of Meteorite 


J 


Location of Missile 


F 


Location of Landscape 


LS 


Skill Level 


DI$ 


Direction Missile Fires 


WL 


Location of Missiles (*) on Screen 


W 


Number of Missiles 


H 


Counter to Increment Frequency of Meteorites 


U 


Level of Flight (For The Array) 




Table 1. Variables List 



strings and math functions as possible 
perform outside the loops. 

Program Changes 

If you don't have a joystick, delete 
lines 2400-2555, 3090, 3140, and 3190. 
Change line 2260 to 

2260 IF PEEK (14400) = 128 GOTO 2270 ELSE 
2570 

If skill level 4 proves too difficult, 
delete it by changing line 4030 to 

4030 I F S09999 LS = 2: IF SO 1 9999 LS = 3 

and deleting lines 4040 and 4050. If you 
can't reach skill level 4 with bombing 
tactics, but want to try it, change line 
1 10 so LS =4, and delete line 4030. 

Change the delay between meteorites 
by altering the reset value of H from 
H = 10. The higher the number you as- 
sign H, the faster the meteorite drops. 

To fly around the sides of the screen, 
delete lines 10-90 and change lines 3210 
and 3310 to: 

3210 E = 225 - INP(0): IF B>828 THEN 
B = B-2 

3310E = 255-INP(0): IF B< 132 THEN 
B = B + 2 



The Key Box 

Model III 
16K RAM 
Cassette Basic 
Joysticks Optional 
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While these program changes alter 
playing strategies, the big question re- 
mains — can you prevent Armageddon 
in Madison? ■ 



Tom Alar is employed by Hostess. 
You can write to him at 959 Lawrence 
St., Madison, WI 53715. 



Program Listing 

10 REM BUILD THE ARRAY 

20 RGT=132:LFT=188:Y=1:DIM A ( 12 , 3 ) : CLS : PRINT 0404, "A R M A G E D 

DON"; 
30 POR X=l TO 11 
40 A(X,Y)=RGT 

50 RGT=RGT+6 4 

60 NEXT X 

70 Y=2:F0R X=l TO 11 

80 A(X,Y)=LFT 

85 LFT=LFT+6 4 

90 NEXT X 

100 REM INITIALIZE ARMAGEDDON SYMBOLS AND PREPARE GAME 

110 B=7 84:U=11:F=831:C=20:G=196:H=0:I=0:L=5:T=0:SC=0:LS=1:G$=" " 

:DI$ = n U":RUP$=CHR$(176) +CHR$ ( 191 ) +CHR$ ( 17 6) : RRT$=CHR$ ( 1 91 ) +CHR$ ( 

140)+CHR$(140) :M$=CHR$(153)+CHR$(166) :WL=75:W=10 

120 DEFDBL R-T:DEFINT E 

13 CLS 

140 GOSUB 910 'INSTRUCTIONS 

15 CLS: GOSUB 1610 'DRAW LANDSCAPE 

160 GOTO 2210 'GO TO THE MAIN LOOP 

170 GOTO 5010 'CONCLUDE THE GAME 

600 RESTORE:GOTO 110 

900 REM INSTRUCTIONS 

910 CLS 

920 INPUT "DO YOU WANT INSTRUCTIONS 

IF G$="Y" GOTO 1010 

IF G$="N" RETURN 
950 GOTO 920 

1010 PRINT @86,"A R M A G E D D N" ; 

1020 PRINT @261, "FLAMING METEORITES ARE FALLING TO EARTH. 
CT THE CITY BY DISINTEGRATING THE METEORITES. 
FF FROM A " 
1030 PRINT @3 8 4, "ROOFTOP BASE. YOU CAN RELOAD BY LANDING ON THE 

SAME BASE. YOUR" 
1040 PRINT @448,"FIRING RANGE IS LIMITED SO YOU MUST FLY TO BE W 
ITHIN RANGE." 

1050 PRINT @512, "PRESS SPACEBAR FOR INSTRUCTIONS." 
1060 IF PEEK(14400) =128 GOTO 1100 
1070 GOTO 1060 

CLS: PRINT @86,"A RMAGEDDON"; 



930 

940 



lY OR N) ";G$ 



PROTE 
YOUR SHIP TAKES 



110 
111 



PRINT @261,"USE THE KEYPAD OR JOYSTICK TO FLY. 



'MOVES LEFT. PRESSING 
HT. PRESSING 

FIRES THE MISSILES." 
1120 PRINT @458,"THE GAME CONTINUES UNTIL 



1 MOVES UPWARDS. 
MOVES DOWNWARD. 



PRESSING 



PRESSING '4 
6 ' MOVES RIG 



PRESSING THE SPACEBAR 



10 METEORITES HAVE HIT 
UNLESS A METEORITE HITS THE ROCKET FIRST. GOOD LUC 



THE CITY, 
K." 
1130 PRINT @581," (SUGGESTION: USE YOUR LEFT HAND ON THE SPACEBAR 

TO FIRE. KEEP YOUR RIGHT HAND ON THE KEYPAD AND USE YOUR INDE 
X FINGER FOR LEFT, YOUR RING FINGER FOR RIGHT, AND YOUR MIDDL 
E FINGER FORUP AND DOWN) . 

1140 PRINT @837, "PRESS SPACEBAR TO BEGIN PLAY"; 
1150 IF PEEK(14400) =128 RETURN ELSE 1150 
16 REM DRAW LANDSCAPE 

1610 FOR X=l TO 28:READ DTA: F=F+1 : PRINT @F ,CHR$ ( DTA) ;: NEXT 
1620 DATA17 6, 17 6, 176, 176, 176, 176, 176, 176, 176, 128, 128, 128, 128, 128 
,128,128,128,128,128,128,128,128,128,128,160,128,128,128 
1630 FOR X=l TO 28:READ DTB : F=F+1 : PRINT @F , CHR$ (DTB) ; : NEXT 
16 40 DATAl 28, 12 8, 128, 12 8, 128, 16 0,1 88, 189, 180, 128, 128, 12 8, 12 8, 128 
,128,128,128,128,128,128,128,128,128,128,128,149,149,149 
1650 F=F+8 

1660 FOR X=l TO 31: READ DTC : F=F+1 : PRINT @F ,CHR$ (DTC) ; : NEXT 
1670 DATA191, 191, 191, 191, 191, 191, 191, 159, 129, 128, 128, 128, 128, 191 
,191. ,191,191.191.191.191.128.128.188.188.191 .189.] 28.188.188.128 
,.28 
1680 FOR X=l TO 31: READ DTD: F=F+1 : PRINT @F ,CHR$ (DTD) ;: NEXT 

16 90 DATAl 28, 128, 151, 151, 151, 151, 14 9, 128, 128, 128, 188, 18 8, 18 8, 128 
,128,170,128,128,128,128,128,128,149,14 9,149,128,128,128,17 6,128 
,17 6 

1700 F=F+2 

1710 FOR X=l TO 31: READ DTE: F=F+1 : PRINT @F ,CHR$ ( DTE) ;: NEXT 

1720 DATAl 91, 191, 191, 191, 191, 191, 191, 128, 128, 160, 188, 14 8, 128, 191 

,191,191,191,191,191,191,16 8,188,191,191,191,191,191,191,191,128 

,188 

1730 FOR X=l TO 31: READ DTF : F=F+1 : PRINT @F , CHR$ ( DTF) ; : NEXT 

17 40 DATAl 88, 191, 191, 191, 191, 191, 191, 189, 188, 14 8, 191, 191, 191, 191 
,191,191,191,128,191,191,191,191,191,191,191,191,191,128,191,191 
,191,191 

1750 PRINT @B-1,RUP$; 

Listing continues 



Lang ley -St. Clair 

Gets Mail 



From unsolicited letters of testimonial 

Gentlemen: 

....Than k y o u f o r such a n 
excellent product! I spent part 
of last evening installing the 
CRT and had absolutely no 
problems with the installation. 
I wish all modifications could 
be as easy and as well sup- 
ported as the one I received 
from your organization. You 
can be sure of recommenda- 
tions for your product from 
me. 

Thanks again 

D.C. 

APO, NY 



Dear Langley-St. Clair: 

[Thisl letter [is] to thank you 
for putting together a really 
great addition to the Radio 
Shack Model II. 

I had unsuccessfully tried 
two different kinds of anti- 
glare products prior to the pur- 
chasing of your anti-glare 
Green Phosphor CRT. 

Not being an electronics ex- 
pert I was hesitant to try the 
installation myself. But, after 
reading the instructions that 
were supplied with the CRT, I 
decided to try it. The instruc- 
tions were so outstanding that 
the whole process was ac- 
complished without any prob- 
lem or question.... 

We hope you will develop 
some other additions or im- 
provements for the Model II. 
We can be counted as an en- 
thusiastic supporter. 
Cordially, 
B.T. 
Gregory, Michigan 




LSIS's NEW SOFT-VIEW 
REPLACEMENT CRT 

FOR THE 
FULL STORY, 
SEE PAGE 41 



Langley-StCIaii 

m Instrumentation 

Systems, Inc.'.- 

132 West 24th St., NY, NY 100 
1-800-221-7070 



sSee List of Advertisers on Page 323 
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Supa-Edit is a powerful machine 
language utility, designed to enhance 
LIST/EDIT commands of Level II Basic. 

Supa-Edit uses less than 0.5K of 
computer memory and suits Model I 
and Model III. 

Supa-Edit comes with and without 
lower-case driver for 16K, 32K and 48K 
systems, on premium tape. 



SUPA-EDIT 
SINGLE KEY FEATU 



Up 

I 



LIST FIRST LINE 
LIST LAST LINE 
ENTER EDIT MODE 
LIST LINE BY LINE 
BACK AND FORTH 
RECOVER AFTER NEW 



SEND PAYMENT 
U.S. CURRENCY 

U.S. $10 plus U.S. $3 FOR 

RETURN AIRMAIL DELIVERY 

Elite Electronic Industries 

36 LUXMOORE STREET, 
CHELTENHAM, VIC. 3192 

AUSTRALIA -'25 

TELEPHONE+61-3-583 1201 



Listing continued 
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1800 
1810 
1820 
1830 
1840 
1850 
1860 
2000 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2400 
2410 
2420 
2430 
2500 
2510 
2520 
2530 
2540 
2545 
2550 
2555 
2560 
2570 
2580 
2590 
3000 



PRINT @WL, "**********" 
PRINT @64, "MISSILES: " 

'54, "SKILL: " ; LS ; 

'0, "SCORE: ";SC; 

'22, "HIGH SCORE: 



;NM$;SH; 



S6 ,"A R H A G E D D N"; 



ELSE 2411 



110 
)20 
J30 
140 

)50 
J60 

57 



3 

3! 

3 

3 

3 

3 

3 

3080 

3085 

3090 

3095 

3100 

3110 

3120 

3150 

3160 

3170 

3180 

3185 

3187 

3190 

3195 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3485 

3490 



;PRINT @B-64,CHR$(188) ; 
:B=B-64:U=U-1 



PRINT i 

PRINT { 

PRINT i 

PRINT i 

RETURN 

REM MAIN ACTION CONTROL LOOP 

REM KEYPAD COMPATABILITY 

IF PEEK(14352)=0 GOTO 2260 

IF PEEK(14352)=32 GOSUB 3010 

IF PEEK(14352)=4 GOSUB 3110 

IF PEEK(14352)=16 GOSUB 3310 

IF PEEK(14352)=64 GOSUB 3210 

IF PEEK(14400) =128 GOTO 2270 

IF DI$="U" GOSUB 3610 

IF DI$="R" GOSUB 3510 

IF DI$="L" GOSUB 3410 

REM JOYSTICK COMPATABILITY 

OUT 236,16 

E=255-INP(0) 

IF E=0 GOTO 2560 

IF E=l THEN GOSUB 3010 

IF E=2 THEN GOSUB 3110 

IF E=4 GOSUB 3310 

IF E=8 GOSUB 3210 

IF E=16 GOTO 2545 ELSE 2560 

IF DI$="U" GOSUB 3610 

IF DI$="R" GOSUB 3510 

IF DI$="L" GOSUB 3410 

IF B=834 GOSUB 3910 

H=H+LS+I 

IF H>L GOSUB 3710 

GOTO 2210 

REM MOVE ROCKET UP SUBROUTINE 

E=255-INP(0) :IF B<192 GOTO 3020 ELSE 3031 

B=B+64:U=U+l:GOTO 3060 

PRINT @B-1,RUP$; 

PRINT @B-1,STRING$(3,128) ; 

PRINT @B-1,STRING$(3,131) 

PRINT @B-1,STRING$(3,128) 

PRINT @B-1,RUP$; 

H=H+LS+I:IF H>L GOSUB 3710 

DI$="U" 

IF E=l GOTO 3010 

IF PEEK(14352)=32 GOTO 3010 ELSE RETURN 

REM MOVE ROCKET DOWN SUBROUTINE 

E=255-INP(0) :IF B>766 GOTO 3120 ELSE 3150 

B=B-64:U=U-l:GOTO 3160 

PRINT @B+63,STRING$(3,131) ; : PRINT @B,CHR$ ( 188) ; 

PRINT iaB-l,STRINGS(3.128) : : B=B+64 : U=U+1 

PRINT @B-1,RUP$; 

IF B=784 GOSUB 3910 :H=H+LS : IF H>L GOSUB 3710 

DI$="U" 

H=H+LS+I:IF H>L GOSUB 3710 

IF E=2 GOTO 3110 

IF PEEK (14352) =4 GOTO 3110 ELSE RETURN 

REM MOVE ROCKET RIGHT SUBROUTINE 

E=255-INP(0) :IF B>A(U,2) THEN B=B-2 

PRINT @B-1,STRING$(2,128) ; :B=B+2 

PRINT @B-1,RRT$; 

H=H+LS+I: IFH>LGOSUB3710 

IF B=784 GOTO 3260 ELSE 3270 

GOSUB 3910: PRINT @B-1,RRT$; 

DI$="R" 

IF E=8 GOTO 3210 

IF PEEK (14352) =64 GOTO 3210 ELSE RETURN 

REM MOVE ROCKET LEFT SUBROUTINE 

E=255-INP(0) :IFB<A(U,1) THENB=B+2 

PRINT @B,STRING$(2,128) ; :B=B-2 

PRINT @B+1,CHR$(191) ; : PRINT @B-1 , STRING$ ( 2 , 140 ) ; 

H=H+LS+I: IFH>LGOSUB3710 

IF B=784 GOTO 3360 ELSE 3370 

GOSUB 3910:PRINT @B+1 ,CHR$ ( 191) ;: PRINT @B-1 , STRING$ ( 2 , 140) ; 

DI$="L" 

IF E=4 GOTO 3310 

IF PEEK(14352)=16 GOTO 3310 ELSE RETURN 

REM FIRE MISSILES LEFT 

C=19:X=0: J=B-2 :M=INT( J/6 4) 

W=W-1: PRINT @WL," " ; : WL=WL+1 : IF W<0 GOTO 3430 ELSE 3440 

WL=WL-1: RETURN 

K=J/64:A=INT( (K-M) *64) : IF A<C THEN C=A 

PRINT @J-C,STRING$(C,140) ; 

PRINT @J-C,STRING$(C,128) ; 

IF G<J GOTO 3480 ELSE 3485 

IF G>J-C GOTO 4010: IF G=J-C GOTO 4010 

C=20:H=H+LS+I:IF H>L GOTO 3710 

RETURN 

/ istinx continues 



3570 IF G>J-1 
3580 IF G<J+C 



Listing continued 

3500 REM FIRE MISSILES RIGHT 

3510 X=0:J=B+2:M=INT(J/64) 

3520 W=W-1: PRINT @WL, n " ; : WL=WL+1 : IF W<0 GOTO 3530 ELSE 3541 

353 WL=WL-1: RETURN 

3540 K=J/64:D=INT( (K-M) *64) :A=64-D: IF A<C THEN C=A 

3 5 45 IF K=M RETURN 

3550 PRINT @J,STRING$(C,140) ; 

3560 PRINT @J,STRING$(C,128) ; 

3565 C=20 

GOTO 3580 ELSE 3585 

GOTO 4010: IF G=J+C GOTO 4010 
3585 H=H+LS+I:IF H>L GOTO 3710 
3590 RETURN 

3600 REM FIRE MISSILES UP 
3610 J=B-64:P=J:K=3 

3620 W=W-1: PRINT @WL, n " ; : WL=WL+1 : IF W<0 GOTO 3630 ELSE 3640 
3630 WL=WL-1: RETURN 
3640 IF J<192 GOTO 3690 

3650 FOR X=3 TO U: P=P-64 : PRINT @P,CHR$ ( 191) ;: NEXT X 
3660 FOR X=3 TO U:PRINT @P ,CHR$ ( 128) ;: P=P+64 : NEXT X 
3680 IF (J/64) -INT( J/64) =G/64-INT(G/64) THEN GOTO 4010 
3685 H=H+LS+I:IF H>L GOTO 3710 
3690 RETURN 

3700 REM DROP METEORITES 
3710 PRINT @G,STRING$(2,128) ; 
3720 H=0:G=G+64:IF G=B GOTO 3810 
3730 IF G=B-2 GOTO 3810 
3740 PRINT @G,M$; 

3750 IF G>958 GOTO 3760 ELSE 3790 
3760 H=-10:T=T+1: IF T>9 GOTO 170 

3770 G=RND(30) : G=G*2 :G=G+128 : IF G=144 GOTO 3770 
3780 IFG=142 GOTO 3770 
3790 RETURN 

3800 REM METEORITE HITS THE ROCKET 
3810 X=0 

3820 PRINT @B-1,STRING$(3,128) 
3830 PRINT @B-1,STRING$(3,191) 
3840 PRINT @B-1,STRING$(3,128) 
3850 X=X+1:IF X<12 GOTO 3820 
3860 G=G+64:GOSUB 3740 
3870 FOR X=l TO 100:NEXT X 
3880 GOTO 5010 
3 90 REM ARM THE ROCKET 

3910 PRINT @B+63,STRING$(3,131) ;:PRINT @B,CHR$(188] 
3920 PRINT @B-1,STRING$(3,128) ;:B=B+64 
3930 PRINT @B-1,RUP$; 
3940 WL=75:PRINT @WL, "**********" ; 
3950 W=10:FOR X=l TO 25:NEXT X 
3960 PRINT @B-1,STRING$(3,140 



CHR$(176) ; 
3970 PRINT 



3975 PRINT 
3980 PRINT 



PRINT @B,CHR$(143) ;: PRINT @B-64, 
-64,CHR$(188) ; 



: PRINT 
B=B-64 



B-1,STRING$(3,131) 

B-1,STRING$(3,128) 

B-1,RUP$; 
3990 RETURN 

4000 REM SCORING ROUTINE 
4010 SC=SC+500 
4020 PRINT @7,SC; 

4030 IF S09999 LS = 2:IF S019999 LS = 3 : IFS049999 GOTO 4050 
4040 GOTO 4060 
4050 I=6:LS=4 
4060 PRINT @60,LS; 
4100 REM METEORITE EXPLOSION 
4105 M=l 

4110 PRINT @G,STRING$(2,128) ; 
4120 PRINT @G,STRING$(2,140) ; 
4130 PRINT @G,STRING$(2,128) ; 
4140 PRINT @G,STRING$(2,191) ; 
4150 PRINT @G,STRING$(2,128) ; 
4160 M=M+1:IF M<3 GOTO 4110 
4170 G=RND(30) :G=G*2:G=G+128:H=-10 
IF G=142 GOTO 4170 
IF G=144 GOTO 4170 



4175 
4180 



4190 RETURN 

5000 REM CONCLUDE THE GAME 

5010 IF SH<SC THEN GOTO 5020 ELSE 5060 

5020 CLS:PRINT @0, "SCORE: ";: PRINT @7,SC; 

5030 PRINT @329,"C ONGRATULATIONS ! ! ! * 

5040 INPUT "YOUR SCORE IS THE HIGHEST SO FAR, ENTER YOUR INITIAL 

S B ;NM$ 

5050 SH=SC:IF LEN(NM$) >4 GOTO 5020 

5060 PRINT @960,"DO YOU WISH TO PLAY AGAIN (Y OR N)";: INPUT AN$ 

5070 IF AN$="Y n GOTO 6000 

5075 IF AN$= n N" GOTO 5090 

5080 GOTO 5070 

5090 END 

6000 GOTO 600 

610 REM THIS IS AN ORIGINAL PROGRAM BY TOM ALAR 

6110 REM 959 LAWRENCE MADISON, WISCONSIN, 53715 

6120 REM DATE WRITTEN: 12,19,1982 



Langley-St. Clair 

Get 



From unsolicited letters of testimonial 

I have just received one of 
your SOFT-VIEW CRT's and I 
wanted to write you to tell you 
that I am impressed. I ordered 
the CRT by phone on Wednes- 
day afternoon, and I received 
it this morning (Friday) by 
UPS. When the UPS truck 
pulled up, I commented that it 
would be weird if that was the 
CRT, figuring that it would 
show up in about a week. That 
was the fastest shipment from 
a telephone order I've ever 
got! 

I should also mention that I 
was pleased to find that the 
people I talked to on the phone 
were very nice and friendly, a 
quality lacking in many com- 
panies I have dealt with by 
phone.... 

I have installed RAM chips 
and two disk drives on my 
Model III and many times in 
doing so I could have used 
directions as good and ade- 
quate as I got with the CRT. I 
congratulate the writer of the 
instructions for doing a very 
good job. The directions were 
intelligent, well-written and 
described the operation very 
well without becoming dull or 
technical.... 

....By the way, this is the 
first letter I've written to a 
supplier of computer hardware 
that was in praise. I have told a 
few off by mail, but this is the 
first time I have been this 
pleased with a company sup- 
plying hardware for my com- 
puter. I only hope that your at- 
titude is contagious. 
Sincerely, 
W.B. 
Albemarle, NC 



LSIS's NEW SOFT-VIEW 
REPLACEMENT CRT 

FOR THE ^ 

FULL STORY, 
SEE PAGE 41 




Lansley-St.CIair 

Instrumentation 
Systems, Inc. -^ 

».".-•.;«>;•;-, "•:: ; -,,' r '■■" ' ■'• .V'-"- '/-':■ 

132 West 24th St., NY, NY 10011 
1-800-221-7070 



sSee List of Advertisers on Page 323 
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Computer Books and 
Software for the TRS-80s y 
are at your IJG Dealer 
Today. 



TRS-80 Disk & Other 
Mysteries. 

The "How To" book of 
data recovery by H. C. 
Pennington. 128 pages, 
$22.50 

Microsoft BASIC 
Decoded & Other 
Mysteries. 

The complete guide to 
Level II operating 
systems & BASIC by 
James Farvour. 312 pages, 
$29.95 

BASIC Faster & Better & 
Other Mysteries. 

Microsoft BASIC 
programming tricks & 
techniques by Lewis 
Rosenfelder. Software 
available on disk. Radio 
Shack Cat. No. 62-1002. 
290 pages, $29.95 

The Custom TRS-80 & 
Other Mysteries. 

A guide to customizing 
TRS-80 hardware and 
software by Dennis 
Bathory Kitsz. 
Schematics and listings. 
336 pages, $29.95 




TRSDOS 2.3 Decoded & 
Other Mysteries. 

The TRSDOS operating 
system explained by 
James Farvour. 
Disassembly of code with 
commentary. 300 pages, 
$29.95 



BASIC Disk I/O Faster & 
Better & Other 
Mysteries. 

Programming techniques 
and helpful subroutines, 
by Lewis Rosenfelder, for 
BASIC programs which 
store or retrieve data from 
disk. (Available in June) 
$29.95 




How To Do It On The 
TRS-80. 

The applications guide to 
the TRS-80 Models I, II, 
III & Color Computer by 
William Barden, Jr. 300 
pages, $29.95 (Available 
in Spring '83) 

Machine Language Disk 
I/O & Other Mysteries. 

The guide to machine 
language disk software 
for TRS-80 Models I & III 
by Michael Wagner. 288 
pages, $29.95 

Electric Pencil Operators 
Manual. 

By Michael Shrayer and 
H. C. Pennington. 123 
pages, 24.95 

The TRS-80 Beginners 
Guide To Games & 
Graphics. 

Simple programs teach 
basic concepts of 
graphics and game 
design, by Tom 
Dempsey (Available in 
July) $24.95 

The Captain 80 Book of 
BASIC Adventures. 

Eighteen program 
listings plus Adventure 
program generator, by 
Bob Liddil. 252 pages, 
$19.95 




Electric Pencil 2.0z Word 
Processing System. 

The easy to learn, easy to 
use word processing 
system by Michael 
Shrayer. Includes 
operators manual. Disk 
$89.95, Cassette or 
Stringy Floppy $79.95 




BLUE Pencil — 50,000 
Word Expandable 
Dictionary. Companion 
to the Electric Pencil 2.0z 
word processing system. 
Disk $89.95 




RED Pencil — Automatic 
Spelling Correction. For 
use with the Electric 
Pencil 2.0z word 
processing system. Must 
be accompanied by Blue 
Pencil to operate. Disk 
$89.95 

BFBDEM — BASIC 
Faster & Better Library 

disk by Lewis 
Rosenfelder. 32 
demonstration 
programs, BASIC 
overlays, video handlers, 
sorts and more for the 
Model I & III. Radio 
Shack Cat. No. 260-2021. 
Disk only $19.95 



^445 
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APPLE TM APPLE Computer, Inc. 
Electric Pencil TM Michael Shrayer 




Hi 
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BFBLIB — BASIC Faster 
& Better Demonstration 
disk by Lewis 
Rosenfelder. 121 

Functions, subroutines 
and user routines for the 
Model I & III. Disk Only 
19.95 

Utilities 

TRANSLATE Convert 
any character to any 
character or string. 
Create your own 
shorthand. Print special 
characters. Disk $49.95 

DISKMAP Produces two 
different reports; a listing 
of disk space allocation 
by granule, and a listing 
of all granules allocated to 
each data file. Disk $29.95 



CYBERCHESS 

Chess Improvement 
System. Not a game, but 
a powerful and effective 
method for improving 
one's skill in chess. 
Choose from 55 amateur 
or 55 professional disk 
packets with 4 different 
games on each. System 
Disk $29.95 (Includes 
four games). Each 
amateur or professional 
disk $19.95 each. 

FLAG RACE 

Race your car through a 
maze and try to reach all 
the flags before being 
caught and killed by 
drone cars. Can you do it? 




For Models I & III. Disk 
$24.95 

SPACE ROBBERS 

Inter-galactic thieves are 
after your supplies and 
you must stop them 
before they take it all. For 
Models I & III. Disk 
$24.95 

INTERCEPTOR 

The aliens are attacking 
you in wave after wave, 
can you survive and get 
back to the mother ship to 
refuel? For Models I & III. 
Disk $24.95 

ALIENS 

Invaders attempt to land 
and you must stop them. 
But watch out, you're 
dead if they land on you. 
For Models I & III. Disk 
$24.95 




FUNSOFT Games 
distributes through IJG 
for Models I & III. 

BABLE TERROR Babies 
are roaming the maze like 
complex everywhere but 
you can only see a few 
yards ahead, can the 
Babies be cleared out 
before they clear out you? 
Disk $24.95, Cassette 
$19.95 

MAD MINES Mad 

Mines are being placed 
into the space around 
your planet. As their mad 
pace speeds up, the 
situation becomes more 
difficult. Can they all be 
destroyed? Disk $24.95, 
Cassette $19.95 



APPLE PANIC Crazed 
apples chase you over 
many ladder connected 
brick levels. Your only 
hope is to dig holes in the 
floor and beat them down 
when they get stuck. Disk 
$24.95, Cassette $19.95 

THE BLACK HOLE Your 
mission is to seek-out 
and destroy the Dorfian 
leader. But, can you 
survive the perils of the 
Black Hole? Disk $24.95, 
Cassette $19.95 

TIME RUNNER Newly 
discovered land is yours 
for the taking. All you 
have to do is take it . . . 
before the defender 
droids catch you that is. 
Disk $24.95, Cassette 
$19.95 

IJG products are available 
at computer stores, B. 
Dalton Booksellers, 
Radio Shack Computer 
stores, and independent 
dealers around the world. 

If IJG products are not 
available from your local 
dealer, order direct from 
IJG. Include $4.00 for 

shipping and handling 
per item. Foreign 
residents add $11.00 plus 
purchase price per item. 
U.S. funds only please. 

IJG, Inc. 

1953 West 11th Street 
Upland, California 91786 
Phone: 714/946-5805 




IT'S JUST GREAT! 



- .. . . 



TRS-80TM Tandy Corp. 
Microsoft TM Microsoft Corp. 

• See List of Advertisers on Page 323 
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t Barrier 



by Tom Johnstone and Mike Matthews 



Finally, the summer holidays! You 
decide to go fishing in your new speed- 
boat. Leaving Australia's Sydney Har- 
bour you head northeast across the 
Pacific Ocean to a well-known fishing 
spot off the Great Barrier Reef. 

Arriving there, you start to lay down 
your nets around a deserted island when 
your engine suddenly fails. Hurriedly, 
you examine the fuel tank and find it 
empty. Before you drift too far, you 
drop your anchor and look at the isle 
before you. You are hopelessly stranded 
and your only hope lies in what might 
be on this seemingly desolate landscape. 

You hop into your lifeboat and head 
for the island. Unfortunately, you have 
no survival equipment and must exist 
on what you can find on the island. 

You must find fuel for your speed- 
boat before dark so you can reach the 
safety of the Australian mainland. But 
many secrets and intriguing puzzles 
await you. 

Move about the island and manipu- 
late objects using two-word commands 
(a verb followed by a noun). Since the 
program recognizes over 50 words, you 
should have no problem finding the cor- 
rect word for each situation. 

One program feature lets you enter 
just the first three letters of each com- 
mand. Also, the directions north, 
south, east, and west can stand alone 
and don't require the verb "go." 

One aggravating aspect of many ad- 
ventures is that they can't be logically 
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r hile fishing Down Un- 
der, your boat runs 
out of gas. How will you 
get back to the mainland? 



mapped; Lost on the Great Barrier Reef 
can be mapped. 



The Program 

This game was written for a TRS-80 
Model I or III with at least 16K of mem- 
ory (see Program Listing). The program 
is numbered in multiples of 10 to make 
it possible to use the Auto command 
when typing it in. Some features of the 
program, such as scroll protection, are 
apparent only on a Model III. 

A main control loop at lines 250-500 
branches off to the separate routines for 
different commands, located in lines 
510-2560. The end of the program lists 
the instructions, descriptions of all the 
locations, and a number of data state- 
ments containing the different verbs 
and the island map. 

The main control loop is an impor- 
tant part of the program since it iden- 
tifies the different two-word com- 
mands. The computer automatically 
identifies the first three letters of the 



verb. It then searches the input for a 
space and, upon finding one, assumes 
the next three characters denote a noun. 

Then the program processes the verb 
and noun and checks them against a 
number of flags. If they match, the pro- 
gram branches out to the separate rou- 
tines that handle them. If they don't 
match, the computer scans through the 
data statements containing the different 
verbs and compares these with the input 
verb. If this verb doesn't match any of 
the program verbs, it prompts the user 
for another input. When a verb does 
match, the program branches out by 
means of an ON . . . GOTO statement to 
a separate routine that handles that verb. 

The routines that process the differ- 
ent commands are set up so the pro- 
gram compares the input noun to a 
number of nouns that apply to the verb. 
If the noun doesn't apply to the situa- 
tion, an appropriate message is dis- 
played and the program prompts for 
another input. If the noun does apply, 
the correct process is performed. 



The Key Box 

Model I and III 

16KRAM 

Cassette or Disk Basic 



On the data map, each location is 
represented by five numbers contained 
in a data statement. The first is the loca- 
tion number. The remaining four num- 
bers correspond to the directions north, 
south, east, or west, respectively. A zero 
in any of these four numbers means that 
the player cannot go in that direction. 

Before you run the game for a friend, 
we suggest that you type in the follow- 
ing lines: 

5 POKE 16396, 175: POKE 16397, 201 
3320 NEW 



The first change traps the break key, 
preventing him from looking at the list- 
ing. The second erases the program from 
memory when he is finished playing. ■ 



Tom Johnstone can be reached at 75 
Bun tine Road, Wembly Downs, West- 
ern Australia 6019, Australia. 

Mike Matthews can be reached at 7 
Benson Court, Bun bury, Western Aus- 
tralia 6230, Australia. 



Program Listing 



10 REM 

20 REM LOST ON THE GREAT BARRIER REEF 

30 REM BY TOM JOHNSTONE 

40 REM — AND MIKE MATTHEWS 

50 REM 

60 CLbAR 1000:DIMOB$(30,10) ,IN$(6) ,NN$(30) ,DE$(28) 

7 CLS: RANDOM 

80 MH=0:CK=0:FC=0:CN=0:LF=0:SS=0:LC=1:TM=10 

90 OB$(/:,l)="SHELL ^ :OB$(3,l)= ^ TREE ,, 

100 OB$ (4,1)=" CANNON" :OB$( 6,1) ="KEY" 

110 OB$(o,l) =" LINE": OB $(9,1) = "WATER" 

120 OB$U0,l)- n SIoN":OB$(ll,l)="TRUCK" 

13 OB$ (±3,1) -"SIl,N":OB$( 15,1) ="CROCODILE" 

140 0B$(18,1)="DEAD FISH":OB$(20,1) ="CHAIR" 

150 OB$U5,l)="RUBBER DINGY" : OB$ ( 28 , 1 ) ="Dt;STROYED LIFE RAFT" 

160 0B$(Z8,2) =" PLANK" :OB$(16,l) =" SKULL" 

170 OB $U2,1) ="LEECH":OB$(21,l) =" ABORIGINE" 

180 OB$U6,l) ="SEA URCHIN":OB$(27,l)="JELLY FISH" 

190 GUSUB 2800 

200 POKh'16419,196 

210 POKE16916,0 

220 CLS 

230 PRINTDE$(LC) ; 

240 GOSUB2580 

250 REM CHECK THE FLAGS 



260 IFLi~=lFORI = lTO10: IFOB$(l,I) <>"FUEL CAN"THENNEXTELSEGOTO3 24 

270 INFUT"YOUR COMMAND ";CM$ 

280 IFKND(20) <JTHENPRINT"YOU HEAR A DRONING AS A PLANE FLIES OVE 

R THE ISLAND AND RECEDES INTO THE DISTANCE." 

290 IFLEN(CM$) =lANDCM$="N"THENCM$= n NOR" 

300 IFLEN(CM$) =iANuCM$="S"THENCM$="SOU" 

310 IFl,t;N(CM$) =iANuCM$ = " E"THENCM$ = "EAS" 

320 IFLt;N(CM$)=J.ANDCM$ = "W"THENCM$ = "WES" 

330 IFLEN(CM$) =lANuCM$="I"THENCM$="INV" 

340 IFLC=6THENFORI=1TO10:IFOB$(6,I) <>"PLANK"THENNEXTELSE370 

350 IFLC=6SS=SS+1 

360 IFsS>lPRINT"ARRGGHH! I'VE SUNK! I CAN'T BREATHE! ARRGGHH!":G 

OTO3250 

370 RESTORE 

380 COM$=LEFT$(CM$,3) 

390 FORI=lTOLEN(CM$) 

400 IFMID>lCM$,I,l) <>" "THENNEXTELSENN$=MID$(CM$, 1+1,3) 

410 TM=TM-l:IFxM< = 0THENPRINT"NIUHTFALL OH DEAR! I HEAR A GROW 

LING.... IT'S GETTING CLOSER. .. .ARRGGHH ! A CROCODILE! YOU AR 
E RIPPED TO PIECES! " : F(JRI = 1TO1000 : NEXTI : GOT03 250ELSEIFTMO0PRINT 
"IT'S BEGINNING TO GKT DARK!" 

420 REM COMMAND SEARCH 

430 FOR 1=1 TO 29 

440 READ DAT$ 

450 IF DAT$=COM$ THEN ON I GOTO 520,651 

,1090,1200,1290,210,1340,1420,17 40,1911 

,2 26 0,2350,2370,1420,247 0,520,650,2550 

46 NEXT I 

47 PRINT" I'M SORRY ,BUT THAT WORD IS NOT PART OF MY VOCABULARY 
.PLEASE" 

4 80 PRINT" ENTER A VALID COMMAND SO THAT I CAN UNDERSTAND WHAT YO 

U ARE " 

490 PRINT"SAYING ." 

500 GOTO 270 

510 REM GET 

520 F0RD=1T06 

530 IFIN$(D)=""THEN560 

540 NEXTD 

550 PRINT"YOU ARE CARRYING TOO MuCH .": PRINT: GOT027 

560 FORE=1TO10 

Listing continues 



1,830, 830, 83 0,8 J0, 980,1050 
1,2030,2090,2120,2160,2200 





DISKETTE 
JUNCTION 



$22.50 

(PER BOX OF 5 VO 

Scotch 
DISKETTES 

1 side/D Density 

(744D-0) diskettes 

compatible with 

Verbatim (MD525-01) 

$19.95 Scotch 
Head Cleaning 

KitS 5V4"and8" Kits - 



DISKETTE-JUNCTION 

stocks a complete 

line of 3M magnetic media 

including 96TPI Quad Density. 

Call now to order the Scotch 

diskette for your equipment. 



TOLL FREE 

800-321-5134 

Ohio Residents Call 

216-676-5640 

DISKETTE JUNCTION 

5918 Smith Rd. 
Cleveland, Ohio 44142 



WE ACCEPT 

VISA • MASTER CARD 
CHECKS • MONEY ORDERS • COD. 

• Add $3.00 for shipping & handling. 

• $2.00 EXTRA for U.S. Mail delivery. 

• $3.00 EXTRA for COD. 

• Ohio residents add 6.5% sales tax. 



Authorized Distributor 
Information Processing Products 



3M 



sSee List ot Advertisers on Page 323 
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EXPENSIVE - The LNW 
System Expansion II and built-in ''^{^^: 
comes with a full 32K of 200ns RAM?$£- ' 
RS232c 20 MA current loop serial interface. 
That's for starters. Next, consider our heavy gauge 
steel ca^e. power indicator lamp, gold-plated 
connectors, FR-2 glass epoxy circuit board with 
solder mask and silk screen legends. Then there is 
the parallel printer port, screen printer port, real 
time clock, and extra heavy duty onboard power 
supply with over current protection, over voltage 
protection and thermal shutdown. If that's not 
enough then there is the floppy disk controller, 
guaranteed operation at a 4MHz CPU speed and 
our 6 month warranty. Every one of these features 
is STANDARD. This is true system expansion. 
You get every 'expensive' feature without 
spending more. 

CHEAP - Our price is $399.95. Any way you 
compare, features or price, LNW's System 
Expansion II is the clear winner. The LNW 
System has been field tested for over two years 
with thousands of users. It works with any DOS, is 
100 % TRS-80 Model I compatible and it works 
'right out of the box'. If there is any doubt in your 
mind as to whether you should buy ours or the 
'other guys', just ask an LNW owner! 

WE ARE #1 - Number one in price, features, 
reliability, performance and delivery. LNW is 
committed to 'expensive' features and quality at 
reasonable prices. LNW is committed to support, 
thorough documentation, and reliability. 

LNW Research Corp. 

2620 WALNUT Tustin, CA. 92680 



made us the number one 
manufacturer of system expansion units 

and accessories for the Model I computer. 

EXPANSION OPTION - 8-inch drive capability 
is as easy as plugging in the LNDoubler 5/8 
option*. Now you can have any combination of 
single- or double-density, single- or double-sided, 
8"* and/or 5" disks on-line! 8-inch disk storage 
increased to 591,360 bytes - 77-track single-sided, 
double-density or 1,182,720 bytes - 77-track 
double- density, double- sided. 

The LNDoubler's unique 5/8 switch allows you 
to boot from 5- or 8-inch system disks and it's 
accessible from outside the interface. The $219.95 
LNDoubler 5/8 comes with a double-density disk 
operating system (DOS+ 3.3.9), complete with 
BASIC and utility programs... ready to run your 
software. 

Each of your present 40-track, single-sided 5-inch 
drives will store up to 184,320 bytes (formatted 
storage) - that's an 80 f 7, increase in storage 
capacity for only half the cost of just one disk 
drive. With three 8-inch double-density, 
double-sided drives your Model I will have 3.75 
Megabytes of online storage - that's more storage 
than a Model II or Model III! 



^32 



(714) 641-8850 (714) 544-5744 




*H" drive operation requires special cable. 8" 
double-density requires 3.55MHz CPU speedup 
modification or LNW -80 4 MHz computer. 
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GREAT PROGRAMS 

DELIVERED ON DISK OR TAPE 

WHILE KEEPING YOUR 

BUDGET BALANCED!!! 

Hurry, hurry! Put a little variety into your computing life! Step right up to 
the quality programs from CLOAD Magazine — and have enough 
money left ower for cotton candy! 

A subscription to CLOAD Magazine consists of 6 to 8 ready-to-load 
useful, practical, and fun programs delivered by First Class Mail every 
month. Some of our past performers: Loan Amortization, Menu, Ship 
Adventure, Bond, Cave Raider, Planets, and Shrink. 

Don't clown around (another cliche!). Get a subscription to CLOAD 
Magazine. Or just catch a single act and try a back issue. You'll be 
dazzled by the Greatest Software Deal on Earth I 



California residents add 6% to single copies. 
North America — First Class postage'included. 
Overseas — add $10 to subscriptions and Si to 
single copies. Sent AO rate. 



MasterCard/Visa 
P.O. Box 1448 
Santa Barbara, 
CA 93102 
(805) 962-6271 



The Bottom Line: 


Tape 


Disk 


1 year (12 issues) 


$50.00 


$95.00 


6 months (6 issues) 


S30.00 


$55.00 


Single Copies 






Back Issues 


$ 6.00 


$11.00 


Good Games # 1 


$12.00 


S23.00 


Adventures # 1 


S 12.00 


$23.00 




*ln the Mode 


III mode onlyl 



The Fine Print: 

Issues from Oct 78 available on tape. Issues from 
Oct 82 available on disk, also. Ask for list 
(Level f issues also available). 




^102 



If you have a Radio Shack Color 
Computer or TDP System 1 00 there is 



with programs on tape e 
tailored for your syste 



PO 8o» 1087 Sama Barbara. CA 93102 -805. 963 1066 



-;/ ,♦' 



',M&M 



sSee List of Advertisers on Page 323 
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A flawless future is in sight with 3M diskettes. 

When it comes to keeping track of precious data, predictable 
means reliable. Being able to count on every diskette, every time. 
At 3M, reliability is built into every diskette. We've been in the 
computer media business for over 30 years. And we've never settled 
in. We're constantly improving and perfecting our product line, 
from computer tape and data cartridges to floppy disks. 
3M diskettes are made at 3M. That way, we have complete control 
over the entire manufacturing process. And you can have complete 
confidence in the reliability of every 3M diskette you buy. 

Look in the Yellow Pages under Computer Supplies and Parts for 
the 3M distributor nearest you. In Canada, write 3M Canada, Inc., 
London, Ontario. If it's worth remembering, it's worth 3M diskettes. 




• 208 



3M hears you. 



3M 




by G. Michael Vose 



andy has come a long way since the days of 
the Model I. Just look at the Model 4, with 64K, 
4 MHz, and CP/M potential, for only $1,999. 




• •••• 

Model 4 

Tandy /Radio Shack 

Fort Worth, TX 76102 

$1,999 



In the microcomputer game, the by- 
word of late seems to be, "Anything 
you can do, I can do better." If it's not 
a price reduction or a smaller disk drive, 
it's a computer with a lower chip count. 

Denser VLSI chips with low power 



consumption not only bring us exciting 
new products like Tandy's portable 
Model 100, they also make possible 
second- and third-generation spinoffs 
of existing machines. 

For Apple, new chip technology pro- 
vided the Apple He earlier this year. 
Similar advances now bring us the 
TRS-80 Model 4, an improved version 
of the computer that started life as the 
Model I. 

If you own a Radio Shack computer, 
your mailbox brought the news of this 
new computer in late April. You proba- 




Photo I. The Model 4. (All photographs in this article by Jeff DeTray.) 
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bly remember the basics — 4 MHz Z80 
CPU, 64K of memory expandable to 
128K, and an 80-column screen display, 
plus a new version of TRSDOS and the 
prospect of CP/M. Now it's time to 
find out what all the hoopla is about. 

A Wolf in Sheep's Clothing 

The Model 4 comes in three standard 
configurations: a 16K cassette-based 
system selling for $999, a 64K one-drive 
system without an RS-232 communica- 
tions port for $1,699, and a 64K two- 
drive system with RS-232 port for 
$1,999. All this is packaged in a tex- 
tured, off-white cabinet similar to that 
on the Model III. 

Like the Apple lie, however, it's 
what's inside that makes the Model 4 
different. Using advances in chip design 
and packaging, Radio Shack reduced 
the number of components required to 
build the Model 4's circuits. 

This component reduction provides 
increased computing power and lower 
cost. Radio Shack passed these savings 
along to consumers and simultaneously 
beefed up the Model 4 with additional 
features in a machine priced less than a 
1982 Model III. 

For example, using new video cir- 
cuitry, the Model 4 provides an 
80-column by 24-line high-resolution 
video display of excellent quality. An 
on-board speaker generates sound, and 
a reworked keyboard is easier to use. 

I'll examine these features in detail 
below and tell you how Radio Shack 
put it all together. I think the Model 4's 
new hardware makes this machine as 
powerful as any Z80 computer available 
today, particularly at its price. 

With computers, however, "hard- 
ware doth not a workable solution 
make," as the Bard might have quipped. 
The $64,000 question is always, "What 




:; , 
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My wonderful upgrade offer: 

If you bought my accounting software a while back, 

it's good news. 

If you ditirit, if s a good reason to buy it now. 



You're probably growing. My software keeps 
growing too. 

I've tinkered with it right along, improving 
it constantly. My accounting systems now work 
for CP/M, TRSDOS and MS/DOS (the IBM PC). 
It's a natural outgrowth of my support. Talk to 
a few thousand users on the phone, and you 
get a few new ideas. 

Early on, I resolved that none of my customers 
would suffer if they bought a system before I 
improved it. So I've made this offer ever since I 
started over four years ago: 

No matter when you bought, I'll upgrade any of 
my accounting systems to its latest capability on 
the same machine for $25. If you've upgraded your 
machine, I'll give you a replacement system for 
either $25 or the difference between what you paid 
for your software originally and the price of the new 



software. If you've gone from a TRS-80 Model I to a 
Model 11/16 or an IBM PC, say, you get a full credit 
for whatever you paid me for your Model I systems. 
Just send me your old disks and I'll send you the 
new ones. 

It's this simple. If you ever buy any of my 
software, you'll never lose your investment. 

I wish the whole world were that simple. 



Taranto 

& ASSOCIATES. INC 



^•70 



Model I, Model III and Model 4 systems: Accounts Payable, Accounts 
Receivable, General Ledger, Inventory Control, Invoicing, Payroll. 
Model II, Model 11/12/16, CP/M and IBM PC systems: General Ledger, 
Accounts Payable /Purchase Order, Accounts Receivable (Open Item or 
Balance Forward), Payroll/Job Costing, Inventory Control. 

Post Office Box 6216, 121 Paul Drive, San Rafael CA 94903. Outside 
California, toll free (800) 227-2868. In California, (415) 472-2670. 



CP/M is a trademark of Digital Research Corporation. TRS-80 and TRSDOS are trademarks of Tandy Corporation. MS/DOS is a trademark of Microsoft Corporation. 

sSee List of Advertisers on Page 323 80 Micro, August 1983 • 101 




The Instant Assembler is a powerful as- 
sembly language development system for 
the TRS-80, and our new version is better 
than ever. If you are already an assembly 
language programmer, its unique design 
will greatly increase your productivity. If 
you're just getting started, there is no bet- 
ter assembler to help you learn machine 
language programming. Our new version 
includes the following features: 

• Immediate assembly which detects syn- 
tax errors as source is entered. 

• Compact source format that allows you 
to write programs nearly three times as 
large as other assemblers in the same 
amount of memory. 

• Produces relocatable code modules that 
can be saved on disk or tape and linked 
together in memory for large or modular 
assemblies. 

• Assembles to disk, tape, or directly to 
memory for immediate debugging with 
the built-in debugger. 

• The built-in debugger will step though 
your programs one instruction at a time, 
showing each disassembled instruction 
and its effect on the registers and memory. 

• The debugger can use the symbols in 
your source code when stepping or disas- 
sembling. 

• Input and output of conventional source 
or condensed INTASM source. 

• Assembly and disassembly of un- 
documented Z-80 instructions. 

• Comprehensive 65 page instruction 
manual with many examples. 

The Instant Assembler package includes 
six separate programs. The assembler it- 
self includes the editor and built-in debug- 
ger. The Linking Loader is included in 
several versions for different memory 
sizes. A stand-alone version of the debug- 
ger (MicroMind) is also included. Mi- 
croMind can be relocated in memory and 
has commands to single-step, set break- 
points, display or alter registers or mem- 
ory, find bytes or words, disassemble to 
screen or printer, convert between hex 
and decimal numbers, and write SYSTEM 
tapes. 

INTASM 2.1 is $39.95 for the tape version 
and $49.95 for disk (specify Model I or 
Model III). The instruction manual only is 
$5, refundable with purchase of the pro- 
gram. Include $2 postage, and California 
residents add 6% sales tax. VISA, MAS- 
TERCARD, and COD orders are ac- 
cepted. Satisfaction is guaranteed or a full 
refund will be made. ^ 55 



MUMFORD MICRO SYSTEMS 

Box 400-A, Summerland, CA 93067 
(805)969-4557 



software will it run?" Let's first look at 
the Model 4 from the software angle. 

The Software 

Earlier, Radio Shack tried to main- 
tain software compatibility between the 
Model 1 and III; they followed this tra- 
dition with the Model 4. The machine 
has a Model III mode— much like the 



. . .you can run 

virtually any 

Radio Shack software 

that runs 

on a Model III. . . " 



Model 16 has a Model II mode — so it 
runs Model III software. 

In the Model III mode, however, you 
only get a 64 by 16 display and 2 MHz 
CPU operation, and you can only use a 
Model III operating system and Basic. 
It's a bit like putting a Volkswagen 
engine in a Cadillac . 

In this Model III mode, you can run 
virtually any Radio Shack software that 
runs on a Model III — including Model I 
software that runs on a Model III. 
Model III software manufactured by 
companies other than Radio Shack 
might not run on the Model 4, however. 

For example, certain game programs 
that feature special loaders (designed to 
foil attempts to copy the disks the games 
are shipped on) might fool the Model 
4's bootstrap loader, since this loader is 
different from the Model Ill's; these 
programs can't be loaded so they can't 
be run in either mode. 

Some people will be uncomfortable 
with the Model 4 in Model III mode 
because the video display looks slightly 
squashed. The letters appear to have the 
same width as they do on a Model III 
screen, but they look more squat. The 
Model 4's characters in Model III mode 
actually have better resolution than the 
characters on a Model III screen but 
they take a while to get used to. 

What software does the Model 4 run 
as a Model 4? For the time being, the 
only Model 4 software available is an 
operating system, TRSDOS 6.0, and 
the latest version of Microsoft Basic, 
version 5.0. In the next few months, 
Radio Shack is expected to announce 
SuperScripsit, VisiCalc, and other ap- 
plications packages for the Model 4. 

At the official debut of the Model 
4— the general meeting of the presti- 
gious Boston Computer Society on 



April 27, chosen partly to commemo- 
rate the 20th anniversary of Tandy's ac- 
quisition of Radio Shack — Jon Shirley 
claimed that "lots of software never of- 
fered for the Model III will be available 
for the Model 4, taking advantage of its 
80-column display and 128K memory." 

The biggest news is that CP/M 3.0 
will be available for the Model 4 in mid- 
summer, opening up another dimension 
of software possibilities from WordStar 
to Supercalc, dBASEII to Perfect- 
Writer. You can expect to see dozens of 
ads from companies selling CP/M soft- 
ware converted to the Model 4's disk 
format in these pages in the near future. 

While there have been no official an- 
nouncements, you can also expect the 
Model 4 to support the UCSD 
p-system, along with several good 
Pascal compilers. Eventually, you 
might be able to run C and Ada com- 
pilers on the Model 4. 

A New Version of Basic 

For now, however, you must be con- 
tent with TRSDOS 6.0 and Basic. This 
certainly poses no limitation as both 
these software constructs are as power- 
ful as any Radio Shack has ever offered. 

Microsoft Basic 5.0 (identified on the 
Model 4 screen as "BASIC 01 .00.00 for 
TRSDOS Version 6" and in the manual 
as "TRSDOS 6 Basic") is the same 
Basic that runs on the IBM Personal 
Computer, the NEC PC8000, the Vic- 
tor 9000, and several other major mi- 
crocomputers. 

This version of Basic supports all 
Level II Basic commands except 
CSAVE, CLOAD, Clock, CMD, 
POSn, Rename, and Verify. The Model 
4 does not support cassette-based 
operations from Basic. 

Basic 5.0 adds these new keywords: 
Chain, Common, ERRS, OCT$, Op- 
tion Base, RENUM, Row, SPACES, 
SPC, Swap, Wait, While. . .Wend, and 
WRITE#. Table 1 summarizes the func- 
tions of these new keywords. 

There are some significant differ- 
ences in the new Basic and Level II 
Basic. One that takes some getting used 
to is the new Basic's requirement that all 
reserved words be delimited by spaces. 
You cannot write FORX = 1TO10, for 
example, or DEFUSR. Instead, you must 
write FOR X = 1 TO 10 and DEF USR. 

This is no small task when you start 
converting Level II Basic programs to 
run on the Model 4. Since you can copy 
Level II programs onto Model 4 disks 
and subsequently load them into TRS- 
DOS 6.0 Basic, you will have to convert 
programs before you run them. 

A feature of TRSDOS 6.0 Basic that 
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is easy to get used to is its ability to use 
variable names of up to 40 characters in 
length — with all 40 characters signifi- 
cant. This lets you use descriptive 
variable names, including multiple 
word names like first. counter. Mean- 
ingful variable names enhance program 
readability. 

TRSDOS 6.0 Basic rounds numbers 
rather than truncates them in convert- 
ing real numbers to integers. Since the 
Model 4 uses an 80-column display, its 
internal print zones are 20 spaces apart 
rather than the 16 spaces in the Model I 
and 111. As discussed under hardware, 
the Model 4 is a RAM-based machine, 
so there are no ROM routines to access 
from Basic. 

TRSDOS 6.0 Basic dynamically allo- 
cates string space, making Clear state- 
ments unnecessary. Division-by-zero er- 
rors are not fatal and Then is optional in 
If. . .Then. . .Else statements. 

These features make TRSDOS 6.0 
Basic a more powerful language, but 
there are a few "gotcha's." 

The first gotcha is the amount of 
memory available for Basic programs. 
With the operating system and the en- 
tire Basic interpreter residing in user 
memory, only 29,424 bytes of program 
space are available. The Model III, with 



much of the interpreter in ROM, gives 
you 38,202. 

Second, with spaces necessary to de- 
limit key words and with long variable 
names possible, TRSDOS 6.0 Basic pro- 
grams eat up memory more quickly. 

Conspicuous by its absence in 
TRSDOS 6.0 Basic are the key words 
Sound and Play, used by other comput- 
ers to access the machine's sound capa- 
bility. In fact, the Model 4 manual says 
very little about the unit's sound 
capability. 

TRSDOS 6.0 

The Model 4 operating system is called 
TRSDOS 6.0, and is an upgrade of 
Logical Systems Inc.'s LDOS 5.x.x. It 
was christened version number 6.0 to 
distinguish it from previous versions of 
TRSDOS and from previous versions 
of LDOS. 

LDOS has been reviewed extensively 
in these pages; it is a powerful operating 
system offering job control language, 
device control, software filters, and 
numerous utilities. I call LDOS a 
programmer's operating system, due 
both to its power and (another gotcha) 
its complexity. 

The main criticism I'll level at Radio 
Shack regarding the Model 4 is this 



operating system— not because it lacks 
power, but because it is hard to use. 

I've used LDOS extensively and 
know my way around it pretty well. I've 
also used DOSPLUS and MULTIDOS 
extensively, in addition to TRSDOS 2.x 
and 1.x. Of all these operating systems, 
LDOS is the most difficult to use. 
TRSDOS 6.0, unfortunately, features 
all of LDOS's obscurity. 

For experienced computerists or 
semiprofessional and professional 
programmers writing applications soft- 
ware for the Model 4, LDOS presents 
no problems. But many newcomers to 
computing, buying a Model 4 as their 
first machine, might find TRSDOS 6.0 
a difficult introduction. 

Radio Shack would better serve the 
vast new audience the Model 4 will at- 
tract (since it can double as a CP/M 
computer) by writing a shell to insulate 
the average user from the operating 
system. This shell could present a menu 
offering major choices such as format- 
ting and backing up a disk, loading a 
program, copying a program, and ex- 
iting to the operating system. Such a 
shell could make operating system blues 
a thing of the past. 

Part of the problem with LDOS and 
TRSDOS 6.0 is the documentation. 




Phone 1 617 485 5115 
or 481 1027 



64K 2 Disk RS232 

Model 4 Upgrade Kit. Converts TRS-80 Model III com- 
puters (except for cabinet and disk drives). Includes 
new keyboard, 64K RAM, sound, TRSDOS and Disk 
BASIC. #26-1123, $699°' 



24K Model 100 
Model 1 2 80K 2 Drive 
Model 16 128 K 2 Drive 
Color Computer 
Modem I D.C. 
Modem II D.C. 
Modem D.C.-1 200 



Prices subject to change without notice. 
Not responsible for typographic errors. 



$799 
3250 
4699 
Call 
125 
195 
599 




DMP-100 

DMP-200 

DMP-400 

DMP-500 

Microline80 

Microline82A 

Microline92 

Microline93 

P.C. Plotter Printer 

GEMIN1 10 

GEMIN1 15 



$299 
590 
999 

1499 
315 
395 
499 
855 
199 
320 
450 



TRS-80 is a trademark of Tandy Corporation. 
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Which performs ajj the normal 
functions of a computer and is 

specially programmed to.... 



■ COMPUTE Sales Taxes, Discounts, 
Special Sales and Promotions 

■ TRACKS Sales by Type, such as Visa, 
Mastercard, Check, Charge, etc. and by 
Employee /Operator for up to 30 people 

■ SELF-PROMPTING to Cashiers 

■ Produces Audit Trails and ACCOUNTING 
DATA for entire operation 

■ CONTROLS up to 20,000 INVENTORY 

LINE ITEMS on our Hard Disk Drive 

■ CONTROLS up to 1,500 INVENTORY 
LINE ITEMS on your Floppy Drive 

■ Complete, Ready-to-Run SOFTWARE 
comes with Cash Control Drawer Unit 

■ AUDIBLE SIGNAL produced when any 
key is depressed by any operator 

■ DRAWER operates automatically or by 
manual override anytime 

■ Generates RECEIPTS on Printer 

■ Available to display in English, French, 
Spanish, or German Languages 

■ Operates on 110AC or 220AC...just plug 
it in 

■ NO INTERFERENCE with or modification 
of regular TRS-80 Mod III. ..plugs right 
into computer 

FREE Specifications and Data Package or 
order complete Operating manual for $15 
from 

ICR/FutureSoft 

Box 1446 - Orange Park, Florida 32073 
(904) 269-1918 for technical assistance 
and Dealer Information 

Integrated Cash Register Systems from 
as low as $449. 




While the manual is well organized and 
reasonably well-written, it seldom tells 
you all you need to know to accomplish 
a task. 

For example, TRSDOS 6.0 comes 
with a filter file called CLICK/FLT. 
This software filter is used to produce 
an audible click when you strike the 
Model 4's keys. To engage the filter, 
you must set the keyboard. 

In Appendix A, where you are 
directed by looking in the index for the 
entry CLICK/FLT, the manual offers 
this syntax for engaging the filter: 

SET devspec CLICK/FLT 

FILTER *K I devspec 

The accompanying text states, "In 
order to use the click filter, you must 
SET it to this filter program, and acti- 
vate it with the FILTER command." If 
you follow these instructions an error 
message appears stating that the device 
(the keyboard) is already set. 

A lot of additional reading indicates 
that you must first set the physical 
device equal to a phantom device before 
you activate the filter. The information 
is there, but not in one place, a draw- 
back typical of the manual. 

When you're working with a complex 
program, it's impossible to provide con- 
cise instructions. But I believe that it can 
be done more effectively than it has 
been with the Model 4 TRSDOS 
manual. 

(By the way, here is the syntax needed 
for the CLICK/FLT filter: 

SET *PD TO CLICK/FLI 
FILTER *KI *PD 

This sequence sets a phantom device 
(PD) to the filter file and then filters the 
keyboard through the phantom device, 
which in turn invokes the filter file. All 
this to make your keys click!) 



In spite of its complexity and inade- 
quate documentation, TRSDOS 6.0 is 
the best operating system offered by 
Radio Shack for one of its computers 
(Xenix and CP/M 3.0 were not avail- 
able for inspection at this writing). 

Of major importance is the conver- 
sion (CONV) utility, which lets you 
copy files from TRSDOS 1.2- and 
1 .3-formatted disks to TRSDOS 6.0. 
Therefore, Model III owners who buy 
the Model 4 upgrade kit (see Hardware, 
below) can easily convert Basic pro- 
grams to the Model 4, as can anyone 
with Model III programs on disk. 

The only Model III disk the Model 4 
won't copy is a copy-protected Scripsit 
or VisiCalc disk, or a disk with a non- 
standard format. 

You can even convert machine-lan- 
guage programs. But they might not run 
on the Model 4 (remember, there are no 
ROM routines). I immediately copied 
Scripsit and VisiCalc from an LDOS 5.1 
disk to a TRSDOS 6.0 disk (TRSDOS 
6.0 reads LDOS disks without the need 
for CONV) only to discover that the 
programs did not execute in the Model 4 
environment. 

Another major utility is the com- 
munications (COMM) program, a ter- 
minal program that lets you use your 
Model 4 to talk to other computers via 
the RS-232 communications line. 
COMM even allows you to obtain infor- 
mation from another computer and send 
it directly to a printer attached to your 
machine. 

Two other interesting utilities are the 
TAPE100/CMD file, which allows the 
Model 4 to read Model 100 tapes, and 
the MEMDISK/DCT file, which allows 
a disk drive to be simulated in RAM if 
you have a full 128K. (80 Micro will pre- 
sent separate articles about these 
capabilities of the Model 4 in upcoming 
issues.) 

TRSDOS 6.0 supports hard-disk 



Chain Chains one program to another and initiates a run of the last program 
chained. 

Common Reserves space for variables so they can be passed to a chained program. 

ERRS Returns a system error number and message. 

OCT$ Converts a decimal number to octal. 

Option Base Resets the minimum value for an array subscript. 

RENUM Renumbers a program. 

Row Returns the row position of the cursor. 

SPACES Prints a string with zero-255 spaces. 

SPC Prints a line with between zero-255 spaces. 

Swap Exchanges the values of two variables. 

Wait Suspends program execution until an input/output port receives a value. 

While. . .Wend Executes a loop as long as the entry condition is true. 

WRITE# Writes data to a sequential-access disk file (replaces P R I NT#) . 

Table 1. New TRSDOS 6.0 Basic keywords 
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EXTRAORDINARY 

VALUES 






*449. 

DISK III KIT 
W/DRIVE 



559. 



SMITH CORONA 
TPI 



HARD DISK III 
5MEG 
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DISK III for MOD III 

Disk III kit dual drives $699.00 

Disk III kit no drives $299-95 

External Floppies 

(Model I/Model III) $229-00 

80 track or 2 sided $ 3 1 9-00 

80 track and 2 sided $459-00 

Power supply & enclosure only $54.59 



MODEL III 
COMMUNICATIONS 

VR-RS232 



Direct Replacement For R.S. 

RS232, Fully Tested & 

Burned-in, Easy Installation. 

120 Day Warranty, Programmable Pinout, 

Prototype Area 



80. 



SPECIAL BUYS ON C.O.D. & PREPAID MAIL ORDERS ONLY: 


C. Itoh Prowriter Par 


S48900 


Paper l4 7 / 8 x 1 1 (green bar) 


S 39.95 


D.C. Hayes Smartmodem 




C. Itoh Prowriter Serial 


599.00 


Printer cables 


25. 00 


1200 


8569. 00 


C ItohF10-40CPS 


139500 


Okidata Microline 82A 


429-00 


Amdek 12" Green Monitor 




C. Itoh F10-40CPS Serial 


1395.00 


Okidata Microline 83A 


699-00 


(Apple) 


149-00 


C. Itoh Tractor 


225.00 


Okidata Tractor 


55. 00 


Amdek 13" Color Low Res 


369.00 


MX-80 Rihhons 


995 


Percom Doubler II 


169.00 


Amdek 12" Green Monitor 




MX- 100 Ribbons 


19.95 


Percom Data Separator 


29.95 


(IBM) 


189.00 


C. Itoh & Diablo Ribbons 


7.50 


DOS-plus Operating System 


14900 


Anchor Signalman Modem 


149.00 


Nee Ribbons (min. 6) 


4.95 (ea.) 


Verbatim 525-01 


26.90 


Xedex Baby Blue CP/M Card 


529.00 


Epson Graftrax 


7500 


D.C Hayes Micro Modem II 


529.00 


Internal TM 100-2 Drives 


365.00 


Paper 9 x h x 11 (fanfold) 


29.95 


D.C. Hayes Smartmodem 300 22900 


TRSDOS & Manual 


21.90 










LNW research (full line) 


CALL 




If You Don't See It Advertised 
Call Us & Ask For It. 



MasterCard , 



data 



*-10 



777 Henderson Boulevard N-6 
Folcrofr, PA I9032 1215)461-5300 




Call Toil-Free 

800-345-8102 



Published prices reflect cash discount. All prices 
are subject to change without notice. TRS-80 and 
TRSDOS are trademarks of Tandy Corp. DISK III 
is a trademark of VR Data Corp. 
8:30AM-7PM E.S.T. Mon.-Fri., Sat. 10AM-3PM 
CABLE "VRDATA" TELEX 845-124 




Photo 2. The Model 4 's Keyboard. 



operation, although the Model 4 
manual contains virtually no informa- 
tion about this. The occasional refer- 
ence to hard disks refers the reader to 
the Radio Shack hard-disk manual for 
information. 

The Hardware 

Now that you have an idea of what 



PEL-TEK Announces 
EXTRAORDINARY VALUES for 

the TRS-80 MOD l/lll 
Pel Tek's Word Machine Version 2.0 

A full featured line oriented word processor in machine 
language . . . now better than ever with these features: 

• Block graphics (for printers mat support it) 

• Embedded printer controls • Help screen 

• Lower case support for unmodified Mod I's 

• Variable margins, line length, page length, line spacing 

• Access to 0.0. S. with warm start re-entry 

• Scroll up/down text • Save/load disk files 

• InsertJdelete characters/lines • String search 

• Printer independent • Simplified commands 

• Twenty four page typeset manual with command 
summary sheet (Manual FREE with S.A.S.E.) 

Easy to learn, easier to use, now compatible with Aspen's 

RANDOM HOUSE proof reader. 

for Mod l/lll 32/48K Disk $20.00 

The Random House Proof Reader 

From Aspen Software, the best price/performance 
spelling checker on the market today. Based on ttie 
Random House Dictionary: 

• Shows spelling errors in context 

• Allows immediate correction 

• Add or delete, words from dictionary 

• 32,000 word dictionary 

Suitable for use with Pel Tek's word machine or other 

TRS-80 Mod l/lll Word Processors. 

for Mod l/lll 32/4BK Disk $50.00 

SAVE $10.00!! Order Pel Tek's Word Machine and the 
Random House Proof Reader together for one low price, 
only $60.00 

PEL-TEK 

P.O. Box 1026 • Southampton. PA 18966 

TOLL FREE ORDER LINE 800 523 2445 

In Pennsylvania CaH (215) 947 2334 

• Check or Money Order • Visa, MasterCard accepted 

• Add $2.00 per order for postage and handling 

• PA residents add 6% sales tax 



the Model 4 can and cannot do from a 
software standpoint, let's look inside 
the cabinet to discover what hardware 
goodies make up this affordable new- 
machine. 

But before we go inside, let's look at 
the outside. The primary difference is a 
new paint job and a modified keyboard. 
There isn't much to say about the 
paint — it's off-white — but the keyboard 
has some nice new keys (see Photo 2). 

The first thing you notice is that 
where the Model III has three white 
keys, the Model 4 has 15. In addition to 
the enter keys, the four cursor control 



keys, the shift keys, and the break and 
clear keys are white. Also white are five 
new keys — control, caps, and three 
function keys (labelled Fl, F2, and F3). 

Besides the keyboard and cabinet col- 
or, you'll find that only the nameplate 
and the RAM-size emblem differ from 
those on the Model III. 

The Model 4 uses the same disk 
drives as the Model III — single-sided, 
double-density drives with 160K capac- 
ity — and supports a maximum of four 
drives. 

Disk operation is a bit different with 
the Model 4. A small, on-board ROM 
turns on the disk drive when you first 
turn on or reset the machine. This ROM 
reads the first track on the disk in drive 
zero and determines whether the disk is 
a Model III or Model 4 (or, ultimately, 
a CP/M) disk. 

If the disk is for a Model III, a hard- 
ware multiplexer switches out the first 
16K of RAM and switches in 14K of 
ROM, plus 2K of system RAM, and 
emulates a Model III. When a Model 4 
(or CP/M) disk is decoded, the full 64K 
of RAM is used and the entire operating 
system loads into RAM from the disk. 

The CPU Board 

The main reason for the Model 4's in- 
creased processing power and lower 
cost is a lower chip count. Overall, the 
64K Model 4, with 84 chips, has 23 
fewer chips than a 48K Model III (with 
107 chips). 

The Model 4 uses NEC 64K x 1 dy- 



Semi-Custom Logic Circuits 



The Model 4 makes use of new, 
VLSI (very large-scale integra- 
tion — over 1,000 transistors on a 
chip) semi-custom logic chips. These 
chips are also called programmable 
gate array logic chips. 

Essentially, a semi-custom logic 
chip contains a large number of stan- 
dard circuits, called gates, for hard- 
ware implementation of Boolean 
logic functions — ANDs, ORs, 
NORs, and NANDs. These circuits 
are not connected to each other until 
the chip is programmed, a process 
similar to encoding ROM chips. 

A gate is simply a circuit with two 
or more inputs and one output. A 
gate array is a geometric pattern of 
gates that can be combined during 
manufacture (or when programmed, 
as in the newest generation of pro- 



grammable gate arrays) to perform a 
complex function. 

The logic circuits on the chip are 
combined to produce multiplexing 
circuits, flip-flops, address decoding 
circuits, bus control logic, and the 
like. Once the design of the circuits is 
fixed, many chips (in Tandy's case, 
hundreds of thousands) are pro- 
grammed. 

Semi-custom chips have several ad- 
vantages. Because they are already 
fabricated, economies of scale keep 
their cost down. They allow circuit 
designers to build boards with empty 
sockets while all the other circuits on 
the board are built — the designer can 
design around this "hole" and come 
back later to install the customized IC 
once the overall design is complete. ■ 

— GMV 
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Ammicro introduces 

the first letter quality printer for $680 

that can also be used as a typewriter. 




The MICRO WRITER Daisy wheel printer. 



There was a need for a low cost letter quality machine that would 
be suitable for use as an office typewriter, and as a computer printer. 
Ammicro met that need by combining the Microwriter parallel inter- 
face and the traditional Olivetti craftsmanship that was available in 
their Praxis machine. 

With the Microwriter you can have the best of both worlds a let- 
ter quality printer, and a high quality office typewriter all in one 
machine, that sells for less than the cost of a good dot matrix printer! 

It's not just printer or a typewriter that comes complete with a 
deluxe carrying case, but a feature-packed, lightweight machine that 
doubles as an office typewriter. This printer is a simple, low cost, 
reliable unit which can be utilized with word processing systems, 
microcomputers, personal computers, and small business systems! 
The Microwriter's low noise level and slim modern styling aliow it to 
blend with any decor. 

The Microwriter's print quality is identical to the finest office 
typewriters on the market. This machine is not only perfect for let- 
ters and manuscripts, but with it s 165 character, 12 inch print width, 
the machine is perfect for letter quality budget spread sheets, price 
lists, data sheets, and forms. 

The Microwriter can tab, rule single lines both vertical and 
horizontally, underline and print at 10, 12, or 15 characters per inch 
(switch selectable)! Its ten character memory for automatic error 
correction, lift off correction ribbon, and fixed or programmable page 
formats are a few of the many features that make it a perfect office 
typewriter. Microwriter not only handles letter and legal size sheet 
paper in widths up to 12 inches wide, but also handles fanfold paper. 

There's a wide selection of 21 interchangeable daisy wheels 
available. And ribbon cassettes that just drop in. 

-See List ol Advertisers on Page 323 



It s operation as a computer printer is simple. Just load it up with 
paper and you are ready to go. Centronics compatible parallel output 
cables are currently available from stock for the following com- 
puters: IBM PERSONAL COMPUTER™, OSBORNE 1™ 
ZENITH Z-100™, BURROUGHS B-20™, Convergent 
Technologies models IWS.& AWS™, TRS-80 MODEL I, II, IIITM t 
APPLE II™ . . . custom cables also available by special order. 

This machine creates a new standard by which all current low 
cost letter quality printers will follow. Ammicro's Microwriter is tru- 
ly designed for the lifestyles of the 80's and for decades to come. 

Why settle for just any printer when you can have a 

MICROWRITER a fine letter quality typewriter for you and 

your computer. 

The Microwriter is the only daisy wheel printer on the market for 
$680. For more information, see your local computer dealer or con- 
tact Ammicro directly. 

cQfiifiiDfliid) 
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122 East 42 Street, Suite 1700, New York, N.Y. 10168 
»" 258 (212) 254-3030 



(MasterCard) 




MICROWRITEK is 1 Ifjdrnutk nl Amm«... 
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Photo 3. Model III CPU Board. 



namic RAM chips rated at 100 nano- 
seconds versus the Model Ill's 16K x 
Vs. This alone reduces the chip count 
for 64K from 24 to eight chips. 

Much of the bus control logic cir- 
cuitry and address decoding circuitry is 
consolidated onto programmable gate 
array logic chips (see accompanying 
box), further reducing the chip count. 

Finally, the video control circuitry is 
replaced by a custom video chip to 
reduce the chip count even further, 
while providing better resolution plus 
two character sets — one for the 64 by 16 
(Model III mode) display, the other for 
the 80 by 24 or 40 by 24 display. 

The microprocessor is the workhorse 
Z80A running at a fast 4 MHz. The in- 
creased speed of the processor accom- 
modates the extra decoding hardware 
and software necessary to bank -select 
an extra 64K of RAM. (It'll also sort 
your mailing list faster.) 

The Model 4's power supply is con- 
solidated onto one board, replacing the 
two-board power supply in the Model 
III, giving the machine a much cleaner 
look (see Photos 3 and 4). The disk 
drive housing is better shielded than the 

Model Ill's. 

The Model 4 I reviewed carried the 
serial number 0026691 (the model 
number is 26-1069). This machine's 
CPU board has a substantial number of 
reworked and rewired circuits; in fact, 
one IC has a pin bent up away from the 
socket it normally occupies and an at- 
tached wire leading to another circuit. 

It thus appears that some early 
models were altered in the latter stages 
of production. (An American folk tale 
says never buy a new model car until 
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they've made a few thousand; does this 
wisdom apply to computers, too?) 

The Model 4 video display offers 
substantially higher resolution than the 
Model III. It looks like the Model 
11/12/16 display, with the same 80-col- 
umn character set. Preproduction 
rumors claimed the Model 4's display 
would be green — they were wrong; it's 
white-on-black. The display does sup- 
port reverse video, however, and a high- 
resolution graphics board is offered as a 
$249.95 option. 

Model III owners can upgrade their 
machine to a Model 4 for $799. The 
upgrade includes a new CPU board and 
keyboard installed in your existing 
Model III cabinet (installation charges 



are extra). A Model 4 upgrade also pro- 
vides the new operating system and 
Basic. 

The 64K memory expansion for the 
Model 4 costs $149. The CPU board 
has eight empty sockets for the extra 
chips needed for this upgrade. 

The 50-pin expansion bus on the 
Model 4 is identical to that of the Model 
III, as is the RS-232 circuitry. 

Little information is available at this 
time about the machine's sound capa- 
bility. As mentioned previously, Basic 
does not offer any sound commands (in 
spite of advertising claims) and the 
only sound I generated in my review 
was a faint clicking noise from a tiny 
speaker under the keyboard. 80 Micro 
will hasten to uncover more about this 
mysterious sound facility. 

Evaluation 

My opinion of the Model 4 is 
positive. With the exception of the new 
Osborne Executive and one or two 
other portable computers, the Model 4 
is the least expensive Z80 machine on 
the market today. 

With CP/M and TRSDOS capabili- 
ty, it has the potential to address a 
massive market. A big market means 
outstanding software support, new 
peripherals, and hundreds of great ar- 
ticles in 80 Micro about a powerful 
machine. 

The recent shift by Tandy away from 
proprietary system software bodes well 
for the future of the TRS-80 line. If 
you're like me, you'll applaud this trend 
and look forward to other new computer 
products both from Radio Shack and the 
companies that support the TRS-80s. ■ 




Photo 4. Model 4 CPU Board. 
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THE CONCEPT 

A series of" computer games in whic 
players become characters of their ow 
design, cliaracters who must grow in skil 
and wisdom to survive the challenge 
presented them. Characters developed u 
the simpler of the games would be 
transfcrrablc to the more difficult as their 
abilities increase. Rather than offering 
<ine fixed goal in one set maze, the soft- 
ware would have to contain thousands of 
potential goals and thousands of possible 
pitfalls, for thousands of hours of amuse- 
ment. The concept, in short, 'was for the 
creation of a series of games unlike any 
available in the microcomputer market. 



ING EDG 



THE GAMES 

ided by such a concept would be 
common software. They would re- 
machine-language speed, and 
•on-master complexity. Graphics 
I have to be an integral part of the 
iture, rather than pretty but static 
res with no real-time connection to 
i. They would have both a game-save 
I character-save feature. And, on 
,'hatever machine they were imple- 
ed, the software would have to have 
line great graphics, the same speed 
mmand interpretation, the same 
lexity and mind-bending challenge, 
challenge. But ScreenPlay ,M 
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THE SERIES 

Called The Warrior of RAS. The programs 
in the series are DUNZHIN, WYLDE, 



ning warrior a chance to learn the tech- 
niques necessary for success in the others. 
DUNZHIN is set in a massive dungeon. 
WYLDE takes place in a trackless 
wilderness. Subterranean adventures are 
presented in KAIV, and ZIGGURAT takes 
place in a giant pyramid, with an adven- 
ture so complex and challenging even the 
author wonders if he can ever complete it. 

The Warrior of RAS series. From 
Randall Don Masteller and Screenplay™. 

The choice is simple. You can play ■*' 
Warrior of RAS games, or someth' 
quite as good. , 

DUXZIIIX. 

KAIV 

WYUii: ...... vl , . .v . , w *f, v . $29.95 

ZIGGURAT .... £2.9.05 

Aixiilahle in cassette wrsums for Atari 
400/800, Ratlio Shack Model I/III, and 
Commodore 64. 

Axxulahle in iliskette ivrsitmsjbr Atari 
400/800, Radio Shack Model I/III, Apple 
11+ /lie, IBM I\'rsonal Computer, and Com- 
mailore 04. 

All irrsions require 48K. 






lall Don Masteller. Well-known 
in the close-knit fraternity of non- 
..puter fantasy role-players, Masteller 
combines years of professional program- 
ming experience with an awe-inspiring 
imagination and dedication to fantasy 
gaming. No other fantasy role-playing 
— -? author has skills comparable to 
eller's. And Masteller 's software' 




OnCv From 




■ 



, int. 
, IVC 27514 

At dealers everywhere 
or call 1-800-334-5470 



ScircnI'luy is a trademark (}f Intelligent Statements, Inc. Radio Shack is a trademark of'Umdy Corj>. Cttmmoilorc trt is a tradenuirk ofCommodoir linsiness Machines. Apple II - and lie air trademarks of Apple Computers, Inc. 
IBM lYrsonul Computer is a tnidemark of International Business Machines, Inc. 
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GAME 




by Richard Uglum 



ou're a slimy rat. And you're stuck — in 
a 3-D Color Computer maze straight out of 
the twilight zone. Escape if you can! 




Have you ever wondered what it's 
like to be a laboratory rat? Consuming 
mass quantities of cancer-causing food 
and drink, being injected, dissected, 
and molested? And those crazy mazes! 

This Color Computer game simulates 
the life of an experimental rat. It gives 
you a rat's-eye view of a maze you must 



successfully negotiate. The game is 
based on a two-dimensional maze, but 
gives you a three-dimensional view as 
you travel through it. 

The Maze 

The maze comprises a 20- by 
20-element array (DIM A(20,20)) of 



A(20,20) 


array that holds the maze 


X,Y 


the current coordinates of the rat 


XS,YS 


the starting coordinates of the maze 


XE.YE 


the exit coordinates of the maze 


XT.YT 


temporary coordinates for the rat's position 


XF.YF 


position immediately in front of the temporary rat position 


XR.YR 


position immediately right of the temporary rat position 


XL.YL 


position immediately left of the temporary rat position 


XA.YA 


values used to increment the range of view 


F 


value of array in front of rat (F = A(XF,YF)) 


L 


value of array to the left of the rat 


R 


value of array to the right of the rat 


D 


direction the rat is facing 


A$ 


command input variable 




Table 1. Variables List 



ones and zeros. The ones represent the 
walls, the zeros corridors. The maze's 
starting location is the value two, and 
the exit is the value three. The walls 
form the boundaries and cannot be 
traversed. 

The screen display is divided in half 
to create the rat's-eye view. Each half is 
divided into three ranges: the current lo- 
cation of the rat and the two locations 
immediately in front of the rat. 

There are four possible corridor com- 
binations for each area on each side of 
the screen. For example, at range zero 
(the rat's current coordinates), the fol- 
lowing combinations of corridors and 
walls exist for the left side of the screen: 

• corridor to the left, corridor to the 
front. 

• corridor to the left, wall to the front. 

• wall to the left, corridor to the front. 

• wall to the left, wall to the front. 
This scheme produces 24 combina- 
tions that have to be checked to print 
the entire screen. The program keeps 
track of your direction and accordingly 



The Key Box 

Color Computer 
32KRAM 
Extended Color Basic 
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EO INSTRU 

HOW MANY HOI 




LYNN Computer Service presents a new concept for 
computer users — The Video Instruction Series. A "REAL 
TIME" learning aid where the user is shown step by step 
how to use complicated operating systems and programs. 
Your VCR, used side by side with your computer, serves 
as your personal tutor. 

PICTURES ARE WORTH 

THOUSANDS OF WORDS AND SAVE 

HOURS OF FRUSTRATION 

VIDEO INSTRUCTION SERIES TOPICS: 



TRSDOS 1.3 MOD III 
TRSDOS 6.0 MOD 4 
NEWDOS80v2.0 
LDOS 

DOS PLUS 3.5 
MULTIDOS 



VISICALC 
LAZY WRITER 
SUPER SCRIPSIT 
SCRIPSIT 
PROFILE III PLUS 




ONLY 



EACH TAPE 



MASTERCARD — VISA and C.O.D. Orders accepted 
add $3.00 perorderforshipping and handling. Telephone 
orders taken 9:00 a.m. - 6:00 p.m. Central Time. 
Specify either VHS or BETA Tape Format 

C.O.D. Orders add $3.00 




TO ORDER PHONE 
OR WRITE 



BankAmericard 



VZS4 




THE OLD HARD WAY 



ERROR 




©r-U*--, 



THE NEW EASY WAY 

Lazy Writer Word Processor AND 
Video Instruction Tape, a SIMPLE to 
useWP program POWERFUL enough 
to design this AD. With documentation 
and registration card. MOD I, III & 4 



ONLY 



00 



Learn to PROGRAM! Level II BASIC 
for the Model I or III computers. Step 
by step tutorial lessons on video 
cassette ... 



ONLY 



,95 



Newdos 80 disk operating system 
AND video instruction tape, a power- 
ful DOS for the TRS 80 model I or III 
computers. With documentation and 
registration card . . . 



ONLY 



$ 



COMPUTER SERVICE 



6831 West 1 57th Street Tinley Park, 

(312)429-1915 



linois 60477 
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VISICALC IS ATRADE MARK OF PERSON ELSOFTWARE INC. LAZY WRITER IS A TRADMARK OF ALPHA BITCOMMUNICATIONSSCRIPSIT.SUPERSCRIPSIT, PROFILE. PROFILE. PLUS AND 
TRSDOS ARL TRADEMARKS OF TANDY CORP. LDOS IS A TRADEMARK OF LOGICAL SYSTEMS INC. NEWDOS80 IS A TRADEMARK OF APPARAT INC. DOS PLUS IS A TRADEMARK OF 
MICRO-SYSTEMS SOFTWARE INC. MULTIDOS IS A TRADEMARK OF COSMOPOLITAN INC. 



prints N, S, E, or W at the top of the 
screen. Use the appropriate letter keys 
to change the rat's direction during 
play. The L and R keys change the way 
the ral faces. The F key moves the rat 
forward. See Table 1 for a complete list 
of program variables. 

The Program 

Before running the game, use the 
POKE 65495,0 command to increase 
program execution speed unless it 



10 
20 
30 
40 
b'A 
60 
7 



Program Listing I 

REM THIS PROGRAM SIMULATES A 

REM RAT MAZE AT EYE LEVEL 

REM BY R.D. UGLUM 6/82 

CLS 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT 
PRINT " 
PRINT " 



Table 2. Line description 

10-30 Program comment header. 

40-210 Print header and command options. 

220-560 Set up graphics mode and array that holds the maze. A value of one is a wall 
and a value of zero is an open passage. A value of two is the starting location 
and a value of three is the exit location . 

570-590 Set initial direction and start accepting commands. 

600-640 Check quit condition and output of location at end. 

650-800 Set direction to desired value. 

810-900 If command is an "F" then check for open space and update coordinates. 

910-980 Check for termination condition. If not at end of maze then print view from 
current location unci continue. 

990- 1010 Start of view subroutine. This subroutine prints the view from the current loca- 
tion and direction by determining the locations to the left, front, and right of 
the current location. This is repeated for two locations beyond the current 
location. 

1020- 1080 Determine L, R, and F based upon direction. Begin range zero. 
1090-1 140 Left open, front open. 

1150-1170 Left Open, front Closed. Table 2 continues 



THIS IS THE RAT MAZE" 
YOU HAVE THE FOLLOWING" 
OPTION KEYS . , . GOOD LUCK" 

N = NORTH" 



SOUTH" 

WEST" 

EAST" 

FORWARD" 

LEFT" 

RIGHT" 

QUIT" 



ENTER ' C TO CONTINUE" 

(WAIT 15 SEC) " 



00 ZS=INKEY$ 



210 IF Z$<>"C n THEN 200 










220 PCLEAR 4 










230 DIM A! 20,20) 










240 PMODE 4,1 










250 PCLS 










260 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1 


i 


1 


1,1 


1,1 


27 DATA 1,0, 0,0 


0,1,0,1,0,1,0,0,0,1 





1 


0,1 


2,1 


280 DATA 1,1,1,1 


0,1,0,0,0,0,0,1,0,0 








0,0 


0,1 


290 DATA 1,0,1,0 


0,0,1,1,0,1,1,1,0,1 


.1 


1 


0,1 


1,1 


300 DATA 1,0,1,0 


1,0,1,0,0,0,0,0,0,0 








0,0 


,0,1 


310 DATA 1,0,0,0 


0,0,1,1,0,1,0,1,1,1 





i 


1,0 


1,1 


320 DATA 1,0,1,0 


1,0,1,0,0,0,0,1,0, 1 





1 


, 


0,1 


33 DATA 1,1,1,0 


1,0,1,1,1,1,0,1,0,1 


i) 


-1 


0,1 


1,1 



Listing I continue.', on p. 114 



TRS-8Q Model I is alive and well at the Micromint. 

still have the expansion interfaces you 



Disk-80 
Expansion Interface 




As featured in Ciarcia's Circuit Cellar 
Byte Magazine, March 1981 

Reviewed in March '82 "80 Microcomputing" 

DSK01 Disk 80 Expansion Interface 

with 32k RAM A & T $330.00 

DSK02 Disk-80 Expanstion Intertace 
with 32k RAM & Printer Port 
A&T 380.00 

DSK03 Disk-80 Complete Kil with 

32k RAM & Printer Port 275.00 

DSK04 Disk-80 Bare Printed 

Circuit Board 48.00 

DSK05 Printer/ Power Supply 

Circuit Board 16.00 



The Disk-80 Expansion Interface is the 
perfect peripheral for converting your TRS-80 
Model I into a professional computer system. 
The Disk-80 controls up to four 35 to 77 track 
mini-disk drives, and contains a hardware data 
separator which substantially increases the 
reliability of data transfers. Attaches to the 
CPU/Keyboard connector and comes complete 
with mini-disk controller, 32K expansion 
memory, power supply, optional Centronics 
compatible printer port, real time clock and 
buffered bus expansion connector. 

"Reviewing Disk-80 is almost incongruous, 
because any comments can be summarized 
with the sentence, "It works." Dennis Bathory 
Kitsz, 80 Microcomputing, March 1982. 

All interfaces are Radio Shack hardware and 
software compatible and carry a 60 day war- 
rantee including parts and labor. 
All units include user's manual, power sup- 
ply & auxiliary TRS-BUS connector for future 
expansion. 

Dealer Inquires Invited 

N.Y. State residents please add appropriate sales tax. 



To Order: Call Toll Free: 1-800-645-3479 
(In N.Y. State Call: 1-516-374-6793) 
For Information Call: 1-516-374-6793 
MICROMINT INC. 
561 Willow Avenue 
Cedamurst, NY 11516 




Comm-80 




As featured in Ciarcia's Circuit Cellar 
Byte Magazine, May and June 1980 

The COMM-80 is the only interface you 
need to turn your TRS-80 Model I into a 
time sharing terminal with provisions for a 
printer. The COMM-80 combines the most 
used features of the RS expansion inter- 
face in a low cost unit containing a built-in 
RS-232-C interface, a full 8-bit parallel port 
and a 40 pin bus connector for future 
expanstion. Terminal software is included 
at no extra cost. 

• RS-232-C Serial output port (50-19200 baud) 
with standard DB25 connector. 

• Centronics compatible parallel printer port (34 
pin) 

• 40 pin card edge connector tor bus expansion 

• Connects directly to CRT terminals, modems, 
printers, other computers. 

• Includes case, power supply & interconnecting 
cable. 



CM01 COMM-80 Serial/Parallel 
I/O Interface A&T 



5150.00 



TRS-80 is a trademark of Tandy Corp. 
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1180-1200 I eft closed, front open. 

1210-1260 Left closed, front closed. 

1270-1320 Right open, front open. 

1330-1350 Right open, front closed. 

1360-1380 Right closed, front open. 

1 390- 1 440 Right closed , front closed . 

1450-1490 Check for termination of view at wall. If no termination then extend range 

forward one. Redetermine L, R, and F. 

1500-1560 Left open, front open. 

1570-1600 Left open, front closed. 

1610-1630 Left closed, front open. 

1640-1690 Left closed, front closed. 

1700-1760 Right open, front open. 

1770-1800 Right open, front closed. 

1810-1830 Right closed, front open. 

1840-1890 Right closed, front closed. 

1900-1940 Check for termination of view at wall. If no termination then extend range 

forward one. Redetermine L, R, and F. 

1950-2010 Left open, front open. 

2020-2050 Left open, front closed. 

2060-2080 Left closed, front open. 

2090-2140 Left closed, front closed. 

2150-2210 Right open, front open. 

222!) 2250 Right open, front closed. 

2260-2280 Right closed, front open. 

2290-2350 Right closed, front closed. End of routine. 

2360- 2390 This routine prints the letter "N". 

2400-2450 This routine prints the letter "S". 

2460 2500 f his routine prints the letter "E". 

2510-2550 This routine prints the letter "W". 



causes problems. 

The line commands in the program 
(see Table 2) draw the maze so that the 
line-end coordinates are obvious for 
converting this program to other ma- 
chines. Try converting the program to 
draw commands; it requires some extra 
effort, but it might make the program 
execute faster. 

Version Two 

The object of the second version of 
Rat Maze is similar to the first, but the 
maze is smaller and the rat slower. In 
addition, an invisible exit is included in 
the maze at a randomly chosen junc- 
ture. A tone increases in pitch as the rat 
nears this exit. 

The most significant change, how- 
ever, is the addition of five rat-eating 
cats to the maze. The cats, represented 
by circles, try to corner the rat. Three of 
the cats produce increasingly shrill 
noises as they get near the rat. The other 
two cats are silent. If you try to avoid 
the cats, you'll never find the exit. 

Use POKE 65495,0 to make this ver- 
sion playable. ■ 



Write to Richard Uglum at 11 17 A E. 
Potter Ave., Milwaukee, WI 53207. 




PIK'E 




67% ' 

Accurate 

AGAINST POINTSPREAD 

1982 SEASON 

INCLUDING 

AN OUTSTANDING 

130F15 

*V PLAY-OFF GAMES 



ORDERS CALL COLLECT 
PHONE LINES OPEN 24 HOURS 



A COMPLETE PRO FOOTBALL PREDICTION PROGRAM 

FOR THE 1983 NFL SEASON— INCLUDING PLAY-OFFS 

• • • • * 

*20 MIN DATA INPUT PER WEEK WILL GIVE YOU 



VISA 



C.O.D. 



THE EDGE- 



$0095 



29 



- FEATURES - 

DISPLAYS PREDICTED SCORES 219 GAMES 
DISPLAYS ACCUMULATED STATS/TEAM 
DISPLAYS AVERAGE STATS/TEAM 
HARDCOPY PRED - STATS - AVE 
AUTOMATIC OPPONENT INPUT 
AUTO STORE DATA - NO 'SAVE' 
UPDATEABLE FOR 1984 



NAMF 








ADDRFSS 


CITY ST ZIP 

PIK'EM 29 95 □ STAT SER 35 00 □ 
Ml D Mil! □ APPLE □ IBMPC D 
| VISA □ MC □ PAY ENC □ 


I I I I I I I I 










III 


CARD EXPIRES 













INCLUDES: DISC 
DOCUMENTATION 



TRS-80 MODEL I / III 

IBM PC 

APPLE 

REQUIRES 32K 



IF PROGRAM IS BOUGHT AFTER 
SEASON STARTS — ALL PREVIOUS 
STATS NECESSARY TO UPDATE WILL 
BE INCLUDED — NO CHARGE. 



'STATISTICS NEEDED TO RUN THIS 
PROGRAM ARE AVAILABLE IN 
LOCAL NEWSPAPERS 

OR: 
MARATHON WILL FURNISH ALL 
NECESSARY STATS IN AN EASY TO 
READ ONE PAGE FORMAT FOR 19 
WEEKS. 

STATS ONLY $ 35°° 



OTHER PROGRAMS 

• PIK'EM 1984 FOR USFL • 

HOME BUDGET PLANNER 

• LETTER WRITER • 



Marathon Software Dept M 

P. O. Box 1 349 
Jacksonville, Texas 75766 
Phone (214) 586-8212 ^241 



■See List of Advertisers on Page 323 
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Listing I continued from p. 112 



340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
77 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
100 
101 
102 
103 



,0 


0,1,0, 


,1 


0,1,1, 


,1 


, 1 , , 


,0 


0,0,0, 


,0 


1,1,1, 





1,0,0, 





] , , J , 


,0 


0,0,0, 


,1 


0,0.1, 


,0 


1 , ,. 1 , 





0,0,0, 


,1 


1,1,1, 



0,0,0,1,0,1,0,0,0,1 

0,1,0,0,0,0,0,0,0,1 
0,1,0,1,1,0,1,1,0,1 
0,0,0,0,0,0,0,0,0,1 
1,1,1,0,1,0,1,1,1,1 
0,0,0,0,1,0,0,0,0,1 
0,1,1,1,1,1,1,1,0,1 
0,1,0,0,0,1,0,0,0,1 
0,1,0,1,0,1,0,1,0,1 
0,0,0,0,0,0,0,1,0,1 
1,1,0,1,0,1,0,1,0,] 
1,1,1,1,1,1,1,1,1,1 



DATA 1,0,1,0,0,0 

DATA 1,0,1,1,1,0 

DATA 1,0,1,0,0,0 

DATA 1,0,0,0,0,1 

DATA 1,1,1,1,0,0 

DATA 1,0,0,0,0,1 

DATA 1,1,0,1,0,1 

DATA 1,0,0,1,0,0 

DATA 1,0,1,1,1,0 

DATA 1,0,0,0,0,0 

DATA 1,1,1,1,3,1 

DATA 1,1,1,1,1,1 

FOR J=l TO 2 

FOR 1=1 TO 2 

READ A(I,J) 

IF A(I,J) <>2 THEN 520 

XS=I: YS=J: X=I: Y=J 

A ( T , J ) = 

IF A(I,J) <>3 THEN 550 

XE=I: YE=J: 

A(I,J)=0 

NEXT I 

NEXT J 

D=l : GOSUB 990 

A$=INKEY$ 

IF A$="" THEN 580 

IF A$0"Q" THEN 650 

CLS 

PRINT "RAT'S FOILED AGAIN 1 

PRINT 

STOP 

IF A$="N n 

IF A$="S" 

IF A$="E" 

IF A$="W" 

IF A$<>"L 

ON D GOTO 710,720,730,740 

D=4: GOTO 750 

D=3: GOTO 7 50 

D=l: GOTO 7 50 

D=2: GOTO 750 

IF A$<>"R" THEN GOTO 810 

ON D GOTO 770,780,790,800 

D=3: GOTO 810 

D=4: GOTO 810 

D=2: GOTO 810 

D=l: GOTO 810 

IF A$O n F" THEN 910 

ON D GOTO 830,850,870,890 

IF A(X,Y-1)=0 THEN Y=Y-1 

GOTO 910 

IF A(X,Y+1) =i 

GOTO 910 

IF A(X+l,Y)=f 

GOTO 910 

IF A(X-1,Y)=£ 

GOTO 910 

IF X=XE AND Y=YE THEN 940 

GOSUB 9 90 

GOTO 580 

CLS 

SCREEN 

PRINT ' 

PRINT ' 
END 

XT=X: YT=Y: 
PCLS 

SCREEN 1,1 

ON D GOTO 1030,1050,1060,1070 
YA=-1: YL=YT: YR=YT: YF=YT-1: XA=C 



X = ";X" Y = ";Y 

THEN D=l 
THEN D=2 
THEN D=3 
THEN D=4 
' THEN 750 



THEN Y=Y+1 



THEN X=X+1 



THEN X=X-1 



0,1 
'CONG' RATS' YOU HAVE" 
'FOUND THE EXIT" 



XL=XT-1: XR=XT+1: XF=XT 



1040 GOSUB 2360: GOTO 1080 

1050 YA=1: YL=YT: YR=YT: YF=YT+1 : XA=0: XL=XT+1: XR=XT-1: XF=XT: 

GOSUB 2400: GOTO 1080 
1060 YA=0: YL=YT-1: YR=YT+1: YF=YT: XA=1: XL=XT: XR=XT: XF=XT+1 : 

GOSUB 2460: GOTO 1080 
1070 YA=0: YL=YT+1: YR=YT-1 : YF=YT: XA=-1: XL=XT: XR=XT: XF=XT-1 
: GOSUB 2510: GOTO 1080 

1080 L=A(XL,YL) : R=A(XR,YR) : F=A(XF.YF) 
1090 IF LO0 OR FOB THEN 1150 
1100 LINE(4,24)-(36,24) ,PSET 
1110 LINE -(36,184) ,PSET 
1120 LINE -(4,184) ,PSET 
1130 LINE(36,24)-(68,56) ,PSET 
1140 LINE(36,184)-(68,152) ,PSET 
1150 IF LO0 OR FOl THEN 1180 
1160 LINE(4,24)-(116,24) ,PSET 
1170 LINE(4,184)-(116,184) ,PSET 



1180 IF LOl OR FO0 THEN 1210 

1190 LINE(20.8)-(68,56) ,PSET 

1200 LINE(28,191)-(68,152) ,PSET 

1210 IF LOl OR FOl THEN 1270 

1220 LINE(20,8)-(32,24) .PSET 

1230 LINE -(32,184) .PSET 

1240 LINE -(28,191) , PSET 

1250 LINE(32,24)-(116,24) .PSET 

1260 LINE(32, 184)-(116, 184) , PSET 

1270 IF RO0 OR FO0 THEN 1330 

1280 LINE(228,24)-(196,24) ,PSET 

1290 LINE -(196,184) , PSET 

1300 LINE -(228,184) ,PSET 

1310 LINE(196,24)-{164,56) ,PSE*T 

1320 LINE(196,l-84)-(164,152) .PSET 

1330 IF RO0 OR FOl THEN 1360 

1340 LINE(116,24)-(228,24) ,PSET 

1350 LINE(116,184)-(228,184) .PSET 

1360 IF ROl OR FO0 THEN 1390 

1370 LINE(212,8)-(164,56) ,PSET 

1380 LINE(204,191)-(164,152) .PSET 

1390 IF ROl OR FOl THEN 1450 

1400 LINE(212, 8) -(200,24) .PSET 

1410 LINE -(200,184) .PSET 

1420 LINE -(206,191) , PSET 

1430 LINE(116,24)-(200,24) ,PSET 

1440 LINE(116,184)-(200,184) .PSET 

1450 IF F=l THEN 2350 

1460 XF=XF+XA: YF=YF+YA 

1470 XR=XR+XA: YR=YR+YA 

14A0 XL=XL+XA: YL=YL+YA 

1490 L=A(XL,YL) : R=A(XR,YR): F=A(XF.YF) 

1500 IF LO0 OR FOB THEN 1570 

1510 LINE(68, 56)-(68, 152) , PSET 

1520 LINE(68, 72) -(84,72) , PSET 

1530 LINE -(84,136) , PSET 

1540 LINE -(68,136) , PSET 

1550 LINE(84,72)-(100,88) ,PSET 

1560 LINE(84,136)-(100, 120) .PSET 1 

1570 IF LO0 OR FOl THEN 1610 

1580 LINE(68,56)-(68, 152) .PSET 

1590 LINE(68 r 72)-(116,72) ,PSET 

1600 LINE(68, 136)-(116, 136) , PSET 

1610 IF LOl OR FO0 THEN 1640 

1620 LINE(68,56)-(100,88) ,PSET 

1630 LINE(68,152)-(100,120) ,PSET 

1640 IF LOl OR FOl THEN 1700 

1650 LINE(68,56)-(84,72) .PSET 

1660 LINE -(84,136) , PSET 

1670 LINE -(68,152) ,PSE r !' 

1680 LINE(84,72)-(116,72) ,PSET 

1690 LINE(84, 136)-(116, 136) , PSET 

1700 IF RO0 OR FO0 THEN 1770 

1710 LINE(164,56)-(164,152) ,PSET 

1720 LINE(164,72)-(148,72) .PSET 

1730 LINE -(148,136) ,PSET 

1740 LINE -(164,136) , PSET 

1750 LINE(148, 72) -(132,88) ,PSET 

1760 LINE(148,136)-(132,120) ,PSET 

1770 IF RO0 OR FOl THEN 1810 

1780 LINE(164,56)-(164,152) .PSET 

1790 LINE(96,72)-(164,72) ,PSET 

1800 LINE(96, 136) -(164,136) .PSET 

1810 IE ROl OR FO0 THEN 1840 

1820 LINE(164 / 56)-(132,88) .PSET 

183C LINE(164,152)-(132,120) ,PSET 

1840 IF ROl OR FOl THEN 1900 

1850 LINE(lfi4,56)-(148,72) ,PSET 

1860 LINE -(148,136) , PSET 

1870 LINE -(164,152) .PSET 

1880 LINE(148,72)-(116,72) ,PSET 

1890 LINE(148,136)-(116,136) .PSET 

1900 IF F=l THEN 2350 

1910 XF=XF+XA: YF=YF+YA 

1920 XR=XR+XA: YR=YR+YA 

1930 XL=XL+XA: YL=YL+YA 

1940 L=A(XL,YL): R=A(XR,YR) : F=A(XF.YF) 

1950 IF LO0 OR -Off THEN 2020 

1960 LINE(100, 88) -(100,120) .PSET 1 

1970 LINE(100, 96) -(108,96) , PSET 

1980 LINE -(108,112) .PSET 

1990 LINE -(100,112) .PSET 

2000 LINE(108,96)-(116, 104) .PSET 

2010 LINE(108,112)-(116,104) .PSET 

2020 IF LO0 OR FOl THEN 2060 

2030 LINE(100,88)-(100, 120) .PSET 

2040 LINE(100,96)-(116,96) ,PSET 

2050 LINE(100,U2)-(116,112) ,PSET 

Listing I continues 
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USE YOUR RADIO SHACK § COMPUTER TO WRITE 
SOFTWARE FOR ALL THE REST 



• IBM • DIGITAL EQUIPME 
TEXAS INSTRUMENTS • APPLE 
OLIVETTI • ALTOS • ZE 



NT • NEC • HEWLETT-PACKARD • SAGE • 
• RADIO SHACK • XEROX • COMMODORE • TERAK • 
NITH • CORVUS • COMPAQ • VICTOR 

If you have been writing programs on microcomputers for any length of time, you've discovered that nearly all operating systems 
lock you into one family of microprocessors (or worse, into one brand of computer). That leaves you some hard choices about your 
software development. Whether you are writing programs at home for personal use, or in the corporate environment, or for 
national distribution, the question about portability to other machines now and in the future is the same. Should you go after the 8- 
bit or the 1 6-bit market? Would it be better to target IBM, Apple, Radio Shack, Commodore, or Osborne? How will you move your 
programs to Digital Equipment machines, or the Texas Instruments market? And what about next year's crop of microcomputers? 

The UCSD p-System "Universal Operating System"* has the answer. 



Compare Market Coverage (Microprocessors) 


o.s. 


8080 


Z-80 


8085 


6509 


6502 


8086 


HP-87 


LSI- 11 


68000 


9900 


VAX 


p-System 


V* 


i* 


e- 


c 


• 


»-* 


^ 


v* 


»> 


V* 


\s 


CP/M 


V* 


^ 


iS 


















CP/M-86 












i/* 












MSDOS 












«^ 












TRSDOS 




*> 





















8-bit 



32-bit 



While some operating systems claim to be universal, only one is, in fact. And with the UOS, the entire operating system — editors, 
linkers, assemblers, compilers and all applications written under the UOS are designed for portability which means that a program 
written and compiled on one computer under the UOS can be ported to any other supporting the UOS and run without change. 
No other operating system can beat that degree of portability. Not only that, but the system features complete and integrated 
programmer productivity tools to conserve your software investment. The p-System "virtual" operating system characteristics 
make it possible to run very large applications in only 64K of RAM, yet allows you to take advantage of the additional speed and 
memory of the 1 6 and 32 bit computers. 



Here is what we have for the Radio Shack line of micros: 

UOS includes screen editor, bios, file manager, disk format, 

utilities, library for: 

Model 16(68000) $475 

Model 1 2 (Z-80) $375 

Model 4 (Z-80) $375 

Model II (Z-80) $375 

New Release - Model III upgrade board (Holmes) 

with 1 6K RAM (for 64K total) 80 x 24 video and the UOS $595 



Add-On's (Run on all) 

Pascal Compiler $375 

FORTRAN-77 Compiler $350 

BASIC Compiler $225 

File Conversions: 

TRSDOS to p-System $ 1 00 

CP/M to p-System $100 

IBM 3741 top-System $285 



Plus a complete line of high performance software including spreadsheet, data base, mailing list, word processing, accounting, 
medical and mathematical applications programs from some of the best names in the software business. Applications have been 
selected for sale and national distribution by IBM, Texas Instruments, DEC, and others. 

Write or call for our free newsletter and listing of applications software for these computers and the 
Apple, IBM-PC, IBM Displaywriter, DEC Pro 350, DEC 1 1/03 & 1 1/23, Altos 8000 series, Terak & 



Sage. 

$ trademark of Tandy Corporation . 

tPCD Supports Systems Software on DEC LSI-1 1 , Radio Shack Models II. Ill, 4 

1 2 & 1 6, Altos. Terak, IBM PC, Apple II ± , & Sage. 
* UOS is a trademark of SofTech Microsystems, UCSD p-System is a trademark of the University of California. 
IBM is a trademark of International Business Machines. 



PCD Systems, Inc. 
P.O. Box 143 
Penn Yan, N.Y. 14527 
(315)536-7428 .433 




■ hi mm mm m 



nisosr 

ANNOUNCE 





• Disassemble from 

disk /memory 

• Disassemble to 

disk/printer/video 

• Automatic output 

partitioning 

• Full label generation 

• Data area screening - 

generates DB, DW 

• $40 + $2 S&H 

MISOSYS 
RO. BOX 4848 
ALEXANDRIA, VA. 22303 
703-960-2998 



/ tiring I continued 

2060 IF LOl OR FOB THEN 2090 

2070 LINE(100,88)-(116,104) .PSET 

2080 LINE(100,120)-(116,104) .PSET 

2090 IF LOl OR FOl THEN 2150 

2100 LINE(100, 88)-(108,96) ,PSET 

2110 LINE -(108,112) -PSET 

2120 LINE -(100,120) , PSET 

2130 LINE(108, 96) -(116,96) , PSET 

2140 LINE(108,112)-(116,112) .PSET 

2150 IF RO0 OR FO0 THEN 2220 

2160 LINE(H2, 88) -(132,120) , PSET 

2170 LINE(132, 96) -(124,96) , PSET 

2180 LINE -(124,112) .PSET 

2190 LINE -(112,112) ,PSET 

2200 LINE(124,96)-(116, 104) .PSET 

2210 LINE -(124,112) , PSET 

2220 IF RO0 OR FOl THEN 2260 

2230 LINE(132, 88)-(132, 120) , PSET 

2240 LINE(116,96)-(132,96) ,PSET 

2250 LINE(116,112)-(132,112) .PSET 

2260 IF ROl OR FO0 THEN 2290 

2270 LINE(132,88)-(116, 104) .PSET 

2280 LINE(132,120)-(116,104) .PSET 

2290 IF ROl OR FOl THEN 2350 

2300 LINE(132,88)-(124,96) ,PSET 

2310 LINE -(124,112) .PSET 

2320 LINE -(112,120) , PSET 

2330 LINE(124,96)-(116,96) .PSET 

2340 LINE(124,112)-(116,112) .PSET 

2350 RETURN 

2360 LINE(112,16)-(112,10) .PSET 

2370 LINE -(120,16) , PSET 

2380 LINE -(120,10) .PSET 

23 90 RETURN 

2400 LINE(112,16)-(120,16) ,PSET 

2410 LINE -(120,13) ,PSET 

2420 LINE -(112,13) , PSET 

2430 LINE -(112,10) .PSET 

2440 LINE -(120,10) .PSET 

2450 RETURN 

2460 LINE(120,16)-(112,16) .PSET 

2470 LINE -(112,10) .PSET 

2480 LINE -(120,10) , PSET 

2490 LINE(H2, 13) -(120,13) .PSET 

2500 RETURN 

2510 LINE(112,10)-(112,16) ,PSET 

2520 LINE -(120,16) ,PSET 

2530 LINE -(120,10) ,PSET 

2540 LINE(116,10)-(116,16) ,PSET 

2550 RETURN 



10 

20 

30 

4 

50 

60 

7 

80 

90 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

3 



'THIS IS THE RAT MAZE" 
'YOU HAVE THE FOLLOWING" 
"OPTION KEYS ... GOOD LUCK" 



Program Listing 2 

REM THIS PROGRAM SIMULATES A 

REM RAT MAZE AT EYE LEVEL 

REM BY R.D. UGLUM 6/82 

CLS 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT " 
) PRINT 
) PRINT 
) PRINT 
) PRINT 
) PRINT 
J PRINT 
J PRINT 
3 PRINT 
3 PRINT 
) PRINT 
3 Z$=INK.fcY$ 
3 IF Z$<>"C" 
PCLEAR 4 

DIM A(15,15) ,XC(5) ,YC(5) ,S2(5) 
PMODE 4,1 
PCLS 
REM SCORE 
SC=100 

DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 
DATA 1,0,1,0,0,0,0,0,0,0,0,0,1,0,1 
DATA 1,0,1,1,0,1,1,0,1,1,0,1,1,0,1 



N = NORTH" 
S = SOUTH" 
WEST" 
EAST" 
FORWARD' 
LEFT" 
RIGHT" 
QUIT" 



'ENTER 'C 
' (WAIT 15 



1 TO CONTINUE" 
SEC) " 



THEN 200 



Listing .: continues 
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/ isti/if! 2 continued 



310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

575 

580 

590 

600 

610 

620 

630 

640 

650 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 



DATA 1,1 
DATA 1,1 

DATA 1,1 
DATA 1,1 
DATA 1 , 1 
DATA 1 , I 
DATA 1,1 
DATA 1,1 
DATA 1,1 
DATA 1,1 
DATA 1 , ( 



,1,1,1 

,1,0,1 
,1,1,1 



,1,0 
,1,0 

,0,0 

,1,1 
,0,0 
,1,1 



1,1,0 
1,1,0 
1,1,1 



0,1,1 
0,1,! 
0,0,1 
1,1,1 
0,0,1 
1,1,1 



,1,0,1 
,1,1,1 
,0,1,1 
,1,1,1 



,1,1,1 

,0,1,1 

,1,1,1 

, 1 , , 1 

,1,1,1 
0,0,0,0,1,1 
1,1,1,1,1,1,1 
0,1,0,1,0,1,0,1,1 



0,1,1 

1,1,1 



,1 
,1 
,1 
,1 
,1 
,1 
,1 
,1 
,1 
,1 
,1 



,1,2,1 



YC(I) =RND(15) 
I) )=1 THEN 530 



,1,1,1 
,1,0,1 
,1,1,1 

,0,1,: 

,1,1,1 

,1,0, J 
DATA 1,1,1,1,1,1,1, 
DATA 1,0,1,1,1,0,1 
FOR J -I TO lb 
FOR 1=1 TO 15 . 
READ A(I,J) 
NEXT I 
NEXT J 
XS=8: Ytj = 2 
X=XS: Y=YS 

XE=RND(15): YE=RND(15): IF A(XE,YE)=1 THEN 511 
FOR 1=1 TO 5 
XC(I)=RNli(15) 
IF A(XC(I) ,YC 
NEXT I 

D=l: GOSUB 1240 
A$ = INKt;Y$ 
IF A$="" THEN 570 
FOR 1=1 TO 5 
CX=RNu(3) : CY=RNU(3) 
CX=CX-2: CY=CY-2 
CX=CX+XC(I): CY=CY+YC(I) 
IF A(CX,CY)=1 THEN 640 
YC(I)=CY: XC(I)=CX 
NEXT I 

REM GOTO HERE 
IF A$<>"Q" THEN 720 
CLS 

PRINT "RATS FOILED AGAIN" 
PRINT "X = ";X" Y = " ; Y 
STOP 

IF A$= n N n THEN D=l 
IF A$="S" THEN D=2 
IF A$="E" THEN D=3 
IF A$="W" THEN D=4 
IF A$O n L" THEN 820 



ON D GOTO 780,790,800,810 
D=4: GOTO 820 
D=3: GOTO 82 
D=l: GOTO 82 
D=2: GOTO 820 
IF A$O n R" THEN GOTO 880 
830 ON D GOTO 840,850,860,870 



810 

820 

)3 

840 

850 

860 

870 



D=3: 
D=4: 
D=2: 
D=l: 



GOTO 
GOTO 
GOTO 
GOTO 



80 IF A$O n F" THEN 980 

ON D GOTO 900,920,940,960 
IF A(X,Y-1)=0 THEN Y=Y-1 
GOTO 9 80 

IF A(X,Y+JL)=kJ THEN Y=Y+1 
GOTO 9 80 



890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 



IF A(X+1,Y)=0 THEN X=X+1 

GOTO 9 80 

IF A(X-1,Y)=0 THEN X=X-1 

GOTO 9 80 

S1=SQR( (XE-X) "2+(YE-Y) "2) 

S1=255-S1*15 

FOR 1=1 TO 5 

S2(I)=SQR( (XC(I)-X) A 2+(YC(I)-Y)' S 2) 

S2(I)=255-S2(I) *15 

NEAT I 

IF S2(1)>=S2(2) AND S2(1)>=S2(3) THEN S4=S2(1) 

IF S2(2)>S2(1J ANu S2(2)>=S2(3) THEN S4=S2(2) 

IF S2(3)>S2(1) AND S2(3)>S2(2) THEN S4=S2(3) 

IF S4<S1 THEN S4=S1 

SOUND S4,l 

SC=SC-1 

FOR 1=1 TO 5 

IF XOXC(I) OR YOYC(I) THEN 1140 

CLS: PRINT" TO BAD, THE CAT GOT YOU" 

GUTO 1130 

NEXT I 

IF X=XE AND Y=YE THEN 1180 

GOSUB 1240 

GOTO 570 

CLS 

Listing 2 continues 



INNQV RTIQN quality 
SUPPORT 

tBOOXSOMB OBOOfKBaXBGi 

1746 North Uest 55th. five. No 204 

LAUDERHILL, FLORIDfi 33313 

PHONE 1-13051-739-2071 



?="? O 7?^^^? 



) 



.-^60 



s e ^ *? ^> t *? 



5p« 



il Cl 
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^5 Support 



U . P spi 



MX --S0 . ersion al loi 
Sub + Super Scripting, I 
on Justified text lines 

ppor *c 
Pl(/S r, 



SCRIRTR 

GPPPt/TPPX 80 a 



us for Undi 
louble and 
without diet 
EVERY progra. 



U-Ot-Qa Emphasized, 
T »LI£S. MID-LINF e.i 
jrbing the formatti 

unable feature r.- ; - 
MOO does as much 1 



SOISGBOCBIS® S(3S)OS)(S9@ QGSSSQSISa 

OCT PUT j.iy code pr sfm O qf _ qd e S to V Ov.- printer. 



Write 'JP /V :£7 T£#5 b y insert i no da ta d c 



TO printing 



P-i.it any gage JIPfCT M itf correct .leaders / footers 
Pee iter SCPIP5I7 to pet use of /)lI OPS f U^CTlO^S. 



See wh ere PPGfS start and end with out prm ted copy. 
Edit mode for errors, changes or GRAPHIC5 entry. 



TEACHING PROGRAMS fully 



hk, page manual-bound - CA55-DI5K Ver. Model I/III ft 

- su|t®m (BEES ao(B boil.siuqn@ 

Centronics 737 ♦ 739 / LP-B + LP-4 -.Daisy WheelU. 



Mi 



5CM-TP-1 - DMP-20C 



♦ 82A - Prowriter -» Cloth B510A ♦ F-10 



400 <- 410 - Gem 



10 ♦ 15 



L D O E5 COMPATIBLE 
'Y5TEM REQ TRS-80 MOD I/III. .32K.loa.er case 

sk ver. requires 5CPIP5IT/LC on both Model's I/III. 

R ICE *40. 00 on DISK / CASS. ' 5. 5K. program. 

REE BROCHURE Demonstrates all features. 

sterner support by phone or letter after the sale mak.es 
:riptr a pleasure to own and use. 1,500 fully satisfied 
istomers in over 14 countries. C/flL / VfilTf fOfl IHfO. 



Name 
Addr 


PL£P5£ It/CLUOt 

llllllllllllll! 

rss - Phone -Zip 


'.i 

\ 


'S It/fOPMPTION W/t£M O.QDffilt/G 
MODEL 1/3 [Tj I Cass/Disk 
Printer Type QJ 1 M EM SIZE 


w 



oxssxao gbsshksks 






FULL 5UPPORT ROR: (DrEwIB I0R(B ' 

MX-B0 S 100 -*- Elfflffll CSEMINI 10 -f 1 F3 

QEHSQD CXOTM B510A * f?lflBfa-B023R 

GBONT LET THIS SIMPLE NAME FOOL YOU aRAYQN [BELUXE is 
not a toy but a COMPLETE WORO/GR APHIC5 PROCESSOR which 



offers compiett 



;t,f lexibl. 



aphics. Writti 



itility ir 



'-ting 



nbler it is 



BASIC 



easy tc 



No program of this 



Comcuti 



the 



bit patterns for 760,320 bits per page of printi 



mands Z-B0 Assemble 

@Td3rNj®Rl3r:> 

1. Programmable Un< 



Mix WIDE 
INVERT 
5H0RT LINE SEEKING 



COMPARE 
SEg)T"(I)R(=}e5 
er linl no, even cr ( 



sires MID 
the text eve 



,n' + gj 

ate 



e': G. E A. Pi 
(fiDg 



assiosi 

which enables 
STORE. RETRIEVE 
Allows 3 1/2 c 
PLU5 a fast ea 
(Bepeat printi 



iSJBsdf ~ 



CSh, 



L INE. 
i MID -LINE. 

MO WAIT ING 1 
get. 



5t( 



3ntf 



AND PRINT letter? 
president charactt 



INSTAN TA NEOUSL Y 
.jiets in memory. 
-ETTERS 



-f 



MAIL 



. int sampl 
apabi li ty wi thoi • car - i age a 
even on graphic lines gwes Typeuj-iter Quality 
Sreate 100, or any number of copies of High-R 
LABEL5 or LETTERHEADS u/ith easy hands off operation. 
Complete FORMATTING CONTROLS within the text allow 
for multiple page printing without operator control. 
Q^e sharpest dot matrix print you've ever seen!! 
Variable DOT Linespacing control for text documents. 
Sit [Basking allows creation of graphs and the ffrap- 
paper simultaneously. Superimpose any background! 11 
CREATE Block Graphics in any size and with ever. 5P .. 
fine Line OraMi^g tor creating real business fc-- 5 
Character sets mav contain letters up to 40H x 127w. 
3cmt mucus WIDE prirting in any font or style. 
Even allows for partial EXPANDED from this mode. 
RREE BROCHURE5" 

®L3®SSQQD© OGD&SSSlESOaSSJ 

CRHYON - Disk/Cass MOD 1/3 *45 DI5K / »35 CASS 
CRA YON DELUXE - DISK MOD 1/3 «80. 00 w/7 5E T S 

BDBinimfMfaL MogiTa favfa iWRfxiLfa 

HERITAGE = AMERICAN TEXT ♦ OLD ENGLISH *15. 30 
ELITE = 4 Variations on disk for «15. 00 
DIGITAL = 3 computer fonts for *15. 00 on disk. 
PRINT 5AMPLE5 - WfilLPSLi Oti P£3v£S7. 

SLS®Q®(2) SSrjKSQS. DGB@ OCBOfJDtSS OS KXSCS 

WE_ARE NOW CARp-tlNG A 2 cS MEG. HARD DISK SY5TEM FOP THE 

TRu-80 M0DE1 III. PRICE = t330O COMPLETE WITH D05PLUS 4.0 

; i ASSEMBLED - FORMATTED - SYSTEM 5EE5 IT AS 4 DRIVES. CALL 

Jfc ^JUST BOOT-UP ANO I'DLT ARE UP AND '.. >/*J WITH HARD 



■ ■■■ ■ ■■■■ ■ ■ ■ ■■■■■■■ 



5. CAul ' ' 

■ ■■W 



^See List of Advertisers on Page 323 
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Listing 2 continued 



1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 



SCREEN 0,1 

PRINT 

PRINT 

PRINT 

END 

XT=X: YT=Y: 

PCLS 

SCREEN 1,1 

ON D GOTO 1280,13 



CONG "RATS' YOU HAVE" 
FOUND THE EXIT" 
YOUR SCORE = n ;SC 



,1310,1321 



YA=-1: YL=YT: YR=YT: YF=YT-1: XA=f 



XL=XT-1: XR=XT+1: XF=XT 



XL=XT+1: XR=XT-1: XF=XT: 



YF=YT: XA=1: XL=XT: XR=XT: XF=XT+1: 



YF=YT: XA=-1: XL=XT: XR=XT: XF=XT-1 



151G 
152t 
153( 



1290 GOSUB 2700: GOTO 1330 

1300 YA=1: YL=YT: YR=YT: YF=YT+1: XA=t 

GOSUB 2/40: GOTO 1330 
1310 YA=0: YL=YT-1: YR=YT+1: 

GOSUB 2800: GOTO 1330 
1320 YA=0: YL=YT+1: YR=YT-1: 
: GOSUB 2850: GOTO 1330 

1330 L=A(XL,YL) : R=A(XR,YR) : F=A(XF,YF) 
1340 FOR 1=1 TO 5 

1350 IF XF=XC(I) AND YF=YC(I) THEN CIRCLE( 116 , 104) , 28 
1360 NEXT I 

1370 IF LOB OR FO0 THEN 1430 
1380 LlNE(4,24)-(36,24) ,PSET 
1390 LINE -(36,184) ,PSET 
1400 LINE -(4,184) ,PSET 
1410 LINE(36,24)-(68,56) ,PSET 
1420 LINE(36,184)-(68,152) ,PSET 
1430 IF LO0 OR FOl THEN 1460 
1440 LINE(4, 24) -(116,24) ,PSET 
1450 LINE(4,1«4)-(116,184) ,PSET 
1460 IF LOl OR FOB THEN 1490 
1470 LINE(20,8)-(68,i>6) ,PSET 
1480 LINE(28,191)-(68,152) ,PSET 
1490 IF LOl OR FOl THEN 1550 
1500 LINE(20,8)-(32,24) ,PSET 

LINE -(32,184) ,PSET 

LINE -(28,191) ,PSET 

LINE(32, 24) -(116,24) ,PSET 
1540 LINE(32,184)-(116,184) ,PSET 
1550 IF RO0 OR FO0 THEN 1610 
1560 LINE(228,24)-(196,24) ,PSET 
1570 LINE -(196,184) ,PSET 
1580 LINE -(228,184) ,PSET 
1590 LlNE(196,24)-(164,56) ,PSET 
1600 LINE(196,184)-(164,152) ,PSET 
1610 IF RO0 OR FOl THEN 1640 
1620 LINE(116,24)-(228,24) ,PSET 
1630 L1NE(116,184)-(228,184) ,PSET 
1640 IF ROl OR FO0 THEN 1670 
1650 LINE(212,8)-(164,56) ,PSET 
1660 LINE(204,191)-(164,152) ,PSET 
1670 IF ROl OR FOl THEN 1730 
1680 LINE(2l2,«)-(200,24) ,PSET 
1690 LLNE -(200,184) ,PSET 
1700 LINE -(206,191) ,PSET 
1710 LINE(116,24)-(200,24) ,PSET 
1720 LINE(116,184)-(200,184) ,PSET 
1730 IF F=l THEN 2690 
1740 XF=XF+XA: YF=YF+YA 
1750 XR=XR+XA: YR=YR+YA 
1760 XL=XL+XA: YL=YL+YA 

1770 L=A(XL,YL): R=A(XR,YR) : F=A(XF,YF) 
17 80 FOR 1=1 TO 5 

1790 IF XF=XC(I) AND YF=YC(I) THEN CIRCLE 
1800 NEXT I 

1810 IF LO0 OR FO0 THEN 1880 
1820 LINE(68,i>6)-(68,152) ,PSET 
1830 LINE(68,72)-(84,72j ,PSET 
1840 LINE -(84,136) ,PSET 
1850 LINE -(68,136) ,PSET 
18b0 LINE(B4,72j-(100,88) ,PSET 
18/0 LINE(84,136)-(100,120) ,PSET 
1880 IF LO0 OR FOl THEN 1920 
1890 LINE(68,b6)-(68,152) ,PSET 
1900 LINE(68,72)-(116,72) ,PSET 
1910 LINE(68,136)-(116,136) ,PSET 
1920 IF LOl OR FO0 THEN 1950 
1930 LINE(68,b6)-(100,88) ,PSET 
1940 LINE(68,152)-(100,120) ,PSET 
1950 IF LOl OR FOl THEN 2010 
I960 LINE(68,b6)-(84,72) ,PSET 
1970 LINE -(84,136) ,PSET 
1980 LINE -(68,152) ,PSET 
1990 LINE(84,72)-(116,72) ,PSET 
2000 LINE(84,136)-(116,136) ,PSET 
2010 IF RO0 OR FO0 THEN 2080 
2020 LINE(164,56)-(164,152) ,PSET 



2030 LINE(164,72)-(148,72) ,PSET 

2040 LINE -(148,136) ,PSET 

2050 LINE -(164,136) ,PSET 

2060 LINE(148,72)-(132,88) ,PSET 

2070 LINE(148,136)-(132,120) ,PSET 

2080 IF RO0 OR FOl THEN 2120 

2090 LINE(164,56)-(164,152) ,PSET 

2100 LINE(9b,72)-(164,72) ,PSET 

2110 LINE(9b,136)-(164,136) ,PSET 

2120 IF ROl OR FO0 THEN 2150 

2130 LINE(164,56)-(132,88) ,PSET 

2140 LINE(164,152)-(132,120) ,PSET 

2150 IF ROl OR FOl THEN 2210 

2160 LINE(164,56)-(148,72) f PSET 

2170 LINE -(148,136) ,PSET 

2180 LINE -(164,152) ,PSET 

2190 LINE(148,72;-(116,72) ,PSET 

2200 LINE(148,136)-(116,136) ,PSET 

2210 IF F=l THEN 2690 

2220 XF=XF+XA: YF=YF+YA 

2230 XR=XR+XA: YR=YR+YA 

2240 XL=XL+XA: YL=YL+YA 

2250 L=A(XL,YL): R=A(XR,YR): F=A(XF,YF) 

2260 FOR 1=1 TO 5 

2270 IF XF=XC(I)AND YF=YC(I) THEN CIRCLE(1 

2280 NEXT I 

2290 IF LO0 OR FO0 THEN 2360 

2300 LINE(100,88)-(100,120) ,PSET 

2310 LINE(100,96)-(108,96) ,PSET 

2320 LINE -(108,112) ,PSET 

2330 LINE -(100,112) ,PSET 

2340 LINE(108,96)-(116,104) ,PSET 

2350 LINE(108,112)-(116,104) ,PSET 

2360 IF LO0 OR FOl THEN 2400 

2370 LINE(100,88)-(100,120) ,PSET 

2380 LINE(100,96)-(116,96) ,PSET 

2390 LINE(100,112)-(116,112) ,PSET 

2400 IF LOl OR FO0 THEN 2430 

2410 LINE(100,88)-(116,104) ,PSET 

2420 LINE(100,120)-(116,104) ,PSET 

2430 IF LOl OR FOl THEN 2490 

2440 LINE(100,88)-(108,96) ,PSET 

2450 LINE -(108,112) ,PSET 

2460 LINE -(100,120) ,PSET 

2470 LINE(108,96)-(116,96) ,PSET 

2480 LINE(108,112)-(116,112) ,PSET 

2490 IF RO0 OR FO0 THEN 2560 

2500 LINE(132,88)-(132,120) ,PSET 

2510 LINE(132,96)-(124,96) ,PSET 

2520 LINE -(124,112) ,PSET 

2530 LINE -(132,112) ,PSET 

2540 LINE(124,9b)-(116,104) ,PSET 

2550 LINE -(124,112) ,PSET 

2560 IF RO0 OR FOl THEN 2600 

2570 LINE(132,88)-(132,120) ,PSET 

2580 LINE(116,96)-(132,96) ,PSET 

2590 LINE(116,112)-(132,112) ,PSET 

2600 IF ROl OR FO0 THEN 2630 

2610 LINE(132,88)-(116,104) ,PSET 

2620 LINE(132,120)-(116,104) ,PSET 

2630 IF ROl OR FOl THEN 2690 

2640 LINE(132,88)-(124,96) ,PSET 

2650 LINE -(124,112) ,PSET 

2660 LINE -(132,120) ,PSET 

2670 LINE(124,*b)-(116,96) ,PSET 

2680 LINE(124,112)-(116,112) ,PSET 

26 90 RETURN 

2700 LINE(112,16)-(112,10) ,PSET 

2710 LINE -(120,16) ,PSET 

2720 LINE -(120,10) ,PSET 

2730 RETURN 

2740 LINE(112,16)-(120,16) ,PSET 

2750 LINE -(120,13) ,PSET 

2760 LINE -(112,13) ,PSET 

2770 LINE -(112,10) ,PSET 

2780 LINE -(120,10) ,PSET 

27 y0 RETURN 

2800 LINE(120,16)-(112,16) ,PSET 

2810 LINE -(112,10) ,PSET 

2820 LINE -(120,10) ,PSET 

2830 L1NE(112,13)-(120,13) ,PSET 

2840 RETURN 

2850 LINE(112,10)-(112,16) ,PSET 

2860 LINE -(120,16) ,PSET 

2870 LINE -(120,10) ,PSET 

2880 LINE(116,10)-(116,16) ,PSET 

2890 RETURN 

2900 SCREEN 1,1 

2910 GOTO 2910 
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After 2 years of extensive research and development 
XYZT Computer Dimensions, Inc is proud to announce ... 

"""1 TM 




the NEW INTERACTIVE COMPUTING ENVIRONMENT 



NICE is nothing less than a comprehensive integration of all computing facilities - 
including DOS, numerous utilities, application programs, even games combined with 
menus, database, screens, libraries, reports - an interactive environment friendly 
to the first time user and the sophisticated systems intergrater alike. If you know 
what a turbo-charger can do for an auto engine, that is what NICE does for a 
computer. Clearly, it is the most exciting news to come along in software for the 
microcomputer 

DO YOU KNOW HOW TO BOOT YOUR SYSTEM? 

THEN YOU KNOW HOW TO TURN YOUR COMPUTER 

INTO THE MOST POWERFUL USER FRIENDLY BUSINESS MACHINE!! 

NICE makes development and using software - EASY. Based on a new concept this 
state-of-the-art software gives you the interactive power until now found only on 
mainframes, but at micro prices. Put a powerful menu-driven command structure 
at your fingertips! Run word-processors, spell-checkers, spread-sheet programs, 
utilities, application programs without remembering command sequence or 
constantly checking the manuals. Everything you need is on the screen. Create 
your own applications and add them to the system - use menus, relational files, 
customized screens, special forms. In a matter of hours, you zip through the 
programming projects you usually expected to take months. All thanks to a 
modular, consistently designed system. 

IS YOUR WORDPROCESSOR WORKING? 

THEN THOSE SCREENS OUGHT TO BE IN YOUR SYSTEM ! 

Using a computer should not be difficult - no more complicated than driving a car. 
With NICE you are no longer required to know al! of the intricate internal 
operations of the computer. Creation of all types of screens, menus, inquires and 
reports or customized forms is as simple as writing a letter - type it on your 
word-processor, save it to disk, and it is ready for use. You don't have to be a 
programmer - just a computer user. 

It's NICE for you! 

NICE system consists of: 

Interactive Control & Programming Language (ICPL) $150. 

Menu and Screen management facilities (MSF) $75. 

Database facility (DBF) $75. 

Forms and Report Writer (FRW) $75. 

Library Support Option (LSO) $75. 

Minimal NICE configuration — ICPL+MSF+LSO. 

Minimal hardware requirements — 2 disk TRS-80® mod l/lll. System is compatible 
with NEWDOS/80 K -LDOS®-DOSPLUS S -MULTIDOS® floppy or hard disk. 



Check, M.O.. C.O.D., VISA, 

MC plus $4.00 s/h. 

Foreign orders — extra $10.00 




XYZT Computer Dimensions, Inc. --isa 

2 Penn Plaza, Suite 1500 

New York, N.Y. 10121 

(212) 244-3100 

Order by Mail or Check Your Local Dealer 
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GAME 



LOAD 80 





uddy Pig 
Simulator 



by Mike Conforti 



et ready for your next big muddy pig compe- 
tition with this snazzy simulation in which 
its your job to round up two escaped pigs. 



10 CLtAR500:CLS:PRINT@46 4,"";:IFPEEK(27 5) <>50V=253 : K=214 : L=195 : W 

=222:S=254:N=196:GOTO160ELSEV=120:K=42:L=43:W=89:N=35:S=111:GOTO 

J 60 

20 CLS:PRINT@467, ""; : INPUT" LEVEL ( 0-HARD / 15-EASY) " ; LV: IFLV<0ORL 

V>15THENGOTO20ELSECLS:PRINT@65, STRINGS (11, 131) ; : PRINT @0 , STRING $ ( 

64,176) ; :FORI=1TO14:POKE153 6 0+I*6 4,191:POKE15 423+I*6 4,191:NEXTI 

3 PRINT@0,NM$; ". ..";HS$; : PRINT@96 , STRINGS ( 63 , 131) ; : POKEl 6 3 8;S , 1 

31 :PRINT@91, STRING$ (7, 131) ; : FORI=1TO10: P ( I) =1583 4 + 1 : POkEP ( I ) ,V:N 

EX'i'I: J=l: POKEl 6 91 9,0: POKEl 6 92 0,0 

40 H=(RND(3)-2) *64: IFH = 0GOTO40ELSEA=15424+ ( RND ( 12) ) *64 : F0RI = 1T0R 

ND ( 18) +o : POklA+I ,L: IFI=60RI=7P0KEA+I , 32 : NEaTIELSENEXTI : A=A+I-1 : F 

0RI=1T013:A=A+H: IFPEEK(A) =3 2P0KEA, L : NEXTIELSENEXTI 

50 FORI=1TO2:B(I)=15420+RND(900) :IFPEEK(B(I) ) O3 2GOTO50ELSENEXTI 

60 FORI=1TORND(LV*20) +10 : A=15420+RND ( 900) : IFPEEK(A) 032NEXTIELSE 

POKEA,W:NExTI:FORI=lTORND(5*LV) +5 : A=15 420+RNu ( 90 ) : IFPEEK(A) <>3 2 

,NEX'1'IELSEP0KEA, K : NEXTI 

7 F0RF=1T02:H=B(F) :Z=RND(4) : IFZ=1B(F) =H+6 4ELSEIFZ=2B ( F) =H-6 4ELS 

EIFZ=3B(F) =H+1ELSEB(F) =H-1 

80 H(F) =H:NEaTF:PRINT@28, RIGHTS (TIME $,5) ; :P0=P(J) : X=PEEK ( 14400) : 

IFX=0GUTO90ELSEIFX=64P( J) =P( J) +1 : GOTO90ELSEIFX=32P ( J) =P(J) -l:GOT 

O90ELSEIFX=16P(J) =P(J) +6 4:GOTO90ELSEIFX=8P(J) =P(J) -6 4 : GOTO90ELSE 

IFX=i28POKtP( J) ,V: J=J+1:IFJ=11J=1:P0=P(J) :ELSEPO=P(J) 

90 F0RI=1T02: IFPEEK(B(I) ) <>3 2B ( I ) =H ( I) : NN=NN+1 : POKEB ( I ) ,N:NEXTIE 

LSEPOKt;B(I) ,N:POrvEH(I) ,32:NN=0 : NEXTI 

10 IFPEEK(P(J) ] <>32P(J) =PO: P0KEP( J) , SELSEPOKEP ( J ) ,S:POkEPO,32 

110 IFNN<50GOTO7 0ELSEE$=RI(JHT$(TIME$,5) 

120 A=VAL(LEFT$(E$,2) ) : IFHM>A , T=2ELSEIFHM=AANDHS>VAL ( RIGHTS ( E$ , 

2) ,T=2ELSET=1 

130 J$=INKEYS:H=0:A=VAL(LEFT$(E$,2) ) : B=VAL ( LEFTS ( E$ , 2) ) : IFHM<AOR 

HM=AANDHS<B,GOTO150ELSEPRINT@464,"YOU HAVE BEATEN THE HIGHSCORE" 

; :PKlNT@530, "PLEASE ENTER YOUR INITIALS ";: PRINT@596 , "========> 

<========" ;:HM=A:HS=B:HSS=E$:NM$="" 

140 I$=INKtY$: IFIS=""THEN140ELSEH=H+1:IFH=3PRINT@6 04+H,IS; :NM$=N 

M$+I$:GOTO15 0ELSENM$=NM$+I$:PRINT@6 04+H,I$; :GOTO140 

150 PRINT@980, "PRESS <SPACE> BAR TO RUN" ; : lFINKEY$=" " ,GOTO20 

ELSEGUTO150 

160 CLS :PRINT@28, "CORRAL" ; :PRINT@87, "BY MIKE CONFORTI ": PRINT@150 

, STRING$(18, 131) ; : PRINT: PRINTTAB ( 5) "GUIDING YOUR CREW, TRY TO CA 

PTURE 2 PIGS WHO ESCAPED" : PRINTTAB ( 5) STRINGS ( 52 , 131) ;: FORI=1TO10 

:PUKK157 00+I,V:NEXTI 

170 PRINT@352,"<== THE CREW" : POKEl 57 66 ,N : P0kE15773 ,N : PRINT(?416 , " 

<== THE WILD PIGS"; : F0RI=2T0l 0STEP2 : POKE15827+I , K : NEXTI : PRINT@4 8 

0,"<== ROCKS"; :t'ORI=lT09STEP2: POKEl 5 892+1, W: NEXTI :PRINT@544,"<== 

CACTI"; :fORI=lTO10:POKEl5 956+I,L:NExTI:PRINT@6 08,"<== FENCE"; 
180 POKt;160 22,V:POKEl6150,V:POKE16 085,V:POKEl6087,V:POKEl6 086,N: 
POKtil6 28,L:POi\tJl609 2,K:POKE16156 ,W: POKEl 6093 ,N : POKEl 6094 ,V: POKE 
16 29, V: POKEl 6 157 , V: PRINT @7 36 , " <== A CAPTURE"; : HS=5 9 : HM=5 9 : NMS=" 
***":HS$="59:59":GOTO150 

Program Listing. The Corral 



Airplane pilots have all the fun. When 
they're not out flying, they can boot up 
Flight Simulator on a Model III. 

But suppose your avocation is cap- 
turing muddy pigs. How can you prac- 
tice your skills if you don't have any 
swine handy? 

This may be the piece of software 
you're looking for — a muddy pig 
simulator. 

How It Works 

The corral fence is broken and two 
pigs have escaped. It's up to you and 
your crew to capture the pigs in as little 
time as possible. 

This task isn't easy. The pigs are very 
muddy, and you must surround them 
on all sides to capture them. Guide your 
crew to strategic positions and use ob- 
stacles and corners to your advantage. 
Use the arrow keys to move players and 
the space bar to change which player 
you control. 

The upper left corner holds the high 
scorer's initials and time. In the upper 
middle is your present time. ■ 



Contact Michael Conforti at 28 Som- 
erset Road, Glastonbury, CT 06033. 



The Key Box 

Model ffl 
4KRAM 
Disk or Cassette Basic 
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YES/IT'S ALL THAT AND |v\ore , . . 

1 BASESCRIPT 

FASTER THAN A SPEEDING BYTE, ABLE To UEAPTALL STACKS 09 DATA wrTttA- 
SINGLE PASS, AND DEDICATED TO MAINTAINING TRUTHFUL DATA RECORDS 
UUSTtFlEP QOCUHEHTS, AND THE ALU AMERCCAH MAILING- LIST ■ 



Fast . . . Reliable . . . Flexible . . . Easy To Use 
A Full Featured Letter Processor: 

Word wraparound, auto centering and margins, left/ 
right justification, headers, page numbering, 
columnar math, insert, delete, merge, append, on- 
screen help, and more . . . 



A Mail Merge Program: 

Produce single or multiple 
"custom" letters with virtu- 
ally unlimited selectivity by 
zip, sub-category assign- 
ment, activity levels, "wild 
card" search and more . . . 




228 



A Complete Mailing List System: 

Large and flexible name/address fields including 
preferred form of addressing, large comments field, 
letters sent, replies received, and activity tracking. 
Expanded tracking abilities are user selectable. 
Supports foreign zip codes. 

A Forms Program: 

Create, fill out, update and store your in-house "forms." 
Users report finding almost unlimited applications for 
this unique feature. 

Priced at just $99.95 including 70+ page manual 
Shipped on a DOS PLUS® TDOS operating system. 
Specify Model I, Model HI, or LNW 80. Postage and 
handling $2.50. Out of U.S. $10.00. Florida residents add 
5% sales tax. Mastercard and Visa accepted. 
"Micro Systems Software "Tandy Corporation ""LNW Research 



making a name for itseli 



FLORIDA MICRO COMPUTER SYSTEMS 

8106 Rose Marie Circle, Boynton Beach, FL 33437 • 305-737-9626 



• See List of Advertisers on Page 323 
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WERE GIVING MAIL ORDER A GOOD NAME . . . 

You no longer have to sacrifice quality products, personal service, or fast delivery for 
rock-bottom prices. With MICRO DATA SUPPLIES, you can have it all. And it's only 
a phone call away: (216) 481-1600. Looking forward to your call 

Russ Knotts • President 
We sincerely thank our thousands of past customers who have made this claim possible. 





NEWDOS/80 
Version 2.0 

Model I and Model III 

The hottest Disk Operating System is now avail 
able in its latest version. This is the ONE from 
Apparat, Inc., the people whose systems have 
made the TRS-80 the reliable computer. 

$139.95 

THE FLOPPY DOCTOR 

By Dave Stambaugh 

FLOPPY DISK/MEMORY DIAGNOSTIC programs 
are designed to thoroughly check out the two 
most trouble prone sections of the TRS-80, the 
disk system (controller and drives) and the 
memory arrays 

MODEL I $24.95 

MODEL III ... $29.95 

BOOKS 

OTHER MYSTERIES 

TRS-80 DISK $19.95 

Microsoft Basic Decoded $24.95 

The Custom TRS-80 $28.95 

Basic Faster & Better . $29.95 

How To Do It On The TRS-80 $28.95 

TRSDOS 2.3 Decoded $28.95 

The Custom Apple $28.95 

Machine Language Disk I/O $29.95 

CP/M Primer $15.95 



ELECTRONIC 
PROTECTION DEVICES 

The PLUS 3-way EMI-RFI AC Power Line 

Noise Filter (wall outlet) $49.95 

The LEMON - 6-way Surge Suppressor for 

AC Power Lines (wall outlet) $54.95 

The LIME - same as LEMON w/5ft. 

cord and on-off switch $79.95 

The PEACH - 6-way Surge Suppressor, 

EMI-RFI Line Filter (wall outlet) $89.95 
The ORANGE - same as LIME w/EMI-RFI 

Filtering PLUM & LIME Combined $129.95 
GRIZZLY 200 - 250 Watt Uninterruptable 

Power Supply (universal install.) $1495.00 
GRIZZLY 750 - 750 Watt Uninterruptable 

Power Supply (universal install.) $1895.00 



DISNTJH 

MODEL III & IV DISK UPGRADE 



7KSZ 



ivy 

Floppy Doctor with 
the purchase of 
any DISKIT III 
$30.00 VALUE! 

Features • Metal Disk Drive Brackets 

• Gold Plated Edge • All Hardware and Cables 
Connectors • I Hour or Less for 

• Switching Power Supply Installation 

• Supports 5" or 8" Drives • 100% Compatible 

• 40 80 Track Supported » No Soldering Needed 

• Single Dual Head • 180 Days Warranty on 
Supported Controller 

DISKIT III w/o Drives $229.00 

DISKIT III w/oneTandon 

100-1 40 Track Drive $439.00 

DISKIT III w/twoTandon 

100-1 40 Track Drive $639.00 

DISKIT III w/twoTandon 

100-2 40/40 Dual Drive $799.00, 

DEALER INQUIRES WELCOME 

PRINTERS Ne^jSe* 

Epson FX 80 w/Graftrax $CALL 

Epson w/Urattrax $CALL 

Epson MX- 100 w/Grattrax $CALL 

GEMINI 10 by Star Micronics $349.00 

GEMINI 15 by Star Micronics $549.00 

IDS Prism 80 $CALl 

IDS Prism 132 $CALL 

Okidata Microline 80 $CALL 

Okidata Microline 82 $469.00 

Okidata Microline 83A $CALL 

Okidata Microline 84 $CALL 

EPSON PRINTERS 

Graftrax Plus $63.95 

MX-80 Ribbons $9.95 

MX-100 Ribbons ... $18.95 

Epson Service Manual $30.00 



16 K RAM SPECIAL 

4116 200ns. Guaranteed one full year $13.95 



ELECTRIC PENCIL 
Version II 

Model I and Model III 

An expanded version of the critically acclaimed 
original word processing system! Includes all 
features of Version I plus many new extensions 

Disk Version $79.95 

Tape Version $69.95 

ELECTRIC WEBSTER 

• 'Cadillac" of Spelling Checkers 80 Micro 9/82. 

• 50,000 WORD DICTIONARY 

• FAST and ACCURATE - No other Spelling 
Checker comes close! 

• INTEGRATED- Proofs and corrects from within 
most popular word processing programs! 

• SMART - Finds and displays correct spelling! 

• HYPHENATES automatically - inserts discre- 
tionary hyphens with 100% accuracy (optional). 

• COMPLETE - One step proofing system. 

Electric Webster w/correcting feature $129.95 

Hyphenation feature $49.95 

Grammatical feature $39.95 

COMPLETE SYSTEM all Four Programs $199.00 

NEWSCRIPT 7.0 

NEWSCRIPT is the versatile TRS-80 word pro- 
cessing program. It supports "smart" printers 
like the Epson, Okidata, NEC. C.ltoh, Spinwriter, 
Centronics 739 and more. 

NEWSCRIPT $109.95 

MORE SOFTWARE 

Inventory + $29.95 

Cash Register/80 $29.95 

UNITERM Terminal $79.95 

UNITERM/80 Terminal $89.95 

ACE MAIL for Hayes Smart Modem . . . $69.95 

LABELMAKER for MX80 $19.50 

Maxi Manager w/utilities $129.95 



CP/M • IBM • APPLE • TRS-80 owners 

dBASE II" $>80/6o $489.00 

WordStar $5j*hi0 $299.00 
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MICRO DATA SUPPLIES 

A SUBSIDIARY OF THE COMPUTER WARtHOUSE, INC. OF OHIO 

22295 6UCUD AVE. 6UCLID.OHIO 44117 



\ferbatim» 

PREMIUM DISKETTES AT 
AFFORDABLE PRICES 




TM 




DATALIFE 

Seven data-shielding improvements mean 
greater durability and longer data life. 
VERBATIM DATALIFETM y . 4 . 
DISKETTES V<WvVl 

5'/4-inch (box of 10) 
MD525-01 
1S/DDen 
Soft-Sectored Diskettes 

5 '/«" 2S/D Den (MD550-01) $39.95 

5 '/" 2S/4 Den (MD557-01) $51.50 

8" 1S/D Den (FD34-8000) $43.95 

Hard-Sectored Diskettes 

5 W" 1S/D Den 10-sector (MD525-10) $26.95 

5 '/«" 2S/D Den 10-sector (MD550-10) $39.95 

5 l A" 2S/4 Den 10-sector (MD55710) $51,50 

SUPPLIES 

5'/S" File Box for 50 diskettes $24.95 

AVERY TABULABLES 

5,000 3'/jx 15/16 $15.95 

FAN FOLD PAPER (Prices F.O.B.S.P) 

9'/ix 11 18 1b. WHITE 3,000 ct $29.95 

14% x 11 18 1b. WHITE 3,000 ct $39.95 

* * * THIS MONTHS SPECIAL * * * 

FLIP'n FILE w/10 Bulk Diskettes $39.95 

Head Cleaning Kit w/10 Bulk Diskettes $34.95 

(5%" 1S/DD) 
*********** 

DISK DRIVE CABLES 

Disk Drive Cable for 1 Drive $18.95 

Disk Drive Cable for 2 Drives $24.95 

Disk Drive Cable for 4 Drives $29.95 

All Cables Are 5 Ft. Long 

DISK DRIVES Tandon 

Complete with Chassis & Power Supply: 

Fully assembled silver 
chassis with external 
card edge connector 
for easy cable instal- 
lation. With MDS 120 
days warranty. 



COMPLETE 

TM100-1 40 Trk $249.00 

TM100-2 40/40 Trk $329.00 

TM100-4 80/80 Trk $399.00 

MOD. Ill COMPLETE CASE & POWER SUPPLY 

SIEMANSFDD100-8SS/DD8in .... $472.00 

BARE DRIVES 

TM100-1 40 Trk $189.00 

TM100-2 40/40 Trk $259.00 

TM100-4 80/80 Trk $329.00 

SIEMANS FDD100-8 SS/DD 8 in .... $279.00 

TM84B-1 SS/DD 8" 77 Trk Thinline . $369.00 
TM84B-2 DD/DD 8" 77 Trk Thinline $479.00 
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: i / a SOFT 
' /4 SECTORS 

SINGLE SIDE 
SINGLE DENSITY 
W/HUB RING 

100% CERTIFIED 
] YEAR WARRANIY 

$1.59* 



1 1/ " SOFT 
/4 SECTORS 

SINGLE SIDE 
DOUBLE DENSITY 
W/HUB RING 

100% CERTIFIED 
1 YEAR WARRANTEE 



$1.89* $2.29 



i 1 //' S0FT 

1 /4 SECTORS 

DOUBLE SIDE 
DOUBLE DENSITY 
W/HUB RING 

lOfft CERTIFIED 
I YEAR WARANTEE 



o" S0FT 

Q OR 32 

SECTORS 

SINGLE SIDE 
SINGLE DENSITY 

100', CERTIFIED 
1 YEAR WARRANTEE 

$1.69* 



„ SOFT 
O OR 32 

SECTORS 

SINGLE SIDE 
DOUBLE DENSITY 

100";. CERTIFIED 
! YEAR WARRANTEE 



„ SOFT 

O OR 32 

SECTORS 

DOUBLE SIDE 
DOUBLE DENSITY 

LOS . CERTIFIED 
1 YEAR WARRANTEE 



$2.79* $3.09 

*Now Get High Quality at a Low Price 

Manufactured by a Major Disc Company 

For MDS Without Their Name on Diskettes. 

"•Minimum order 20 diskettes with 

Tyvek envelope and storage shipping box 

'Quantity discounts - 100 deduct 396 

1000 deduct 5%, 10,000 deduct 10% 

MODEMS 

Hayes Micromodem II (APPLE) $299.00 

Hayes Smart Modem (RS-232) $239.00 

SIGNALMAN DIRECT CONNECT 
(RS232) 300 Baud $94.95 

U.S. ROBOTICS Inc. 

Auto Dial 212A, 

300/1200 Baud Modem $599.00 

Auto Link 2 12A, 

300/1200 Baud Modem $549.00 

Micro Link 1200, 1200 Baud Modem $449.00 
Auto Link 300, 300 Baud Modem $219.00 

Practical Periphials 
MICROBUFFER 

MBP-16K Parallel $149 00 

MICROBUFFER IN-LINE For Most Printers 

32K Parallel $289.00 

64K Parallel $339.00 

32K Serial $289.00 

64K Serial $339.00 

64K Memory Expansion Modules $169.00 



-*Call (216) 481-1600 

Si MONDAY thru SATURDAY) 

DEALER INQUIRIES WELCOME' 



WE ACCEPT 

• Visa 

• MasterCard 

• Checks, 

• Money Order 

• COD 



ALL PRICES 

ARE FOR 

MAIL ORDER ONLY 

Prices. Specifications 

and Offerings subject 

to change without 

notice 




LNW 

TRS-80 Mod. I Expansion 

$349.00 



RS232C serial I/O 
Parallel printer port 
Gold-plated 
connectors 



Full 32k 200ns RAM 
Real time clock 
6 month warranty 
Heavy steel case 



• Floppy disk controller • Thousands of users 
• Works with any DOS 100% 



SPRINTER 

Double Your Speed 

Speed-up cuts computer operation time in half, 
saves time and money. Fasl 4 MHz Z80B CPU 
included, installs in 15 minutes with no soldering 
or cutting. 

SPRINTER III for MOD III $95.95 

SPRINTER I for MOD I $95.95 

MODEL I DOUBLE 
DENSITY PACKAGE 

Everything you need to convert your TRS-80 
Model I to run double density. Complete with 
software hardware, and instructions, installs 
in minutes with no soldering, wiring or cutting. 



Dosplus V 3,4 w/LNDOUBLER 5/8 
LNDOUBLER 5/8 Board w/o dos . 



$199.00 
$169.00 



* * * THIS MONTHS SPECIAL * * 
LSIS Softview" REPLACEMENT CRTs 

Green Phosphor w/Anti-Glare $79.95 

Amber Phosphor w/Anti-Glare $89.95 

*********** 



HEAD CLEANING 
KIT 5W 




Clean the 
heads in 
just 30 seconds 
and save on costly 
service calls and 
data drop-outs. 




;~^ 



TECHNIQUE 




Foe Flicker 



by Joseph Dlhopolsky 



E 



liminate the flickering that plagues your 
animation routines. This technique alerts your 
Z80 when the electron gun's aim is on target. 



Does your Model III animation pro- 
gram exhibit jerky, flickering screen 
movement, instead of the smooth mo- 
tion you see on a television, movie, or 
arcade screen? It's a common problem 
in machine-language animation pro- 
grams. Here are some tips on how to 
eliminate that annoying screen flicker. 

Microcomputer CRTs operate on the 
same principle as black and white televi- 
sion sets: The electron gun that excites 
(and lights) screen phosphors aims a 
beam of electrons in a sequential pat- 
tern over the screen's surface. In a tele- 
vision, the information displayed on the 
screen is a picture. In the Model III, and 
other computers, the information con- 
sists of ASCII and graphics characters. 

The computer's electron beam scans 
the entire screen starting at the top left. 
The beam moves to the right to finish 
the top line, then executes a horizontal 
retrace to return the beam to the 
screen's leftmost point. It jumps down 
to the second line and traverses it from 
left to right. After 192 lines (for a 
TRS-80), the beam executes a vertical 
retrace and starts at the top again. The 
entire process operates at a frequency of 
60 Hz (cycles per second) in the United 



The Key Box 

Model HI 
16KRAM 

Basic, Assembly Language 
Editor/Assembler 



States (50 Hz in Europe and other coun- 
tries), refreshing the video screen every 
16.667 milliseconds (ms). 

The 17-ms interval is important in an- 
imation. Most human beings detect no 
flicker in a display updated at 60 Hz. 
This frequency is the minimum at which 
most people physiologically fuse a 
flickering display into one that appears 
to be solid— called critical flicker fre- 
quency or CFF. If you reduce the fre- 
quency, more and more people detect 
flicker. Animators must keep this in 
mind. A good animation program is 
written in machine language to make 
screen changes every 17 ms; a program 
written in Basic is much too slow for 
animation. 

Sometimes, even machine language is 
too slow. To display movement of an 
object on the screen, an animation rou- 
tine must erase the old material from 
the screen before, or as, the new ma- 
terial appears. A complex animation 
program can take longer than 17 ms to 
determine the new position of the 
screen's contents. So, a certain amount 
of jumping can occur as the video frame 
frequency falls below the critical flicker 
frequency. This can be written off as a 
practical limitation of the system, 
although a clever programmer might be 
able to speed up the routines to reduce 
the problem. 

There is another flicker problem not 
associated with a limitation of the ma- 
chine-language program. Rather, it is a 
characteristic of how the microcom- 
puter displays information on the video 



screen. Many programmers are not 
aware of the design attributes that in- 
fluence the quality of their visual 
displays. 

For instance, Sublogic's T80-FS1 
Flight Simulator program for the 
Model III, which lets the user "fly" a 
Sop with Camel, is a very complex ma- 
chine-language program that updates 
the video screen three to six times per 
second. This rate is well below the 
critical fusion frequency, so consider- 
able screen flicker and jumping is 
apparent. 

These video irregularities result from 
display design problems. When the ma- 
chine-language routines update screen 
data, the update information is immedi- 
ately loaded into video RAM. The 
results of some routines alter video 
RAM already changed by other rou- 
tines. The changes in video RAM occur 
more often than the 3- to 6-Hz rate of 
the screen. As a result, material appears 
and disappears from the screen ran- 
domly. Moreover, noticeable flicker oc- 
curs when entire material is momentarily 
erased from the screen, only to be 
replaced a split second later. 

The psychological experimentation I 
do requires precise, non-flickering 
video displays of visual stimuli. It is 
often necessary to know exactly when a 
stimulus appears on the screen so that 
the experimental subject's reaction time 
is precisely measured. In the process of 
my experimentation, I realized the stim- 
ulus does not merrily appear on the 
screen precisely when the Z80 tells it to. 
It appears when the electron beam gets 
around to it in its 60-Hz cyclic journey 
across the screen. Video screen scanning 
occurs independently of the intentions 
of the Z80 or of the program designer. 

The TRS-80's video display is mem- 
ory-mapped. There are 1,024 locations 
in random-access memory (RAM) for 
each character location on the video 
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screen (RAM addresses 3COO-3FFF 
hexadecimal, 15360-16383 decimal). 
Most TRS-80 programmers are aware 
that whenever the TRS-80 is instructed 
to load a value into a video RAM loca- 
tion, the corresponding ASCII or 
graphics character appears on the video 
screen in the assigned location. How- 
ever, the Z80 has not carried out the act 
of drawing the stimulus on the screen. 
Rather, it has loaded a byte code into 
a video RAM address. The video RAM, 
then, serves as a base from which the 
video circuitry, operating independently 
of the Z80, reads and translates data to 
control the intensity of the electron 
beam as it scans the screen. 

Since the Z80 does not actively draw 
material on the screen, a major problem 
exists for animators. Suppose, for ex- 
ample, you have a machine-language 
program that prints very large letters on 
the screen. It takes 17 ms for each 16-line 
letter to appear on the screen, even 
though the Z80 loads data into video 
RAM in a fraction of a millisecond. 

Suppose your program draws the let- 
ter A, waits three seconds and then 
draws the letter B. The Z80 has no idea 
where the electron beam is pointing 
when it loads the letter data into video 
RAM. Ideally, the beam should be at 
the top of the screen. But, if the beam is 
in the middle of the screen, you could 
see the top half of the letter A and the 
bottom half of the letter B for an instant. 

This nonsensical figure lasts only for 
an instant. For an alphabet display, the 
problem might not be acute. But if 
you're trying to navigate your Sopwith 
F.l Camel, bomb a fuel depot without 
crashing into the mountains, and avoid 
being shot down by five German 
fighters on your tail, you don't want 
any distractions and you want clear 
screen displays. 

What might resolve Flight Simulator's 
problems? Ideally, all intended screen 
updates should be carried out on an in- 
visible page dedicated to video memory. 
Once an update is complete, the Z80 
should wait until the electron beam is at 
the top of the screen or at an invisible 
location (more on this later). Then a 
block load instruction should be exe- 
cuted, transferring the invisible page to 
active video RAM just ahead of the 
electron beam. The resulting program 
retains the original jumpiness, but it is 
flicker-free. However, the TRS-80 
display generator is not precisely timed 
nor is it designed to provide flicker-free, 
steady animation. 

I wanted the Z80 to determine the 
electron beam's location at any given 
moment, a feature not included as a 

^See List of Advertisers on Page 323 



hardware option. Mike Berger, a design 
engineer for the Model III, helped me 
develop a routine, written in Z80 ma- 
chine language, that uses the Model 
Ill's real-time clock (RTC). The RTC is 
software driven through an RTC inter- 
rupt operating at 30 Hz. 

When an RTC interrupt occurs, the 
Z80 finishes the current machine-lan- 
guage instruction. Then processing 
shunts to an interrupt-handling address 
containing the RTC interrupt-handling 
routine. 

A normal RTC routine increments 
a counter at RAM address 4216 hexa- 
decimal (16918 decimal). This counter, 
therefore, increments every 33.3 ms. 
Every 30 incrementations, one second is 
added to the RTC's second counter. 
After the RTC is updated, the Z80 
returns from the interrupt and con- 
tinues its previous task. In short, the in- 
terrupt causes the Z80 to suspend its 
current processing for a fraction of a 
millisecond every 33.3 ms to update the 
clock. 

The interrupt' s 30 Hz operating fre- 
quency derives from the 60 Hz video 
scan frequency. The video circuitry pro- 
duces a signal after every second screen 
page (every 33.3 ms). The Z80 inter- 
prets this signal as a maskable in- 



terrupt. Video synchronization is 
achieved because the electron beam's 
screen location is known when the inter- 
rupt occurs. 

The programmer steals the interrupt 
from the real-time clock. The clock 
stops keeping accurate time (or stops 
altogether, depending on how you work 
it) but you don't have to tell time to pro- 
duce a good animation. 

RTC interrupt normally vectors the 
Z80 to RAM address 4046 hex (16454 
decimal). This address and the follow- 
ing two addresses contain codes for an 
Assembly-language jump instruction, 
JP 2935H. This instruction tells the Z80 
where to jump to in RAM to update the 
RTC. Normally, the address is 2935 hex 
(13609 decimal). 

To use the RTC interrupt for video 
synchronization, the programmer must 
change the 2-byte address in 4047 and 
4048 hex from the RTC interrupt-han- 
dling address to the address of the 
machine-language routine coordinating 
the Z80's screen printing. 

Program Listing 1 is a machine-lan- 
guage routine that uses the RTC inter- 
rupt to move a 16-line vertical bar from 
the left side of the screen to the right 
side. The program assembles with any 
TRS-80 editor/assembler and loads 



EPSON 
GRAPHICS 




FROM YOUR 

BASIC • FORTRAN • PL 

PROGRAMS 



ASCAL 



Grafpac-80 will read data from a disk file on your system and convert it to a hi resolution plot or graph. Grafpac-80 plots up to 960 dots 
across and ± 32000 dots vertically on the Epson MX-80 — that's ±25 pages!! 

Grafpac-80 commands include: circle, ellipse, two and three dimensional data, penup/down, plot/move relative or absolute, single 
character or string plotting with rotation and size control, border generation, and many more . . 

Grafpac-80 is available for CP'M on 8 inch disk, TRS-DOS (model I and III) on 5 '/« inch disk. Requires 48K memory. TRS-DOS systems 
need two disks. - 

Prices: TRSDOS I & Ml $49.95 

CP/M $69.95 

(Please include $3.00 shipping charge with all orders) 
' A version is available for TRS-DOS users with one disk, however, you must send us a copy of your TRSDOS and include $10.00 for copying 

M.E.S.C. • Parkhurst Drive • Salisbury, MD 21801 • (301) 742-7333 

The following are registered trademarks. CP/M - Digital Research; TRS-DOS, TRS-80 - Tandy Corp., MX-80 - Epson Corp. 
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00100 


;17 MSEC MOVING BAR 






00110 


; By Joseph G. 


Dlhopolsky, Ph.D. 






00120 








FE00 




00130 




ORG 


0FE00H ;RAM of routine 


0060 




00140 


DELAY 


EQU 


0060H ;Delay ROM 


FE00 


F3 


00150 




01 


;Disable interrupts 


FE01 


210FFE 


00160 




LD 


HL,START;New RTC int address 


FE04 


224740 


00170 




LD 


(4047H) ,HL;New RTC int vect 


FE07 


FB 


00180 




EI 


;Enable interrupts 


FE0 8 


01320D 


00190 




LD 


BC,3378 ;50 msec delay 


FE0B 


CD6000 


00200 




CALL 


DELAY 


FE0E 


C9 


00210 




RET 


;Return to BASIC 


FE0F 


F3 


00220 


START 


DI 


;DRAW BAR ROUTINE 


FE10 


21003C 


00230 




LD 


HL,3C00H ;Video start 


FE13 


22FCFF 


00240 




LD 


(0FFFCH) ,HL 


FE16 


113F00 


00280 




LD 


DE,3FH 


FE19 


0610 


00290 


DRAW 


LD 


B,10H ;Counts lines 


FE1B 


FD2AFCFF 


00300 




LD 


IY, (0FFFCH) 


FE1F 


3E80 


00310 


LOOPA 


LD 


A, 128 ;Print blank 


FE21 


FD7700 


00320 




LD 


(IY) ,A 


FE2 4 


3EBF 


00330 




LD 


A,191 ;Bar CHR$ in A 


FE26 


FD23 


00340 




INC 


IY ;IY — > next space 


FE2 8 


FD7700 


00350 




LD 


(IY) r A ;Print CHRS 


FE2B 


FD19 


00360 




ADD 


IY,DE ;Skip to next line 


FE2D 


10F0 


00370 




DJNZ 


LOOPA 


FE2F 


ED4BDBFF 


00380 




LD 


BC, (0FFDBH) ;Finish 16.7 msec 


FE3 3 


CD6000 


00390 




CALL 


DELAY 


FE3 6 


21FCFF 


00400 




LD 


HL,0FFFCH 


FE39 


34 


00410 




INC 


(VIE) ;Move to next space 


FE3A 


3E3F 


00420 




LD 


A P 3FH ;Check screen end 


FE3C 


AE 


00430 




XOR 


(HL) 


FE3D 


C219FE 


00440 




JP 


NZ,DRAW ;Do next bar 


F E 4 


212935 


00450 




LD 


HL,3529H;Normal RTC int 


FE43 


224740 


00460 




LD 


(4047H) ,HL 


FE46 


FB 


00470 




EI 




FE47 


ED4D 


00480 




RETI 




FE00 




00490 




END 


0FE00H 


0000 


Total Errors 
















Program Listing I 



from disk. Alternatively, the object 
code (see Table 1) can be POKEd into 
RAM as part of a Basic program. Re- 
gardless of the technique used to get the 
program in RAM, it must begin at loca- 
tion FEOO hex (65024 decimal). If run- 
ning the program as a USR call from 
Basic, be sure to answer less than 65024 
to the Memory Size query. 

Before delving into the details of 
Listing 1 , you may want to run a simple 
Basic program that moves a vertical bar 
across the screen in a fashion similar to 
Listing 1 . An example appears in Pro- 
gram Listing 2 that demonstrates the fa- 
tiguing flicker. While a machine-lan- 
guage routine might perform the task 
more quickly and efficiently, without 
video synchronization the program 
shows no great improvement in flicker. 

Listing 1 revectors the RTC inter- 
rupt, waits for the interrupt, draws the 
first line, waits for 16.667 ms to pass, 
then erases the line and simultaneously 
draws the next line. When the vertical 
line moves to the right edge of the 
screen, the RTC interrupt returns to 
normal. 

Line 140 locates the Delay ROM ad- 
dress so the program can call it when a 
delay is desired. 




M m^mltMmJ* MLs%3 %!9 SL& ^*r *2P® m m • & *• *P ^9 *& ; 
A powerful, easy-to-use disk operating system! 

FLEXPLUS is a powerful, easy-to-use disk operating system Spectral Associates has 
COLOR COSMIC INVADERS adapted TSCs FLEX to the best DOS completely compatible with Radio Shack software for 

use on the Color Computer. Eliminate the need for Radio Shack's TRS DOS - use FLEX 

* FREE * $21.95 ValllC PLUS with Editor Assembler and have th? options of a full range of utilities FLEXPLUS 

-^- py , T\IC£1/ works on the 32K Radio Shack disk system with 64K memory chips with a High Resolution 

Oil ©VCry rLtAT U19I\ multi-screen format that supports a 24 line by 51 character display' Also included are special 

Advantages Of FLEXPLUS DOS enhancements to Radio Shack's Disk system when you are running FLEX with single or dou 

• Best price anywhere ble sided, single or double density, 35. 40 and 80 track drives 

: ^:::n:.t: a -K ( ;NK,,.- supercharger $39.95 

. Allows you to save RS compatible binary d.sk files from FLEXPLUS machine language access to all 64K RAM in a Series E PC board. No hardware mods 

• NO HARDWARE MODIFICATIONS NEEDED 

• Warranty will not be voided -no need to open computer />/\l /\n />/%m«nirrrn 
. Most FLEX compatible software will run. CUIAJK CUMKU 1 UK 

FLEXPLUS $69 96 Quality Hardware and Software Support 

for new F Board. TRS-80 • TDP SYSTEM 100 • DRAGON 32 

FLEXPLUS with Supercharger $89.95 For Orders Only Call or write for a complete catalog 

for E and F Boards Business Office and Information Call: 

: A ;r'vr^^:;;;:t;^^rr b :nXd^ m***™ i-80©-426-I830 <2 6) ssi^m 

driven souwaki except WA, AK, HI Office open 8:30 — 4:30 P.S.T. 

E Board to F Board Conversion 10.95 We accept Visa, MASTERCARD, AMERICAN EXPRESS 

• Eliminates need for Supercharger. Simple Installation ah p r j ces U.S. Funds. Add 3% for shipping, No COD. WA residents add 7.8% 

• hull Instructions. Jusi remove two chips and plug in our 

prewired ICs S aleS t3X 

• Soldering of one wire to a test point required ■ ; -^«. ■.- ==* .^^ }^-- 'wv «, '■■« 

ARCADE GAMES 
ALL MACHINE LANGUAGE $21.95 each 

LANCER - Best JOUST type game - 32K 

MS GOBBLER - Great MS PACMAN type game - 32K 

WHIRLYBIRD RUN - Like SCRAMBLE - 16K *'$ M 'll ■% *£--*■•«!.>- c«? ,' C. vaav 

STORM ARROWS - TARG type game - 16K «J>**JL i * 3011X11 ^VXIl 9tr«*5l 

ANDROID ATTACK - Like BERSERK - 16K •■•—. — -».«««. Ill A Ofi/IAQ 

32K VERSION TALKS I aCOIttit, WA !f »»U!f „ 119 

SPACE RACE - Best OMEGA RACE type game - 16K 
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Line 1 50 disables all maskable inter- 
rupts, including the RTC interrupt. 
This avoids the possibility of an inter- 
rupt occurring while the vector is being 
changed. 

Lines 160 and 170 change the RTC 
interrupt vector to the RAM address of 
the Start routine (beginning at line 220). 

Line 180 enables the interrupts so the 
new vector will operate. 

Lines 190 and 200 execute a 50-ms 
pause during which the Z80 waits for 
the interrupt to occur. Once it does, 100 
microseconds pass and the Z80 then be- 
gins processing the instructions in the 
Start routine. The RETI instruction in 
line 480 returns the Z80 to line 200 to 
complete the 50 ms pause. 

Line 210 executes a return to Basic or 
to the machine-language program that 
called the routine. 

Line 220 begins the interrupt-han- 
dling routine. It first disables all mask- 
able interrupts because the routine takes 
longer than 33.3 ms to complete. If the 
interrupts are not disabled, the RTC in- 
terrupt would restart the routine every 
33.3 ms and it would never be 
completed. 

Lines 230 and 240 load the starting 
address (the top left location on the 



10 ' BASIC MOVING BAR 




By Joseph G. Dlhopolsky, Ph.D. 




St. John's University 




Staten Island, New York 10301 




20 ' Revised 8208.21 




990 DEFSTRA-H:DEFINTI-N 




10 00 B0=" n :A=CHR$(191) +CHR$(24) +CHR${26) 




1001 FORJ=1TO15:B0=B0+A:NEXT 




1002 B0=B0+CHR$(191) 




100 5 Bl=" n :A=CHR$(128)+CHR$(24) +CHR$(26) 




1006 F0RJ=1T015:B1=B1+A:NEXT 




1007 B1=B1+CHR$(128) 




1009 FORJ=1TO10 




1010 FORJ0=0TO64 




1012 PRINT@J0 f B0; 




1014 PRINT@J0,B1; 




1016 NEXT 




1020 NEXT:GOSUB9200:CLS:END 




9200 A=INKEY$ 




9210 PRINT@962,"( PRESS ANY KEY TO 


C N T I 


N U E ) " ; 




9220 A=INKEY$ 




9230 IFA=" n THEN9220ELSERETURN 




Program Listing 2 





screen) of the first bar into RAM ad- 
dresses FFFC (LSB) and FFFD (MSB) 
hex (65532 and 65533 decimal). This 
value is incremented as the bar appears 
in new locations. 

Line 280 loads 3F hex (63 decimal) in- 
to the DE register for adding to the IY 
register. The IY register points to the 



current video address for printing one 
of the 16 portions of each bar. 

Lines 310-360 erase an old bar and 
draw a new one in the video location 
immediately to the right. 

Lines 380 and 390 time the remainder 
of the 16.7-ms duration of the screen 
page. This assures that the electron 




TRS-80 Model III 16K 

TRS-80 Model III 48K 

TRS-80 Model III 48K w 2 Drives 

TRS-80 Model 4 16K 

TRS-80 Model 4 64K w 2 Drives 

TRS-80 Disk Kit w 2 Drives 

Corvus 5 meg hard disk 

Corvus 20 meg hard disk 

Davong 5 meg hard disk 

Davong 18 meg hard disk 

Okidata ML-82A 

Okidata ML-83A 

Okidata ML-84 

Okidata ML-92 

Okidata ML-93 

Gemini 10 

Gemini 15 




699.00 

719.00 

1395.00 

895.00 

1695.00 

599.00 

1995.00 

3595.00 

1579.00 

2295.00 

399.00 

639.00 

969.00 

539.00 

889.00 

329.00 

459.00 



SMALL BUSINESS SOFTWARE PACKAGE 



Visacalc Spreadsheet $99.95 

Scripit Word Processor $99.95 

Versatile Database $99.95 

PURCHASE ALL 3 FOR ONLY $199.95 

This business software package has many features 
not available on higher priced versions. The 
complete package is available on disk or tape for 
your Model I, III, IV, Apple HE, or VIC-20. The 
package comes with 3 manuals and all future 
updates of the package are free! 



SOFTRONICS COMPUTER SYSTEMS 



Call or send check, money order, or wire. 
Include 3% for shipping. $1.00 minimum. 
Oklahoma residents must add 5%. 
Prices and availability subject to change. 

Office Hours: 10 a.m. to 6 p.m. weekdays. 
3BS Hours: All other tlm« 



-6211 



2300 E. 14th Suite 204 
Tulsa, Oklahoma 7410' 



Defendoids 

A superior arcade style game with 
fast action graphics and sounds! 
Your mission is to rescue the fuel 
tanks from the planet's surface. 
You must do battle with the evil 
enemy ships hovering above the 
planet. Watch out though . . . after 
10,000 points, the Vapor Gas Attack 
begins! Accept your mission and 
order this machine language game 
for only $15.95 for any Mod I, III, 



y'See List of Advertisers on Page 323 
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Hex Address Code 


Dec Address Code 








FEOO F3 


65024 243 








FE01 21 


65025 33 


FE25 


BF 65061 


191 


FE02 OF 


65026 15 


FE26 


FD 65062 


253 


FE03 FE 


65027 254 


11:27 


23 65063 


35 


FE04 22 


65028 34 


FE28 


FD 65064 


253 


FE05 47 


65029 71 


FE29 


77 65065 


119 


FE06 40 


65030 64 


FE2A 


00 65066 





i E07 FB 


65031 251 


FE2B 


FD 65067 


253 


11:08 01 


65032 1 


FE2C 


19 65068 


25 


FE09 32 


65033 50 


FE2D 


10 65069 


16 


FEOA OD 


65034 13 


FE2E 


FO 65070 


240 


FEOB CD 


65035 205 


FE2F 


ED 65071 


237 


FEOC 60 


65036 96 


FE30 


4B 65072 


75 


FEOD 00 


65037 


FE31 


DB 65073 


219 


FEOE C9 


65038 201 


FE32 


FF 65074 


255 


FEOF F3 


65039 243 


FE33 


CD 65075 


205 


FE10 21 


65040 33 


FE34 


60 65076 


96 


FE11 00 


65041 


FE35 


00 65077 





FE12 3C 


65042 60 


FE36 


21 65078 


33 


FE13 22 


65043 34 


FE37 


FC 65079 


252 


FE14 FC 


65044 252 


FE38 


FF 65080 


255 


FE 1 5 FF 


65045 255 


FE39 


34 65081 


52 


FE16 11 


65046 17 


FE3A 


3E 65082 


62 


FE17 3F 


65047 63 


FE3B 


3F 65083 


63 


FE18 00 


65048 


FE3C 


AE 65084 


174 


IE 19 06 


65049 6 


FE3D 


C2 65085 


194 


FE1A 10 


65050 16 


FE3E 


19 65086 


25 


1E1B FD 


65051 253 


FE3F 


FE 65087 


254 


FE1C 2A 


65052 42 


FE40 


21 65088 


33 


FE1D FC 


65053 252 


FE41 


29 65089 


41 


FE1E FF 


65054 255 


FE42 


35 65090 


53 


FE1F 3E 


65055 62 


FE43 


22 65091 


34 


FE20 80 


65056 128 


FE44 


47 65092 


71 


FE21 FD 


65057 253 


Fi:45 


40 65093 


64 


FE22 77 


65058 119 


11.46 


FB 65094 


251 


11:23 00 


65059 


FE47 


ED 65095 


237 


FE24 3E 


65060 62 


FE48 


4D 65096 


77 


Table I. Obji 


cl Code for 17 Millisea 


nd Moving 


Bar (Program Listing 1) 





10 


VIDEO SYNC MOVING BAR 

4 8 K DISK MODEL III TRS-80 

By Joseph G. Dlhopolsky, Ph.D. 

St. John's University 

state:: Island, New York 10301 




20 


Revised 8208.11 




100 


CLEAR500:CLS 




110 


DEFSTRA-H:DEFINTI-J 




120 


CMD"L" , "MOVEBAR/CMD" : DEFUSR0 = &IIFE0 




20 


CLS: INPUT "How many passes ";JA 




270 


P0 = 50000/3-882. 5: 'Removes bar draw & erase 


time from 17 msec 


272 


OA=(P0-2.46)/14.8: 'Gets EC value for DELAY 


call 


274 


GOSUB9000: 'Rounding 




276 


JD=INT(OA) 




280 


J0=JDAND255:J1=(-256ANDJD)/256:IFJK0THENJ1 


=-l-Jl 


282 


J1=(-256ANDJD)/256:IFJK0THENJ1=-1-J1: 'Gets 


MSP. 


2 90 


POKE&HFFDB, J0 : POKE&HFFDC , Jl : 'LSB i» MSB for 


rest of 17 msec 


300 


GOSUB9200:CLS 




400 


FORJ=lTOJA: 'Start flash sequence loop 




410 


J0=USR0(0) : 'Calls 17 msec MOVING BAR 




430 


NEXT: 'Next pass 




440 


GOSUB9200:GOTO200: 'Wait for response then s 


tart over 


9000 IFOA-INT(OA) < . 4 9999THENOA=INT (OA) ELSEOA=IMT (OA+1 ) 


901C 


RETURN 




920! 


A=INKEY$ 




921S 


PRINT@962,"( PRESS ANY KEY 


TO C O N T I 


N U 


E ) " ; 




9226 


A=INKEY$ 




9236 


IFA=""THEN9220ELSERETURN 

Program Listing 3 





beam is at the same starting position for 
each new bar. The BC register contains 
an MSB-LSB (most significant byte- 
least significant byte) value equivalent 
to 14.8 *(desired delay -2.46 microsec- 
onds) described in Radio Shack's ROM 
call definition. This value must be 
stored in RAM addresses FFDB (LSB) 
and FFDC (MSB) hex (65499 and 65500 
decimal) before the routine is called. It 
takes 882.5 microseconds to erase an 
old bar and draw a new one, so the value 
in FFDB and FFDC contains a value 
that carries out a pause of 15.78 ms 
(16.667 - .8825 ms). 

Lines 400-430 increment the value in 
addresses FFFC and FFFD (the video 
starting location for each bar) to set up 
for drawing the next bar. They also 
check to see if the end of the screen is 
reached. 

If the end of the screen is not reached, 
line 440 jumps to draw the next bar. If it 
has been reached, the program goes to 
line 450. 

Lines 450 and 460 return the RTC in- 
terrupt vector back to normal. 

Lines 470 and 480 enable the inter- 
rupts and return from the current inter- 
rupt. Note that the Start routine must 
end with an EI instruction and a RETI 
instruction. You cannot use a RET in- 
struction. If you leave out these com- 
mands, there is no telling what might 
happen, but it wouldn't be what you 
wanted. 

The software I designed to perform 
psychological experiments is a hybrid of 
programs where machine-language rou- 
tines carry out critical functions within 
larger Basic programs. Similarly, Pro- 
gram Listing 3 shows a Basic program 
that loads the machine code for Listing 
1 from a disk file and carries out a 
demonstration. 

Line 120 of Listing 3 performs the 
disk load. The disk file with the 
machine-language object code should 
be named MOVEBAR/CMD for pro- 
per loading. For non-disk users, replace 
line 120 with commands to POKE the 
object code in Table 1 into RAM. When 
you do this, you must include the fol- 
lowing two commands that tell Basic 
where the USR routine starts: POKE 
16526,0 and POKE 16526,254. 

To understand the timing of the RTC 
interrupt and its relationship to the 
location of the electron beam, you 
should understand the characteristics of 
the video screen operation. See Fig. 1 
for a diagram of the video organization. 

Most TRS-80 programmers are 
aware that the Model Ill's video screen 
consists of 16 lines of 64 characters 
each. Each of the 16 video lines consists 
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The New Personal Computer by Progressive Electronics 
TRS-80 Mod-Ill & CP/M* Compatible 

Plus: 

- 128 k Ram 

- 80x24 Video 

- 512x240 Graphics 
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- Parallel Printer 

- Light Pen 

- Audio 

Available NOW I as a Kit: Less Rom & Ram 
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5 Rom Sockets 



$ 599.°° 
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Add Shipping & Handling. . . 



Phone 614-687-1019 
9-5 Weekdays 
Sat. 9-Noon 

Visa-M.C. 



of 12 scan lines. The electron stream 
travels from left to right as it draws each 
of the 12 lines in each character (actually, 
alphanumeric characters use only the 
top eight scan lines). It travels back 
from right to left before it starts the next 
scan line. This is called horizontal re- 
trace and the beam is blanked during 
this interval. For convenience, it is said 
that the horizontal retrace really con- 
sists of 16 non-displayed characters that 
are tagged on at the end of the 64 char- 
acter line; the TRS-80 thinks it is print- 
ing 80 character lines. 

After the electron beam completes 
the last scan line on video line 16, it 
travels up to line 1 to begin the process 
anew. Just as 16 extra characters are fig- 
uratively added to the horizontal lines 
to accommodate the time it takes to 
make a horizontal retrace, six extra lines 
are added to the last line to accommo- 
date the time it takes to complete a ver- 
tical retrace. 

During vertical retrace, the electron 
beam is once again blanked. The result 
is that we have six video lines — 17 
through 22 — that are not displayed. 
This would seem to be the ideal time to 
load data into video RAM because the 
changes wouldn't appear until the elec- 
tron beam returned to the first scan line 
on the top of the screen. Even more ad- 
vantageous, the RTC interrupt occurs 
at the beginning of invisible line 17! 

Listing 1 uses this to accomplish all 
the changes in video RAM before the 
electron beam completes its vertical re- 
trace to return to the top scan line: The 
Start routine begins 100 ms after the in- 
terrupt, and the changes in video RAM 
are completed 882.5 microseconds later. 



LINE 
NUMBER 


VISIBLE PORTION OF VIDEO 


LINE (64 CHARACTERS) 


16 INVISIBLE 
CHARACTERS 




1.54 


msec -from Real Time 


Clock interrupt 










5.30 


msec 










, 


6.06 


msec 










4 


6. 82 


msec 




. . . Devoted to. . . 
. . .horizontal . . . 
. . . .retrace 


5 


7.58 


msec 




6 


8.33 


msec 










9.09 


msec 










a 


■•>. 85 


msec 










10.61 


msec 










10 


11.36 


msec 








1 1 


i 2 . 1 2 


msec 








12 


12.88 


msec 








13 


13.64 


msec 








14 


14.39 


msec 








15 


15. 15 


msec 








16 


15.91 


msec 










..Real Time Clock Interrupt 


occurs at beginning of li 










. .0. 757 


msec * r om ;: -eal T i me 












19 


. . 1 . 52 a 


c 












20 


. .2.27 n 














21 


. .3.03 fi 














22 


. .3.79 n 

























Fig. J. Video configuration in the Model III. The visible portion of the video screen is the 16 dark 
horizontal lines. Each 64-character video line has 16 non-displayed characters at the end, shown here 
as dots. These characters describe the time it takes for the electron bean: to complete a horizontal 
retrace. Lines 1 7 through 22 are non-displayed. These describe the time it takes for the electron beam 
to complete a vertical retrace. The Real Time Clock interrupt occurs at the beginning of line 17. 



As to timing requirements, simple 
arithmetic tells you how much time you 
have to work. Twenty two lines are 
drawn in 16.7 ms. Each line, therefore, 
is drawn in 757.57 microseconds (in- 
cluding horizontal retrace). If the RTC 



interrupt arrives at zero microseconds, 
line 1 is printed 757.57 x 6 microsec- 
onds, or 4.54 ms, later. If your ma- 
chine-language routines are completed 
in under 4.5 ms, it is possible to update 
video RAM before the electron beam 
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When it coi 

we study our lines very carefully. 



Superior printer performance is not a fluke. 
It evolves from analyzing printed line after 
printed line. Taking the time to test and retest. 
After 30 years of manufacturing precision 
parts, we know that there are no shortcuts. 

And so we took the Gemini-10X and method- 
ically put it through its 120 cps pace. We 
achieved a print head life of over 100 million 
characters with an extremely precise dot align- 
ment creating each crisp character. 

So far so good. 

Next, sophisticated performance de- 
manded versatility. A wide choice of 
character sets, a buffer expandable ■ ■ 

to 8K, and the ability to interface 
with all popular personal 
computers. We added macro 



instruction, giving GeminMOX the capability 
to perform up to 16 operations with one com- 
mand. We included as standard a paper 
feed system that has a friction and fully adjust- 
able tractor feed. Then we even built in the 
dexterity to print graphics and text on the 
same lina 
Done. 

And, of course, staying the best means 
constant reviewing and fine-tuning. Keeping 
the Gemini easy to find, easy to afford and so 
reliable it can be warranted for up to twice 
as long as its major competitors. 

. Only the most careful 
" \^£ engineering has built the new 

- hard-working GeminMOX. 

tm You'll applaud its performance. 
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Lafayette, CA 94549 

132 • 80 Micro, August 1983 




Hex Address Code 


Dec Address 


Code 








FEOO F3 


65024 


243 


FE24 


00 65060 





FEOl 21 


65025 


33 


FE25 


FD 65061 


253 


FE02 OF 


65026 


15 


FE26 


19 65062 


25 


FE03 FE 


65027 


254 


FE27 


10 65063 


16 


FE04 22 


65028 


34 


FE28 


F9 65064 


249 


FE05 47 


65029 


71 


FE29 


FD 65065 


237 


FK06 40 


65030 


64 


FE2A 


4B 65066 


75 


IT- 07 FB 


65031 


251 


FE2B 


DB 65067 


219 


FE08 01 


65032 


1 


FE2C 


FE 65068 


255 


FE09 32 


65033 


50 


FE2D 


CD 65069 


205 


FE0A 0D 


65034 


13 


FE2E 


60 65070 


96 


FE0B CD 


65035 


205 


FE2F 


00 65071 





FE0C 60 


65036 


96 


FE30 


06 65072 


6 


FE0D 00 


65037 





FE3 1 


10 65073 


16 


FE0E C9 


65038 


201 


FE32 


3E 65074 


62 


FE0F F3 


65039 


243 


FE33 


80 65075 


128 


FE10 ED 


65040 


237 


FE34 


FD 65076 


253 


FE 1 1 4B 


65041 


75 


FE35 


21 65077 


33 


FE12 E0 


65042 


224 


FE36 


20 65078 


32 


FE 1 3 FF 


65043 


255 


FE37 


3C 65079 


60 


IF 14 CD 


65044 


205 


FE38 


FD 65080 


253 


FE15 60 


65045 


96 


FE39 


77 65081 


119 


11 16 00 


65046 





EE3A 


00 65082 





FE17 11 


65047 


17 


FE3B 


FD 65083 


253 


FE18 40 


65048 


64 


FE3C 


19 65084 


25 


IE 19 00 


65049 





EE31) 


10 65085 


16 


FE1A 06 


65050 


6 


FE3E 


F9 65086 


249 


FE1B 10 


65051 


16 


FE3F 


21 65087 


33 


FE1C FD 


65052 


253 


FE40 


29 65088 


41 


FE1D 21 


65053 


33 


FE41 


35 65089 


53 


FE1E 20 


65054 


32 


FE42 


22 65090 


34 


FE1F 3C 


65055 


60 


EE43 


47 65091 


71 


11-20 3E 


65056 


62 


FE44 


40 65092 


64 


FE21 BF 


65057 


191 


EE45 


FB 65093 


251 


EE22 FD 


65058 


253 


FE46 


ED 65094 


237 


11 23 77 


65059 


119 


FE47 


4D 65095 


77 


Table 2. Object Code for Beam ( 


Sa libra lion (Program Listing 4) 






00100 ;BEAM 


CALIBR 


ATION 








00110 ;By Jo 


seph G 


. Dlhopolsky, Ph.D. 






00120 










FE0 


00130 


ORG 


0FE00H 


;RAM of routine 




0060 


00140 DELAY 


EQU 


0060H 


; Delay ROM 




FE0 F3 


00150 


DI 




.•Disable interrupt 


s 


FE01 210FFE 


00160 


LD 


HL,START;New RTC int address 


FE04 224740 


00170 


LD 


(4047H) , 


HL;New RTC int vec 


t 


FE07 FB 


00180 


EI 




;Enable interrupts 




FE08 01320D 


00190 


LD 


BC,3378 


;50 msec delay 




FE0B CD6000 


00200 


CALL 


DELAY 






FE0E C9 


00210 


RET 




;Return to BASIC 




FE0F F3 


00220 START 


DI 




;DRAW BAR ROUTINE 




FE10 KD4BE0FF 


00230 


LD 


BC, (0FFE0H) ;Pause 




FE14 CD6000 


00240 


CALL 


DELAY 






FE17 114000 


00250 


LD 


DE r 40H 






FE1A 0610 


00260 


LD 


B f 10H 


; Counts lines 




FE1C FD21203C 


00270 


LD 


IY,3C20L 


; Video RAM 




FE20 3EBF 


00280 


LD 


A, 191 


;Print bar CHR$ 




FE22 FD7700 


290 LOOP A 


LD 


( 1 Y } , A 






FE25 FD19 


00300 


ADD 


IY,DE 


;Skip to next line 




FE27 10F9 


00310 


DJNZ 


LOOPA 






FE29 ED4BDBFF 


00320 


LD 


BC, (0FFDBH) , -Finish 16.7 msec 


FE2D CD6000 


00330 


CALL 


DELAY 






FE30 0610 


00340 


LD 


B,10H 


;Sets counter 




FE32 3E80 


00350 


LD 


A, 128 


;Blank character 




FE34 FD21203C 


00360 


LD 


IY,3C20P 


;Points video RAM 




FE38 FD7700 


00370 LOOPB 


LD 


(IY) ,A 


; Draws blank 




FE3B FD19 


00380 


ADD 


IY,DE 


;Jump to next line 




FE3D 10F9 


00390 


DJNZ 


LOOPB 






FE3F 212935 


00400 


LD 


HL,3529H 


;Normal RTC int 




FE42 224740 


00410 


LD 


(4047H) , 


HL 




FE45 FB 


00420 


EI 








FE46 ED4D 


00430 


RET I 








FE00 


00440 


END 


0FE00H 








/ 


'rogram 


Listing 4 







begins to print the updated informa- 
tion. Hence, no flicker is apparent. 

Program Listing 4 shows the source 
code for a machine-language routine 
that prints a vertical bar in the center of 
the screen. The decimal conversions for 
the object code appear in Table 2. Pro- 
gram Listing 5 is a Basic program that 
allows the user to enter a microsecond 
pause that Listing 4 takes before it 
draws the bar. If you select a microsec- 
ond pause within the 16.7-ms range, 
you can demonstrate the location of the 
electron beam at various times from the 
RTC interrupt. Listing 4, therefore, can 
calibrate the electron beam's location at 
different times. 

The machine-language program re- 
assigns the RTC interrupt to the Start 
address and then waits for the interrupt. 
RAM addresses FFEO and FFE1 hex 
(65504 and 65505 decimal) contain the 
LSB and MSB codes for the user-se- 
lected delay. During this time, the elec- 



tron beam completes its vertical retrace 
and starts to scan the visible lines. When 
the pause ends, the Z80 loads 191s into 
the video RAM addresses for a single 
vertical bar in the middle of the screen. 
It takes 380 microseconds to complete 
this loading. So, in effect, the bar data 
is loaded into video RAM just ahead of 
the electron beam. 

Once the bar is drawn, the program 
pauses Oines 320 and 330). The codes in 
addresses FFDB and FFDC hex (65499 
and 65500 decimal) create a pause for 
the remainder of the 16.7 ms from the 
beginning of the Start routine. Then the 
code for a blank graphics character 
(128) is loaded into each of the 16 video 
RAM locations for the segments of the 
bar. With the next pass of the electron 
beam 17 ms from the RTC interrupt, 
the bar is erased. 

For example, if you selected a 10-ms 
pause from the RTC interrupt before 
the data is stored in video RAM, the 



10 ' Z-80 VIDEO SYNCH DEMONSTRATION 

48 K DISK MODEL III TRS-80 

Written for TRSDOS 1.3 
20 ' Revised 8208.21 

100 CLEAR500:CLS 

110 DEFSTRA-H:DEFINTI-J 

120 CMD "L"," BE AMCAL/CMD": 'Loads 17 MSEC VERTICAL BAR 

130 DEFUSR0=&HFE00: 'Defines origin of machine code 

200 CLS:INPUT"How many f lashes" ;JA 

210 INPUT"Length of pause before drawing line (usec)";JB 

240 P0=JB-40: 'Corrects for machine language routine overhead 

242 OA=(P0-2.46)/14. 8: 'Converts to BC register value 

244 GOSUB9000: 'Rounding 

246 JC=INT(OA) 

250 J0=JCAND255: 'LSB 

252 J1=(-256ANDJC)/256:IFJK0THENJ1 = 256+J1: 'MSB 

260 POKE&HFFE0,J0:POKE&HFFE1,J1: 'LSB & MSB for DELAY call 

270 P0=50000/3-P0-403.5: 'Gets rest of 16.7 msec 

272 OA=(P0-2.46)/14. 8: 'Converts to BC register value 

274 GOSUB9000: 'Rounding 

276 JD=INT(OA) 

280 J0=JDAND255: 'LSB 

282 J1=(-256ANDJD)/256:IFJK0THENJ1 = 256+J1: 'MSB 

290 POKE&HFFDB,J0:POKE&HFFDC,J1: 'LSB & MSB for rest of 17 msec 

300 GOSUB9200:CLS 

310 CLS: 'Lines 310-340 draw screen display 

320 FORJ=29T0989STEP64 

322 PRINT@J,CHR$(17 0) ; 

324 PRINT@J+6,CHR$(149) ; 

326 NEXT 

330 PRINT@16, "VIDEO LINE"; 

331 J0=1:FORJ=26TO53 8STEP64 

332 PRINT(?J,J0; : PRINT@J+4 , STRINGS ( 5 , 95) ; 

333 J0=J0+1:NEXT 

334 FORJ=601TO985STEP64 

335 PRINT@J, J0; : PRINT@J+5 , STRINGS ( 5 , 95) ; 

336 J0=J0+1:NEXT 

340 PRINT@361, "Pause from Real Time"; 

342 PRINT@425, "Clock interrupt:"; 

344 PRINT@488,JB;"+ 100 usee"; 

400 FORJ=lTOJA: 'Start flash sequence loop 

410 J0=USR0(0) : 'Calls BEAM CALIBRATION 

430 NEXT: 'Next flash 

440 GOSUB9200:CLS:GOTO210: 'Wait for response then start over 

9000 IFOA-INT(OA) < . 49999THENOA=INT(OA) ELSEOA=INT(OA+l) 

9010 RETURN 

9200 A=INKEY$ 

9210 PRINT@962,"( PRESS ANY KEY TO 

N U E ) "; 

9220 A=INKEY$ 

9230 IFA=""THEN9220ELSERETURN 



Program Listing 5 
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electron beam is located within line 8 
(see Fig. 2). The video data loads just in 
front of the beam. The Z80 then waits 
for the rest of the 16.7 ms from the RTC 
interrupt before it loads blank codes in- 
to video RAM. As a result, the top por- 
tion of the bar never appears. All you 
see is a bar starting somewhere within 
line 8, ending at the bottom of the 
screen, and lasting 17 ms. 

When you run Listing 5, you must 
reserve high memory above address 
65000. The object code for the machine- 
language routine should be in a disk file 
called BEAMCAL/CMD, as indicated 
in line 120. For non-disk users, POKE 
the object code decimal values starting 
in the address listed in Table 2. 

Listing 5 asks the user to set two pa- 
rameters. The first question, "How 






many flashes?", allows you to call the 
machine-language routine a number of 
times in succession. Each time the rou- 
tine is called, the bar is displayed for 17 
ms, so multiple flashes are helpful. The 
second question, "Length of pause be- 
fore drawing line?", lets you select the 
initial microsecond pause that the ma- 
chine-language routine takes. 

When you select a pause, 40 micro- 
seconds are subtracted in line 240 of 
Listing 5. This is because those sections 
of the machine-language routine that 
precede drawing the bar take 40 micro- 
seconds to carry out. If you wish to use 
the values in Fig. 1 for each video line, 
be sure to subtract 100 microseconds, 
the time required for the Z80 to trigger 
the Start routine after the interrupt. 

Upon answering the computer's que- 



Fig. 2. Two sample screen displays produced by Program Listing 5 for electron beam calibration. The 
short horizontal lines are produced by CHR$(95) which appears as a short line about 2/3 of the way 
down the video line. When displayed, alphanumeric characters appear in the space above this char- 
acter. The central grey bar depicts the vertical bar displayed by Program Listing 4. In (a), the entire bar 
appears. This would be the display if no pause were executed after the RTC interrupt. A 10-mspause 
would give a result similar to (b). The entire bar is loaded into video RAM, but the top portions are 
erased before the electron beam can get to them. 
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ries, you can implement the demonstra- 
tion by pressing any key. The program 
POKEs the correct values in RAM loca- 
tions used by the machine-language 
routine and draws a screen display that 
helps to locate and interpret the length 
of the 17-ms bar (see Fig. 2). For cali- 
bration purposes, the short horizontal 
lines indicate the general location of 
each video line. About 2/3 of the video 
line (seven scan lines) is located above 
the horizontal line, 1/3 below it (four 
scan lines). All alphanumeric characters 
appear in the space above the horizontal 
line; some graphics characters span both 
above and below the horizontal line. 

I tested Listings 4 and 5 on my Model 
III and found a lack of agreement be- 
tween the initial pause and the expected 
location of the electron beam. For ex- 
ample, a 10 ms pause should show a 
complete bar from the middle of line 8 
down to the bottom of the screen. The 
actual line displayed, however, only 
started at line 9, an error on the order of 
some 500 microseconds. 

The pattern of errors indicates that 
Listing 4 is either pausing 38 microsec- 
onds for each visible line or that the visi- 
ble lines are drawn 38 microseconds 
sooner than the 757 microseconds sup- 
plied by Radio Shack. The 100-micro- 
second delay from the interrupt to the 
beginning of the Start routine appears 
to be accurate. But the microsecond val- 
ues given for each line in Fig. 1 are not 
accurate. I found that the top of the bar 
appears in the expected location if the 
pause is adjusted based on the following 
equation: 

MEASURED TIME = PREDICTED TIME - 
(LINE NUMBER x 38 microseconds) 

From this value, you also have to 
subtract the 100 microseconds overhead 
from the RTC interrupt. Table 3 lists 
the results. 

I am not certain where the error lies. 
It may be that the video circuitry of my 
unit isn't operating at the intended 60 
Hz, or my system clock is off, but I 
somehow doubt this. I may have incor- 
rectly timed the duration of the ma- 
chine-language instructions. For this, I 
used Rodnay Zak's book, How to Pro- 
gram the Z80. And I double-checked 
my calculations. 

Another problem might be in the 
Delay subroutine in the Model Ill's 
ROM. The user's manual gives instruc- 
tions that imply a microsecond accuracy 
for this delay call. But if the Delay 
subroutine is the problem then it under- 
estimates the time with a 5 percent error 
(38 microseconds per 757-microsecond 
line). However, I find it difficult to 



AARDVARK L.T.D. 

TRS-80 COLOR COMMODORE 64 VIC-20 SINCLAIR/TIMEX TI99/4A 




QUEST - A NEW IDEA IN ADVENTURE 
GAMES! Different from all the others. 
Quest is played on a computer generated 
map of Alesia. Your job is to gather men 
and supplies by combat, bargaining, explor- 
ation of ruins and temples and outright 
banditry. When your force is strong enough, 
you attack the Citadel of Moorlock in a 
life or death battle to the finish. Playable 
in 2 to 5 hours, this one is different every 
time. TRS-80 Color, and Sinclair, 13K VIC- 
20. Extended BASIC required for TRS-80 
Color and TI99/A. $14.95 each. 

32K TRS 80 COLOR Version $24.95. 

Adds a second level with dungeons and 
more Questing. 
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WIZARDS TOWER - This is very similar to 
Quest (see above). We added wizards, magic, 
dragons, and dungeons to come up with a 
Quest with a D&D flavor. It requires 16k 
extended color BASIC. 13k VIC, Commo- 
dore 64, TRS-80 16k Extended BASIC, 
TI99/A extended BASIC. $14.95 Tape, 
$19.95 Disk. 

Authors — Aardvark pays the highest com- 
missions in the industry and gives programs 
the widest possible advertising coverage. 
Send a Self Addressed Stamped Envelope 
for our Authors Information Package. 




ZEUS — It's fast and furious as you become 
the WIZARD fighting off the Thurderbolts 
of an angry ZEUS. Your Cone of Cold will 
destroy a thunderbolt and your shield will 
protect you — for a while. This is the best 
and highest speed arcade action we have 
ever done. Difficulty increases in wave after 
wave, providing hours of challenging fun 
and a game that you may never completely 
master. Commodore 64, Vic20 (16k ex- 
pander), and 16k TRS-80 Color Computer. 
(ALL MACHINE CODE!) 
$19.95 tape $24.95 disk. (Tape will not 
transfer to disk. 




SEAWOLFE - ALL MACHINE CODE In 
this high speed arcade game, you lay out 
patterns of torpedoes ahead of the attacking 
PT boats. Requires Joysticks, at least 13k 
RAM, and fast reflexes. Lots of Color and 
Sound. A fun game. Tape or Disk for Vic20, 
Commodore 64, and TRS-80 Color. NOTE: 
tape will not transfer to disk! 
$19.95 Tape - $24.95 Disk. 




ADVENTURES!!! 

The Adventures below are written in BASIC, 
are full featured, fast action, full plotted ad- 
ventures that take 30-50 hours to play. (Ad- 
ventures are interactive fantasies. It's like 
reading a book except that you are the main 
character as you give the computer, com- 
mands like "Look in the Coffin" and "Light 
the torch.") 

Adventuring requires 16k on Sinclair, 
and TRS-80 Color. They require 8k on OSI 
and 13k on VIC-20. Now available for TI99. 
Any Commodore 64. 

$14.95 Tape - $19.95 Disk. 

ESCAPE FROM MARS 

(by Rodger Olsen) 
This ADVENTURE takes place on the RED 
PLANET. You'll have to explore a Martian 
city and deal with possibly hostile aliens to 
survive this one. A good first adventure. 

PYRAMID (by Rodger Olsen) 
This is our most challenging ADVENTURE. 
It is a treasure hunt in a pyramid full of 
problems. Exciting and tough! 
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Dungeons of Death — This is the first D&D 
type game good enough to qualify at Aard- 
vark. This is serious D&D that allows 1 to 6 
players to go on a Dragon Hunting, Monster 
Killing, Dungeon Exploring Quest. Played 
on an on-screen map, you get a choice of 
race and character (Human, Dwarf, Soldier, 
Wizard, etc.), a chance to grow from game 
to game, and a 15 page manual. 16k Ex- 
tended TRS-80 Color, 13k VIC, Commo- 
dore 64. At the normal price for an Adven- 
ture (14.95 tape, $19.95 disk), this is a give- 
away. 

Dealers — We have a line of about 100 origi- 
nal programs for the machines listed here. 
We have High speed Arcades, Quality Ad- 
ventures, Word processors and Business 
Software for Small machines. Better yet, 
we have excellent Dealer support. Phone for 
information. 



Send $1.00 for Complete Catalogue - Please specify system on all orders - $2.00 Shipping Charge on each order 

AARDVARK L.T.D. 
2352 S. Commerce, Walled Lake, Ml 48088 / (313) 669-3110 
Phone Orders Accepted 8:00 a.m. to 4:00 p.m. EST. Mon.-Fri. +m 
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believe that this rather large error might 
have gone undetected by the Model III 
designers. 

If you use Listings 4 and 5 on your 
own computer and enter the values in 
the third column of Table 3, the top of 
the bar should be located about 1/3 of 
the way down from the horizontal line. 
For each of the pauses listed, the cor- 
responding video line should be lighted; 
that is, if you entered 8,005 microsec- 
onds, the bar should begin at the top of 
line 6. It would be interesting if there 
were some variation between different 
computers. This would mean that the 
error is due to a hardware inconsis- 
tency. If, on the other hand, the 38 
microsecond-per-line error is constant 
from one unit to another, it reinforces 
our faith in the precision of TRS-80 
hardware, but still causes us to wonder 
why the error is there. 

While the existence of an error is ap- 
parent, the strength of Listing 4 is that it 
facilitates detecting and correcting the 
error in the programmer's own rou- 
tines. As an experimental psychologist, 
I was unaware of the error until I de- 
signed and tested Listing 4. Now I can 
use this program to calibrate other 
machine-language routines that require 



the precise timing characteristic of 
psychological experimentation. 

Animation techniques are not likely 
to be as demanding as psychological 
research, but it's nice to know that the 
video screen operation is predictable. I 
hope that software designers find the 



technique I described here to be useful 
in developing improved animation 
routines. ■ 

Joseph Dlhopolsky is employed by 
St. John's University, Staten Island, 
NY. Write to him at 27 Wilson St., Port 
Jefferson Station, NY 11776. 



Line 


Predicted Time 


Measured Time 


Difference 


Number 


From RTC (ms) 


From RTC (ms) 


(us-100) 


1 


4.545 


4.407 


38 


2 


5.303 


5.127 


76 


3 


6.061 


5.847 


114 


4 


6.818 


6.566 


152 


5 


7.576 


7.286 


190 


6 


8.333 


8.005 


228 


7 


9.091 


8.725 


266 


8 


9.848 


9.444 


304 


9 


10.606 


10.164 


342 


10 


11.364 


10.884 


380 


i! 


12.121 


\ ] .603 


418 


12 


12.879 


12.323 


456 


13 


13.636 


13.042 


494 


14 


14.394 


13.762 


^32 


15 


15.152 


14.481 


571 


16 


15.909 


15.201 


608 



Table 3. Predicted millisecond pauses for beam calibration at each video line (column 2) do not 
show the electron beam to be in the expected position. When the values in column 3 are entered 

in Program Listing 5, the electron beam appears at the beginning of each video line. Column 4 
lists the differences, in microseconds, between the predicted and measured pauses for each line. 
If you divide the value by the line number, you get a constant of 38 microseconds. 




rhe LOO serial printer interfaces allow an ASCII serial printer 
to be connected to the parallel printer port of the TRS-80 
computers or any other computer which has a Centronics 

compatible parallel primer port. 

Software cpmpatability problems which normally result 
when a serial printer is used are totally eliminated because, 
the computer "thinks" that a parallel printer has been con- 
nected. Special driver programs and changes to the operat- 
ing system are not required with computers designed to 
work with a parallel printer. 

The UPI interfaces are completely self contained and ready 
to use. A DB25 socket mates with the cable from your serial 
printer. The ribbon cable attaches to the parallel printer 
port of your computer. The UPI interfaces convert the out- 
put of your parallel printer port into serial data in both the 
RS232-C and 20 ma. loop formats. Switch selectable features 
in< lude: 



M 



Linefeed after Carriage Return 
Handshake polarity (RS232-C) 
Nulls after Carriage Return 
7 or 8 Data Bits per word 
1 or 2 Stop Bits per word 

• Odd, Even, or, No Parity 

• Baud rates 110 to 9600 

UPI-3VB for TRS-80 I & III 

UPI-2VB for TRS-80 II & 16 

UPI-3VB-6 for TRS-80 I & III with 6 ft. cable 

UPI-2VB-6 for TRS-80 II & 16 with 6 ft. cable 

Models for most other computers available at 
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$149.95 
$149.95 
$159.95 
$159.95 
$159.95 



NEW SERIAL TO PARALLEL INTERFACES 

The SPC SERIAL to PARALLEL interfaces convert serial ASCII 
data into parallel format for use with Centronics type paral- 
lel printers. A DB25 socket accepts serial data from your 
computer. The 36 contact ribbon connector plugs into your 
parallel printer. Can be used to add a second parallel printer 
port to computers which reliably support both serial and 
parallel printers. 

Switch selectable options include the following: 

• 7 or 8 Data Bits per serial word 

• Odd or Even parity for serial word 

• Parity or No parity for serial word 

• 1 or 2 Stop Bits per serial word 

• 300, 600, 1200, 2400, or 4800 BAUD 



SPC-1 as described above 
SPC-CC with DIN plug and cable 
for the TRS-80 Color Computer 



$89.95 
$69.95 



All prices U.S. funds. VISA, MASTER CARD, COD, Purchase 

Orders accepted from schools, major corporations, and 
government agencies. Shipping and Handling on U.S. 
orders $4.00. Ten day return period. Ninety day warranty. 
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BINARY DEVICES 

11560 TIMBERLAKE LANE 

NOBLESVILLE, IN 46060 

(317) 842-5020 -106 



IRS-80 is a trademark of TANDY 




OUR PRICES, SELECTION AND SAME-DAY 
SHIPPING MAKE US COMPETITIVE. 

OUR PEOPLE MAKE US EXPERTS. 



Red Baron. Home of the Nation's Largest Computer Printer Inventory. 





NEC 8023/DMP 85 

Quality and Performance 

•100CPS 
5 unique alphabets 
including Greek 
8 character sizes 
Dot graphics 
Vertical and 
horizontal tabbing 

NEC 8023/DMP 85 \)u3ll 

The Okidata Series 

Advanced, Multifunction Printing 

160/200 CPS 
Correspondence 
quality 
Okigraph dot 
graphics 
Alternate downline 
loadable character set 

Okidata 92 Lists 699 

Okidata 93 (w/Tractor) . .List $1249 CPqII 
Okidata 84 (Parallel) List $1395 pV/dll 

The Buffered Grappler + ™ 

Apple Buffered Graphics Interface 

• 16K Buffer, upgradable to 32K or 64K 

• All Standard Grappler + features, 23 Text and 
Graphics Commands in all 

• Compatible with most popular dot matrix 
printers 

• Automatic memory configuration, self test 

Buffered Grappler + 5239 

Grappler + 5175 

Grappler+ (IDS Color) 5175 

The Bufferboard 5175 

TeleVideo CRT's 

Price, Performance and Reliability 

TeleVideo knows 
top value means top 
features at a low 
price! 

List Discount 

910 7 $ 699 S575 

925 $ 995 $730 

950 $1195 $945 

970 $1495 $Call 






The Epson Series 

High-Quality Printers 

• 160 CPS 

• Dot graphics 

• Proportional 
spacing 

Hi • Super/subscript 
a • Underlining 

,Z • Downloadable 

character sets 

Epson FX series pLSII 

IDS Microprism 480 

Prints like a daisy, priced like a matrix! 

• Correspondence 
quality in a single 
pass 

Dual speed 75, 
110 CPS 
Proportional 
spacing 
Text justification 

IDS Microprism 480 List $799 pl»3II 

Anadex Silent Scribe 

The Quiet Matrix Printer 

• Up to 500 CPS 
■ , • Industrial duty 

• Correspondence 
quality printing 

• Graphics 
List Discount 

Anadex DP-9501A $1,725 $1,325 

Anadex DP-9620A $1,845 $1 ,475 

Anadex 9625A $1,995 $1 ,605 

Anadex WP-6000 (w/Tractor)$3,450 $2,960 

Cables and Accessories 

Custom Printer Cables for Apple, 

Atari, IBM, TRS-80 (and MORE!) $Call 

CCS Apple Serial Interface 

and Cable $150 

Complete Stock of Epson 

Accessories $Call 

Printer Stands: Large $ 99 

Small $ 25 

Printer Ribbons— Most Types $Call 

Signalman Modem $Call 

Hayes Micromodem II $300 



Star Micronics 
Gemini 10/15 




100 CPS 
120 x 144 dot 
graphics 
2.3 K buffer 
Underlining 
Super/subscript 



Gemini 10 . 
Gemini 15. 



m 





IDS Prism 

Affordable Color, High Speed 



200 CPS 

24 x 9 dot matrix 

Color graphics 
i Text justification 
' Proportional 

spacing 



Prism 80 Base List $1 ,299 £f**||| 

Prism 132 Base List $1 ,499 V WOII 

Brother HR-1/DX-15 

Perfect for quality word processing 

Quiet, efficient 
operation for word 
processing 

Brother HR-1 List $11 50 Cpoll 

Brother DX-15 List $ 599 V Odll 

Other Quality Products 
at Red Baron 

Printers List Discount 

NEC Spinwriter RO 

Serial Parallel 7710 $3055 S2500 

Serial 3510 $1895 $1640 

Smith-Corona TP-1 $ 895 $Call 

Monitors 

Amdek Video 300 List $ 249 

Amdek Color 1 List $ 499 $ 355 

Diskettes 

Verbatim Diskettes $ Ca " 

Color Coder Diskette Cases $ 16 




Here's How To Order: 

Phone orders are welcome; same-day ship- 
ment on orders placed before 11:00 a.m. 
Free use of MasterCard and Visa. COD's 
accepted. Personal checks require 2 
weeks clearance. Manufacturer's warranty 
included on all equipment. Prices subject to 
revision. APO/FPO Orders Welcome. 




COMPUTER PRODUCTS 



4501 E. Eisenhower Cir., Anaheim, CA 92807 



National Order Desk: 

(800) 854-8275 

Product Information/ 
Order Inquiries: 

(714) 779-2779 



i/- 275 



BUYER'S GUIDE: SOFTWARE 



Mode 




You might expect Color Computer and Model I/III 
game players, used to sitting out CLOADs or seeing ads 
for 32K games that won't fit their 16K machines, to be 
jealous of the Models 11/12/16. A Model II disk can 
hold 416K; a Model 12 disk, over a megabyte. Someday, 
someone's going to use one to write the War and Peace 
of adventures. 

In the meantime, however, Tandy's business ma- 
chines seem stuck in the 9-to-5 grind. Comparatively few 



companies make games for the 11/12/16; most answered 
80 Micro's questionnaire, while data on others was 
gleaned from ads. Even so, this is one of 80's skimpier 
Buyer's Guides. 

The following programs run under TRSDOS on 64K 
or larger Z80 machines. No one yet makes games for the 
68000 or the Model 16's multi-user Xenix system, 
though workers blasting each others' starships from re- 
mote terminals is a lovely idea. 



Advanced Data Design Inc., 184-08 Tu- 
dor Road, Jamaica Estates, NY 11432, 
212-380-0124. 

Two multi-game disks, with a modi- 
fied Basic interpreter that allows finer 
graphic detail. Game Pack I ($50) fea- 
tures the two-player games Intercept 
(block your opponent's line while di- 
recting your own to avoid obstacles) 
and Reversem (Othello), and the ar- 
cade-style Lunar Lander and Sink the 
Battleship. 

Game Pack II ($70) contains the 
above four, plus Eat'Um (control a 
growing snake at 10 levels of play) and 
Reversem II (you against the computer). 

Adventure International, Box 3435, 
Longwood, FL 32750, 305-862-6917. 

Scott Adams' Adventures 1—12 — 
from Adventureland and Pirate Adven- 
ture through Ghost Town and Golden 
Voyage— on one TRSDOS 2.0 disk, for 
$129.95 (Florida residents add 5 per- 
cent tax). 

B.O.S.S. Computer Group Ltd., 4136 
Burke St., Burnaby, B.C., Canada 
V5H 1B1, 604-430-4612. 

A TRSDOS 2.0/2.0a/2.0b/4.2 disk 
for $82.95 (Canadian), with 20 pro- 
grams. The first 11 are "logic-oriented 
games," ranging from Biorhythm and 
Tic-Tac-Toe to Guillotine (you are a 
French aristocrat trying to talk the peas- 
ants out of beheading you) and Joseph 
(you have been sold to the Egyptians by 
your brothers and must prepare for the 
coming drought). 

The other nine are graphics games: 
Extendapede, Parachutist, Satellite, 
Volleyball, and others like Farmyard 

138 • 80 Micro, August 1983 



(Farmer Brown chasing a chicken) and 
Subway (a Russian spy evading a West- 
ern agent). 

Eberhard Engineering, P.C., 27 Pine 
Ridge Drive, Smithtown, NY 11787, 

516-543-7777. 

To quote the press release, Above In- 
telligence is a collection of "over 25 
sophisticated games, brain teasers, and 
nude printer graphics" (if you have a 
Daisy Wheel II or line printer). The disk 
lets you check your I.Q. or biorhythm, 
rate the men and women in your life, 
play Hangman and Casino, and print 
the ever-popular Snoopy calendar as 
well as pictures of naked ladies. 

"Targeted for use by the sophisticat- 
ed executive," not to mention "ideal 
for children," the package "promotes 
interest by computer-fearing staffs, and 
dramatically reduces the mystique and 
apprehension associated with comput- 
ers." All this for $49.95. 

Kuzel Computer Services, 8654 W. Ber- 
wyn Ave. #3S, Chicago, IE 60656, 
312-399-0273. 

Programmer Kenneth Kuzel offers a 
Star Trek game called The Wrath of 
Ken, as well as 10 other programs. 
Munchman, Galactic Invaders, Meteors 
(an Asteroids game), and Bustout are fa- 
miliar arcade adaptations. Wormy 
obliges you to control a ravenous, 
growing worm; Racer X involves dodg- 
ing cars and potholes. In Quest for 
Adventure, you "recruit an army of 
adventurers and chart an unknown 
land." Traditional gamers can try 
Othello, Chess, or Computer Casino 
(blackjack and slots). 



Each Kuzel game sells for $19.95; any 
two are available for $29.95. 

Maryland Model II Games, 3304 
Carlton Ave., Temple Hills, MD 20748, 
301-894-1274. 

Skydiver, Star Battle, The Wall, 
Space Swarm, and Mayhem— five ar- 
cade-style games for $29.95 (Maryland 
residents add $1.50 sales tax). 

Rizzo Data Systems Corp., 577 Burl- 
ington Road, P.O. Box 458, Bridgeton, 
NJ 08302, 609-451-7979. 

By day a small-business-systems 
dealer, Rizzo doubles as a distributor 
for AI's Adventures 1-12 ($132.95) and 
Interactive Fiction ($52.95) and the two 
ADD Game Packs ($53 and $73). 

In addition, the firm offers Ricochet, 
Star Trek, and Biorhythms ($28 each), 
as well as Lance Micklus' $78 game disk 
(checkers, Starflight, Concentration, 
Treasure Hunt, Banko, and the Dog 
Star Adventure). 

Tycoon ($38) is a Monopoly-like 
game, and Starship/I ($42) lets you save 
the galaxy in real time. Finally, Electro 
Casino ($78) includes blackjack, five- 
card stud, roulette, and horse racing, 
and Handicapping ($103) classifies and 
ranks thoroughbreds. 

Wilson Software Division, 539 Spring- 
house Lane, Camp Hill, PA 17011. 

More gamblers' software: Draw5 
($23.50) is five-card draw poker and 
Stud5 ($18.50) is five-card stud. 
Spread80 ($25) computes pro football 
winners; Pool80 ($20) operates and 
maintains an office football pool; and 
Tout3 ($22.50) handicaps horse races. ■ 




MODEL IV FEATURES ON 
YOUR MODELS I and III 

FOR y 2 THE PRICE 

but only with . . . 

The HOLMES VID-80™ 

80 character video, which includes: 




FEATURES. 

• Easy plug-in installation inside case. 

• Software patches available for many programs. 

• Improved Graphic Resolution. 

• 80x24 or 64x16 selectable modes. 

• CP/M® 2.2, 112K RAM. (CP/M® 3.0 4th quarter '83) 

ALL OF THESE FEATURES FOR 

a SPECIAL price of H99°° 

(Model III) or $599°° (Model I) Installed 

(Includes VX-3 or VX-1, CP/M®, 64 K extended memory, 
Easy Installation Instructions, & MF-2 on Model I only) 

VID 80 PURCHASE ALTERNATIVES 
INCLUDE: 

Model III VX-3 80x24 video only $279.50 

Model! VX-1 80x24 video only $279.50 

CP/M® 2.2 OP system (with VX-3 or VX-1 only) $120.00 

64K RAM Extended Memory $125.00 

NOTE: The VX-1 requires an MF-1 or MF-2 expansion Mainframe. 

ORDERING INFORMATION: 

• ONE YEAR WARRANTY ON ALL PRODUCTS 

• Add shipping and handling 

- MF 1 or MF-2 $9.00 USA. $15.00 Canada & $30.00 Overseas 

- Other products add $5.00 U.S. & Canada all others add 15".. 

• Prices subject to change without notice 

• Payment by cashiers check, money order, cash. Visa or Mastercharge - Personal checks 
subject to 3 week clearance. 
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Double Density Adaptor DX-1D (Model I) 
Disk Controller DX-2D (Model I requires MF-1 
Disk Controller w/clock DX-3DC (Model III) 
Disk Controller w/o clock DX-3D (Model III) 
Disk Controller w/clock DX-4DC (Model IV) 



iters 

$129.00 
$149.95 
$189.95 
$149.95 
$189.95 



it] 



CUT COMPUTER OPERATION TIME IN HALF 



Sprinter II for Model I 

Sprinter III for Model III 

Sprinter KX 6MHz for Mod. Ill and IV 



$99.50 

$99 .50 
5147.50 



Internal inslc 

Model I - IM-2 (W/32K RAM) 
PMC-80/81 IM-2P (W/32K RAM) 



$139.50 
$99.50 



OTHER PERS 

Expansion Mainframe-MF-1 (For 4 boards) $150.00 

Expansion Mainframe-MF-2 (For 2 boards) $99.50 

Prowriter (dot matrix printer) $495.00 
Starwriter (daisy wheel printer) $1,495.00 
Color coded diskettes (box 10) 96 TPI 

SSDD $29.95 DSDD $37.95 

Epson Printer Driver $24.95 
Drive O Package w/DX-3D, drive, power supply $599.00 

RS232 (RX-232) $119.50 

RS232 W./32K RAM (RX-232M) $199.50 
Expansion Interface-Mod I (Includes DX-2D, 

RS232 w/32K RAM, MF-1) $429.00 



\bout HOLMES ENGINEERING, INC. 

All Holmes Products come complete with easy to follow installation and trouble shooting guides and our technical group is available 
for support as required. 
- Installation can be performed with out system modifications, soldering and little or no technical background. 

MORE DETAILED PRODUCT INFORMATION IS AVAILABLE UPON REQUEST. Send a self-addressed, stamped envelope or 
call today for a FREE full product brochure. 

QUALITY IS BUILT INTO HOLMES PRODUCTS FROM THE START - ALL BOARDS ARE PRETESTED AND PROPERLY 
BURNED IN 

RS80 is a registered trademark of Tandy Corp., CP/M is a registered trademark of Digital Research Corp. 



f 




MES 



ENGINEERING, INC. 

5175 Green Pine Drive 
Murray, Utah 84107 ^ 153 
(801) 261-5652 



VISA' 



DISTRIBUTORS: 

Bi-Tech, NY. (800) 645-116S / Level IV Products. Ml (800) 521 3305 / Soft Sector 
Marketing, MI (800) 521-5504 , Digital Distributing, TX (214) 330 1332 / M&M Micro 
Mart, Quebec, Canada (514)731-9486 




PLEASE CALL OH WRITE F 

T YOU. 

EALER INQUIRIES INVITI D' 



^See List of Advertisers on Page 323 
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Put 64K CP/M 2.2 in your 

TRS-80 Model III and tap into 
2,000 business prog« 



Now you can run programs such 
as WordStar, dBASE II, 
SuperCalc, MailMerge and vir- 
tually thousands of other CP/M- 
based programs on your TRS-80 
Model III. 

CP/M 2.2 is the industry stan- 
dard operating system that gives 
you access right now to over 
2,000 off-the-shelf business pro- 
grams. 

Our plug-in Shuffleboard 111 
comes with 16K of RAM, giving 
your Model III the power of full 
64K CP/M 2.2 without inter- 
ference of the ROM or video 
memory. In fact, the Shuffleboard 
will appear transparent in the 
TRS-80 mode and will not inter- 
fere with any DOS operation. 

READ and WRITE Osborne, 
Xerox and IBM persona! 
computer software plus/ many 
more popular formats. 

Unfortunately, there is no stan- 
dardized CP/M format for 5% " 
diskettes. But we have developed 
a way to READ/WRITE and RUN 
standard programs under the 
following single-sided formats: 
Osborne 1 S/D, Xerox 820 S/D, 
IBM PC* D/D for CP/M 86 only, 
Superbrain D/D, Kapro II D/D, HP 
125 D/D and TeleVideo D/D. 

'Will Read and Write Only. 

Easy plug-in installation. 

It's so simple. The Shuffleboard 
III plugs into two existing sockets 
inside your Model III. There are no 
permanent modifications, no cut 
traces and no soldering. You'll be 
up and running 
in minutes. 




Mew Products. 

80 x 24 VIDEO BOARD: Features 
dual intensity screen, programmable 
cursor control for block, underline & 
blink rate, on-board bell with audible 
keyclick, battery-operated real time 
calendar/clock, full ASCII character 
set plus 256 special character 
graphics, dual RS-232 outputs and 
composite video output. 

FLOPPY DISK CONTROLLER: Now 
you can access 5'/<» " and 8" floppy 
disk drives in any combination up to 
4 drives of S/D density, S/D sided. 
Tap into a wealth of CP/M software 
which comes on 8" IBM 3740 format 
or Pickles & Trout CP/M for the Model 
II. 

SOFTWARE: Additional CP/M soft- 
ware programs are available. Call or 
write for details. 




OEM and DEALER inquiries 
invited. 



The Shuffleboard III comes fully 
burned-in and tested complete 
with 64K CP/M 2.2 and MBASIC 
80 interpreter, plus software 
manuals and a first class user's 
manual — with a 1-year limited 
warranty and 15-day no-risk free 
trial — for only $299. 

See the Shuffleboard III at 
your dealer's now. 

Once you see what the Shuffle- 
board can do for your Model III 
you'll want one at once. If your 
dealer does not yet stock the 
Shuffleboard have him give us a 
call. Or send check, money order, 
VISA or MASTERCARD number 
(sorry, no COD's) plus $5 shipping 
per board ($17 outside the CISA & 
Canada)* directly to the address 
below. Cal. residents please add 
sales tax. Credit card purchases 
can be phoned in directly and 
we'll ship from stock. 
(415) 483-1008 

*Air mail shipments to Canada & all other 
countries. 



m 



m 



memory 
merchant 



14666 Doolittle Drive San Leandro, CA 94577 
(415) 483-1008 



WordStar & MailMerge are trademarks of MicroPro. 
SuperCalc is a trademark of SORCIM. 



dBASE II is a trademark of AshtonTate. 
CP/M is a trademark of Digital Research. 



TRS-80 is a trademark of Tandy Corporation. 
IBM is a trademark of IBM Corporation. 



REVIEW 




by Jim Heid 




axi Mail provides its own DOS to help your 
Model III manage a mailing list, but this is 
a system that requires time and patience. 



• *• 

Maxi Mail 

The Business Division 

P.O. Box 3435 

Longwood, FL 32750 

48K Model III 

Two disk drives, printer 

$99.95 

No, Maxi Mail is not the misspelled 
name of a new body-building magazine. 
It's a mailing list management system 
for the Model III, offered by the busi- 
ness software arm of Adventure Inter- 
national. Maxi Mail is an easy-to-use, 
well-documented system, but some of 
its functions take maxi-time. 



System Components 

The Maxi Mail software is a combi- 
nation of machine-language programs 
and Basic programs with machine- 
language subroutines. The system 
comes on one double-density disk, 
packaged with a 50-page manual in a 7- 
by 9-inch binder. 

The software includes a disk operat- 
ing system (DOS), a scaled-down ver- 
sion of DOSPLUS called TDOS. It in- 
cludes Format and Back-up utilities, 
and supports the seven library com- 
mands listed in Table 1 . (A library is a 
list of commands that lets you control 
the DOS and manipulate your disk 
files.) 

The DOSPLUS people mysteriously 



Maxi Mail Main Menu 


Code 


Function 


1 

2 
3 
4 
5 
6 


— Add New Records 

— Edit Existing Records 

— Print Options 

— Text Merge 

— Create New Mailing List 

— End Program 


Enter the function code desired 


Fig. l 


. Maxi Mail's Main Menu 



chose the word Cat (for catalog) as the 
command to display the directory. 
Most TRS-80 users are used to typing 
Dir for a directory display. The Cat 
command displays file names only; if 
you need more information, such as 
free disk space or file size, you must 
read the directory with a DOSPLUS 3.3 
or 3.4 system disk. 

Because DOSPLUS is a reliable, 
time-tested operating system, most 
users will be content with its scaled- 
down version. If you strongly prefer 
another DOS, you're on your own. 

The manual provides no information 
on interfacing Maxi Mail with other 
operating systems. In fact, it states, 
". . .there is no need to transfer Maxi 
Mail to another DOS." Owners of 
souped-up TRS-80s with nonstandard 
disk drives might disagree. 

The manual says nothing about high- 
speed CPU support or about the types 
of drives TDOS supports. If you have a 
modified CPU machine or nonstandard 
drives (8-inch, for example), check with 
The Business Division before buying 
Maxi Mail. 

Using Maxi Mail 

Maxi Mail executes automatically 
when you press reset. A title page ap- 
pears while the program loads, and the 
main menu appears after a few seconds 
(see Fig. 1). Before you can enter names 
and addresses, you must initialize a data 
disk by selecting option 5, "Create New 
Mailing List." 

This option creates a series of data 
disk files that hold your mailing list. It 
also initializes a few data files on the 
system disk. You have several opportu- 
nities to abort the initialization process 
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if, for example, you insert a disk you 
don't want to use. 

Maxi Mail requires a separate system 
disk for each of your mailing lists. If 
you want to keep three separate lists — 
one for past customers, one for present 
customers, and one for prospective cus- 
tomers — you must have three system 
disks, one for each list. 

This doubles the number of back-up 
disks required, since you have to dupli- 



cate each system disk. To back up the 
three lists above, you need six blank 
disks — one for each data disk and one 
for each system disk. This can cost you 
a lot of blank disks. 

The same requirement also invites 
disaster if you mistakenly use a system 
disk in combination with the wrong 
data disk. To see what would happen, I 
set up a mailing list and entered 55 sam- 
ple records. (A record contains name 



Field Information 

Thirteen fields per record; names and lengths as follows: 
Last name: 28 
First name: 28 
Address: 26 
City: 15 

State/Country: 6 
Zip code: 9 

Telephone area code: 3 
Telephone exchange: 3 
Telephone number: 4 
Numeric code tt\: 4 
Numeric code tfl: 4 
Numeric code "3: 4 
Alpha code: 3 

The user cannot change Held lengths. He can change "Last name" and 
"First name" fields to "Company name" and "Attention," respective- 
ly. Other field names are permanent. 

Sorting 

Records are kept in /.ip code order, and in alphabetical order within zip 
code. No other sorting is possible. 

Data File Specifications 

Maximum size limited only by tree disk space. 
Holds approximately 1,000 records per disk. 
Separate system disk required for each mailing list. 

Label Printing 

Capable of printing up to four labels across. 
Multiple search criteria allowed. 
Label size is user-definable. 
Capable of printing summaries. 

Form Letter Generation 

Lets you supply data from keyboard during printing session. 
Printing parameters are user definable. 

Multiple search criteria allowed. 

Separate word processor required that can save in ASCII format. 

DOS Overview 

1 DOS (scaled-down version of DOSP1 US). 

Supports 5-inch, single- or double-density, 35-96 track drives. 

Utilities include Back-up and Format. 

Description of Library Commands 

Auto— activates/deactivates program loading upon reset. 
Cat — displays disk contents. 

Con fig — sets track-to-track stepping rate (6, 12, 20, 30, or 40 milli- 
seconds). 

Copy— duplicates files from one disk to another. 
Kill- -deletes tiles. 
Rename — changes a file's name. 

Verify — enables read-after-write feature to verify accuracy of disk 
writes. 

Table 1. Maxi Mail Specifications 



and address information for one per- 
son — like one card in a Rolodex file.) 

Using the same system disk, I set up 
another list and entered eight sample 
records. Everything worked properly. 
When I went back to add names to the 
first list, however, the system forgot 
there were 55 records. It stored only 
nine records, and sent the other 46 into 
magnetic oblivion. 

Maxi Mail needs a test to warn you if 
you try to use a bad disk combination. 
Careful users will label their disks ex- 
plicitly. 

Adding Records 

Adding records to your list is easy. 
When you select option 1, "Add New 
Records," the screen clears and a data- 
entry form appears (see Fig. 2). The 
program also displays the total number 
of records stored in your list. 

Each record contains 13 fields. A 
field is comparable to a single line on 
the Rolodex card; each field contains a 
line of data pertaining to the record. 
The first two fields are "Last Name" 
and "First Name." You can replace 
these labels with "Company Name" 
and "Attention" by typing @ and 
pressing enter. 

"Telephone Number" actually com- 
prises three fields: area code, exchange, 
and number. The telephone number 
fields accept numbers only. This is a 
minor inconvenience if you refer to 
telephone exchanges by letter (such as 
KL5-1212). Maxi Mail does not let you 
type letters or other characters into the 
three numeric-code fields either. 

Maxi Mail's code fields hold only 
three alphanumeric characters and 12 
numeric characters. If you need to store 
more data with each record, or if you 
prefer to spell out data rather than code 
it into numeric fields, you might want a 
mailing list system that allows larger 
code fields or a data-base manager that 
lets you create the format to store your 
information. 

The periods in each field represent 
possible characters. Enter your data one 
field at a time; the field you are working 
on is highlighted with small graphics 
squares instead of periods. To leave a 
field blank, simply press enter. 

When you've entered a complete rec- 
ord, the program asks you if it's cor- 
rect. If you answer no, it asks you for 
the number of the incorrect field. After 
you correct that field, Maxi Mail again 
asks you if the record is correct. By 
answering no and providing another 
field number, you can correct any in- 
correct data. 

This method of field correction is 
common in Basic mailing list programs. 
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It's not as easy to use as a screen editor 

with a movable cursor, but it's adequate. 

Once your record is correct, the pro- 
gram stores it on the system disk, clears 
the screen, and displays another data- 
entry form. As you type in the informa- 
tion for each field, the bottom of the 
screen displays your entry for that field 
in the last record. 

By pressing clear, you can assign the 
data at the bottom of the screen to the 
current field without retyping it. 

Assume you typed the last name Kel- 
ly into the first record. You arc now at 
the "Last Name" field of the next 



record. The bottom of the screen 

displays the message "Press CLEAR if 
LAST NAME: KELLY". If you press 
clear, the name Kelly appears in the new 
"Last Name" field. This feature is 
valuable when many of your records 
share the same data. 

When you finish a data-entry session, 
Maxi Mail begins the file insertion 
routine, a lengthy process in which the 
program sorts and transfers your data 
from the system disk to the data disk. It 
takes the system almost four minutes to 
transfer about 25 records. If you've 
added only one name, storing still takes 



Data Entry Function 



Total Records 
Filed - 1 1 



1. LAST NAME: 

2. FIRST NAME: 

3. ADDRESS: 

4. CITY: 

5. STATE/COUNTRY: 

6. ZIP CODE: 

7. TELEPHONE NUMBER: 

10. NUMERIC CODE #1: 

11. NUMERIC CODE #2: 

12. NUMERIC CODE #3: 

13. ALPHA CODE: 



Fig. 2. Data-entry Form 



almost a minute. It might be more con- 
venient to wait until you have a number 
of records to add. 

Editing 

Maxi Mail's editing features are not 
as flexible as some other mailing lists. 
To edit or delete a record, you must 
supply the last name and the zip code 
under which you stored the record. 

You can search for up to 100 dif- 
ferent names and zips at a time, but the 
program does not permit other search 
criteria. You cannot search for a record 
by state, phone number, or any other 
field, for instance. 

If you do not know a record's zip 
code, you must go to a different part of 
the program to display an abbreviated 
record listing of your mailing list, then 
go back to edit to search for the records. 
This is a significant restriction, especial- 
ly if you have a large mailing list. 

It would be easier to locate a record 
by searching any field you wanted. It 
would also be convenient to browse 
through your mailing list one record at a 
time, but Maxi Mail doesn't let you. 

Once you supply a last name and zip 
code, the system searches your data disk 
for the record. If Maxi Mail doesn't 
find the record, it simply returns to its 






** LEVEL IV MEANS FOUR LEVELS OF EXCELLENCE I* 

• QUALITY yVBLUE ^/SERVICE /SUPPORT 




PMTttM h 
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BUILDING A PREMIUM GRADE MICROCOMPUTER IS A CLAIM FEW COMPANIES CAN 
MAKE. AND EVEN FEWER CAN BACKUP, WE DO IT EVERY DAY. EACH LEVEL IV 
COMPUTER SY9TEM IS CAREFULLY A9SEMBLED FROM PRE-TESTED COMPONENTS OF 
THE HIGHEST DUALITY. AND TESTED FOR PERFORMANCE TO A LEVEL FAR ABOVE 
THAT FOR WHICH IT MAS DESIGNED. AFTER BURN-IN. EACH UNIT IS 
DELIVERED WITH THE FAMOUS LEVEL IV 90 DAY LIMITED, PARTS AND LABOR 
WARRANTY (COPIES AVAILABLE ON REQUEST). 

A LEVEL IV COMPUTER IS DE8IGNED TO BE COMPLETELY COMPATIBLE WITH THE 

MOUNTAIN OF SOFTWARE AND HARDWARE READILY AVAILABLE FOR IT. ANY ITEM 

THAT WORKS ON OR ATTACHES TO, A STANDARD R/S UNIT WILL FUNCTION WITH 
OUR VERSION. 

CONSIDER THE8E 0PTI0N3 TO ENHANCE YOUR COMPUTERi 

I ) . . 40 AND 80 TRACK SINGLE AND DOUBLE HEAD DISK DRIVES 

2) .. WINCHESTER DRIVES 6.4 MEG THRU 31 MEG 

3).. CPU SPEED-UP MODS. MORE THAN DOUBLE YOUR SPEED 

4).. 80 COLUMN, 24 LINE DISPLAY, AND CP/M FOR MOD3 

3>..M0D3 AND MOD4 D I 8K UP-GRADE AND MEMORY KITS 

BUILDING A MOD3 OR M0D4 WITH THE ADOVC CAPABILITIES i:FRTAINLY MAKES 
IT A PREMIUM GRADE UN 1 ' , BUT OUR M08T IMPORTANT PRODUCT IS 
nCTKR-THE-SALE-SERVICE-AND-BUPPORT. 



NOW FOR THE 8URPRI8E, BA8E PRICE FOR OUR 64K M0D4 IS ONLY 
REMEMBER LEVEL IV MEANS "QUALITY "VALUE "SERVICE "SUPPORT 
SOME MAY GET CLOSE TO OU" PRICES. BUT NONE WILL MATCH 



CALL FOR OUR CURRENT LOW DISCOUNT PRICING 
IN-STATE C3133 S3S-6200 OTHERS 800-S21-330S 
ACCEPT PAYMENTS BY VISA M/C CHECK COD 
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3 COHPANY STORE LOCATIONS! 

MAIL t> PHONE ORDER CENTER 
32429 SCHOOLCRAFT ROAD 
LIVONIA, HICHISAN 40130 

COMPUTER SALES CENTER 
182 NORTH 20TM STREET 
BATTLE CREEK, HICHISAN 

PULL LINE R/S SALES CENTER 
134 SOUTH FRONT STREET 
DOHABIAC, HICHISAN 49047 





DJNE-5TDF 
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■ See List of Advertisers on Page 323 
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main menu. Some kind of "record not 
found" message would be helpful, 
especially to novice users. 

If the program finds the record, it ap- 
pears on the screen and you have the 
opportunity to delete it, edit it, display 
the next matching record, or search for 
the next name and zip you entered. If 
you delete the record, Maxi Mail ma- 
nipulates its data files for a few seconds, 
then returns to the main menu. 

If you choose to edit the record, the 
program asks which line you want to 
change. The field correction procedure 
is identical to that in the "Add New 
Names" section. A screen editor with 
movable cursor would be easier to use, 
but the line-oriented method serves its 
purpose. 

The edit mode is also slow. It took 
about a minute for Maxi Mail to search 
through my 55-record mailing list. If 
you enter a name or zip code incorrect- 
ly, you have to wait while the system 
searches in vain for it. Pressing break 
stops the program and puts you in 
Basic's command mode, with nothing 
but open files and a "Break in line 
XXX" message to comfort you. 

If you change the last name or the zip 
code of a record, the file insertion rou- 
tine forces you to wait even longer. I 
changed the last name of one entry and 
had to wait over a minute. And the de- 
lays get longer as your mailing list 
grows. 

Printing Your List 

Maxi Mail performs well when print- 
ing. You can print up to four labels per 
line, and you can change the default val- 
ues for margins and number of blank 
lines between labels. If you change the 
default values, the program stores the 
new values on the system disk, eliminat- 



ing the need to change them in the 
future. 

Maxi Mail supports printers with up 
to 132 columns. The system does not let 
you send control codes to the printer. 
This is a limitation if you have a dot- 
matrix printer with several print options. 

You can print labels for your entire 
mailing list, or only for those records 
that match certain criteria. If you select 
the latter option, you must tell Maxi 
Mail which fields to search, and what to 
search for. 

You can specify up to ten search 
fields, designating each search as ex- 
clusive or nonexclusive. An exclusive 
search looks for and prints records that 
match every parameter you specify; a 
nonexclusive search prints records that 
meet one or more of the parameters. 

Telling Maxi Mail what to look for is 
easy. Type in the number next to the 
name of the field you want to search. 
Maxi Mail then asks if the search is to be 
exclusive or nonexclusive. 

After you answer, a data-entry line of 
the appropriate length appears, and the 
system asks you for the search's begin- 
ning and ending range. If you want to 
print labels for all zip codes starting 
with zero, for example, you specify 
00000 as the beginning range, and 10000 
as the ending range. 

Version A.O contains a bug in its 
record search routine that crashes the 
program if you try to search by the area 
code or the area code and exchange 
fields. The crash results in no data loss, 
but it does rob you of two valuable 
search options. 

Another search routine bug prohibits 
you from typing more than 1 1 charac- 
ters when searching by the city field, 
which is 15 characters long. You can't 
search for a city with a name longer 



than 11 characters. 

The Business Division is aware of 
these bugs, and future versions of Maxi 
Mail will not contain them. If you've 
already bought version A.O, list the pro- 
gram called PRINT/BAS. If its version 
number is A.l, return your copy of 
Maxi Mail for a corrected version. 

Summaries and Form Letters 

Maxi Mail also prints your mailing 
list in summary form (column form in- 
stead of mailing-label format). You can 
print a complete record listing (see Fig. 
3), or an abbreviated record listing (see 
Fig. 4). You can also display the abbre- 
viated record listing on the screen. 

Maxi Mail's best feature, text merge, 
lets you print "personal" form letters. 
First, you write a letter that contains 
code words called field labels. These tell 
Maxi Mail that you want to insert some- 
thing from your mailing list at that 
point in the letter. 

Your letter can also contain keyboard 
variables that let you supply data from 
the keyboard during a printing session. 
Using field labels and keyboard vari- 
ables, you can print what looks like a 
personal letter for each entry in your 
mailing list, or for only those entries 
that meet your search criteria. 

Maxi Mail has a more cumbersome 
text merge feature than some other sys- 
tems. Printing letters for all records (no 
search criteria) requires that you follow 
this maze of steps and prompts: 

• clear file area (by selecting an option 
from a menu) 

• load the file that contains your letter 

• compile the file (Maxi Mail checks 
your letter and makes sure all field 
labels are spelled correctly) 

• specify permanent (stays the same for 
each letter) or temporary (changes from 



Complete Record Listing 


Total Records - 5 


Disk No 


! 


Page 1 


Zip Code * Company Name/Last Name Attention: /First Name 






Telephone # 


Slree! Address 


City St/Cty 


Code #1 


Code #2 


Code #3 Alpha 


09876 Johnson 


Sam 






987-654-3210 


155 Any Road 


Nowhere Nil 


3 


351 


3 def 


12345 Smith 


Sam 






123-456-0789 


123 Main St. 


Anytown PA 


3 


351 


3 ABC 


34232 Kelly 


Marvellen 






331-555-2212 


531 Street St. 


Byteville GA 


B 





1 bug 


34333 Howard 


Curly 






221-543-1242 


123 Fiction Blvd. 


Anywhere AK 


1 





ag 


31992 Johnson 


Amy 






322-544-3456 


1556 34th St., Apt. 3E 


Notown FL 


32 


2 


2267 ga 




Fig. 3. Complete Record Listing 
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(Including 2 Diskettes) 



THE NEW AMDISK-III 
MODEL III ADD-ON DRIVE 



The AMDISK-III Micro-floppy disk system is an 
engineering breakthrough in disk size, storage 
capacity, media protection and user conven- 
ience. It's fully compatible with your TRS-80 
Model-Ill*.® Enjoy a full 736 KBytef (formatted) 
storage capability and the extra convenience of 
the new 3" hard-plastic encased diskettes. They 
fit into a shirt pocket and are easy to mail, too. 



The AMDISK-III drive system is ruggedly con- 
structed for years of trouble-free operation and is 
backed with our 90 day warranty on parts and 
labor. 

Just circle the reader service number to receive 
full technical details. 

* TRS-80 and TRS-DOS are registered trademarks of Tandy 
Corporation 
t/Requires recording on both sides. 



DEALER INQUIRIES 
INVITED 



2201 Lively Blvd. • Elk Grove Village. IL 60007 
(312)364-1180 TLX: 25-4786 



CORR 



REGIONAL OFFICES: Calif. (71 4) 662-3949 • Texas (81 7) 498-2334 

Amdek . . . your guide to innovative computing! ^no 



page to page) keyboard variable 

• start printing, or change printing 

parameters if desired. 

All these steps are probably necessary 
to support Maxi Mail's flexible text 
merge features. If your form letter re- 
quirements are relatively simple, how- 
ever, they might be too much trouble. 

Documentation and Support 

The biggest error in Maxi Mail's doc- 
umentation was its instruction to press 
shift and clear simultaneously to print 
whatever is on the screen. The proper 
key sequence is shift, down arrow, and 
asterisk. Otherwise, the documentation 
has no major errors or omissions. 

The writing style is clear, and many 
sample screens guide the inexperienced 



user. The manual is attractively de- 
signed and printed on thick, durable 
stock. It's divided into eight tabbed sec- 
tions, with an index and a two-page 
table of contents. Nine appendices 
cover such subjects as disk formatting 
and back-up, text formatting com- 
mands, and disk operating system use. 

The Business Division prefers that 
you write them with your troubles, but 
according to the manual, they take 
phone calls "if you really get des- 
perate." (I'm not sure how they can tell 
if you're desperate. Maybe they mea- 
sure the quiver in your voice.) 

Although the manual doesn't say so, 
The Business Division will replace a 
damaged master disk at no cost, provid- 
ed you're a registered owner and you 



Abbreviated Record Listing 


Total Records = 5 


Disk No 


1 Page 1 


Zip Code *Company Name/Last Name Atten/First Name 


St/Ctry Cd#l Cd#2 Cd#3 Alpha 


09876 Johnson 


Sam 


NH 


3 351 3 def 


12345 Smith 


Sam 


PA 


3 351 3 ABC 


34232 Kelly 


Maryellen 


GA 


33 1 bug 


34333 Howard 


Curly 


AK 


1 ag 


34992 Johnson 


Amy 


FL 


32 2 2267 ga 




Fig. 4. Abbreviated Record Listing 





send in the original disk. The company 
replaces any bug-containing programs 
to registered owners free of charge. 

Pros and Cons 

Maxi Mail is a solid, reliable mailing 
list manager. Inexperienced users 
should have little trouble with it, al- 
though the complex text merge proce- 
dure might frighten some. 

The system's letter-printing capabili- 
ties are very powerful and its search 
routines are flexible enough for most 
mailing applications. Its documentation 
is clear. Adventure International is a 
reputable company that has been in 
business for several years. 

Maxi Mail is, however, painfully 
slow at times. Its editing features are in- 
convenient, partly because editing is 
done line by line instead of with a screen 
editor, but mostly because you have to 
supply the zip code with the last name 
of the record you want to edit. 

As mailing list managers go, Maxi 
Mail is in the middle ground. For most 
applications, you could do worse, but 
you could also do better. ■ 

Jim Held is a technical editor for 
Wayne Green Books Inc. Contact him 
c/o 80 Micro. 





SAVE MONEY' 

Increase your 

computer's productivity "** s 

The INTERSTELLAR DRIVE is a high performance 
data storage subsystem with independent power 
supply, battery backup, and error detection. It has 
256KB to 1 Megabyte of solid state memory integrated 
to perform with your operating system. 



Reader Service card. 

Save valuable time! 

5 to 50 times faster 
performance than floppy disks 
and Winchester drives 

PION'S INTERSTELLAR DRIVE is designed for use with a 
family of interfaces and software packages. Currently avail- 
able are interfaces Tor IBM, SI 00, TRS80, Apple, SS50, and 
most Z80 uP, and software for most popular operating systems. 
Additional interfaces are continually being developed for the 
most popular computers. 

BaSIC Price for 256KB Unit [Includes Interface and software] 

S '1 095 pIus tax (w ^ ere applicable) and shipping 

" Vis,:: ;md Master Caul accepted. 



PION,INC. - 490 Tel.(6 17)923-8009 

101 R Walnut St.,Watertown, MA 02 172 

TRS80 trademark of Tandy Corp. Apple trademark of Apple Computers 

Interstellar Drive trademark of PION, Inc. 
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What 
more can 
I do?" 





Your computer can @, your first 

probably do more for program 

you than you originally 

thought. And learning 

to expand its capabilities 

is as easy as reading a 

good book. 

SYBEX is the pioneer 
of computer book pub- 
lishing, offering over 60 
titles developed for 
beginners through ad- 
vanced. They are so well written and easy to 
understand that virtually anyone can learn to 
operate a computer in a matter of hours. 

The Foolproof Guide 
toSCRIPSITWord 
Processing by Jeff 
Berner C$11.95) 
The ins and outs of 
SCRIPSIT,theTRS-80 
word processing pro- 
gram are explained 
here in witty, conver- 
sational style. 




Your First BASIC Program by Rodnay Zaks 

($9.95) At last, a book designed for the first- 
time computer user who wants to learn how 
to program. It is simply written, educational, 
beautifully illustrated and fun to read. 
Your Color Computer by Doug Mosher 
($1 2.95) This is an introduction to your color 
computer, complete with cartoons, dia- 
grams, photographs and a BASIC thesaurus 
and command reference section. Descrip- 
tions of available software and peripherals 
make this an ideal guide for those who aren't 
interested in programming, but who want to 
use their computers right away. 
Mastering VisiCalc' by Douglas Hergert 
C$11.95) Beginning with 
a description of what 
VisiCalc can do for you, 
this book provides step- 
by-step explanations of 
each feature. It tells you 
how to get the most 
from your "electronic 
spreadsheet',' for tasks 
ranging from planning 





to examining projection 
scenarios. 

SYBEX books are avail- 
able at bookstores and 
computer stores every- 
where. For a free catalog, 
mail the coupon or call 
TOLL-FREE 800/227- 
2346. Prices subject to 
change without notice. 



Send me: □ A free catalog 
D 0-098 The Foolproof Guide to SCPIPSIT Word 
Processing $11 95 

□ 0-092 Your First BASIC Program $9.95 

□ 0-097 Your Color Computer $12.95 

□ 0-090 Mastering VisiCalc" $1 1 .95 

Add: D$2.00/BookUPS □ 6&% Sales Tax CA Res. 

□ $1 2 00/Book Overseas Mail 
Charge my: 

□ VISA D MasterCard □ American Express 

Card # Exp. Date 

Total Amount Enclosed $ 

Signature 

Name 

Add ress 

City/State/Zip 

Mail to: SYBEX Inc., 2344 Sixth St., Berkeley, CA 94710 
©1983 SYBEX. Inc. 17-4A 



"I 




SYBEXCOMPUTER BOOKS 
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GAME 




by Byron Lott 



hen you want to use your Model II for some- 
thing other than business applications, try 
these 10 Las Vegas casino-style games. 




Most Model II game articles begin 
with lines like: "So you think the Model 
II is all business and no play?" Ac- 
tually, not only does the II like a little 
relaxation now and then, it even has a 
wild side. Witness these 10 programs, 
ready for anything from a charity 
Las Vegas Night to the seediest gam- 



bling den. 

The programs, One- Armed Bandit, 
Craps, Big Six, Blackjack, Roulette, 
Keno, Draw Poker, Faro, Baccarat, 
and Four-Card Monte, run under 
Model II Disk Basic. They use the 
limited graphics capability of the Model 
II, along with simple subroutines, to 



Line 


Function 


10-90 


Introduction 


100-270 


Game rules 


280 290 


Slot machine graphics 


300-330 


Start play 


340-540 


Wheel random selection display and scoring 


550-600 


Wheel graphics selection subroutines 


610 650 


Play termination 


660-680 


Machine outline graphics subroutine 


690 


Wheel outline subroutine 


700 


Wheel rotation subroutine 


710 


Handles operate subroutine 


720 


Graphics blanking subroutine 




Table 1. One- Armed Bandit 



provide casino-style play and scoring. 

One-Armed Bandit 

This program provides an interesting 
application of Model II graphics to 
simulate the typical casino slot machine. 

The random display of the 20-sided 
wheel is a little unusual. It is the result 
of the Rl , R2, and R3 statements in line 
340. These are evaluated in lines 
550-600 for display and scoring input. 
Scoring occurs in lines 380-470. 

Roulette 

In this roulette program, bet selection 
(in line 240) requires entry of a letter to 
identify the desired bet. This letter en- 
ters and posts the bet on the playing 
board display, just as a stack of chips 
would be placed. 

When you've placed all the bets, press 
enter to start the wheel spinning and 



The Key Box 

Model II 
32KRAM 

Basic 



148 • 80 Micro, August 1983 




AEROCOMP DISK DRIVES 

External drives for TRS80 Mod. I or III, IBM PC & Tl 
99/4A are complete with power supply & enclosure. 
MPI or Tandon. 

40 Track Single Side $199 

40 Track SS "Flippy" 239 

40 Track Dual Head 279 

80 Track SS 299 

80 Track SS "Flippy" 329 

80 (rack Dual Head 379 

APPLE compatible w/cable (Shugart) 269 

APPLE compatible disk controller 89 



TRS80 Color Computer Drives 

First Drive $399 

Includes controller, cable (2-D) 
and book 

Additional Drives $1 99 



*AII New! Half-High Drives 
Available Now. Call For Prices. 
BARE DRIVES (MPI or TANDON) 

Internal drives forTRS80 Mod. Ill, IBM PC &TI 99/41 

(controller required) 

40 Track SS $169 

49 [rack Dual Head 249 

80 Track SS 269 

80 Track Dual Head 339 

8 inch Single Side Fhinline 399 

8 inch Dual Head Thinline 499 

MODEL III DRIVES 

Complete internal drive kits with 40 track drives, disk 

controller, power supply, all hardware & cables. 

Drive Kit Only (no drives) $1 99 

One Drive System Kit 369 

Two Drive System Kit 539 

MODEL I DOUBLE DENSITY 

CONTROLLER 

AEROCOMP "DDC" $119 

AEROCOMP "DDC" w/LDOS . . . 169 

AEROCOMP "DOS' 1 49 

(Double dens, data separator for Percom 
Doubier, LNDoubler or Superbrain 

AEROCOMP "SDS" 29 

(Single dens, data separator) 

MISCELLANEOUS DRIVE STUFF 

TRSDOS 2.3 Disk & Manual $20 

LDOS (Mod. I or III) 119 

NEWDOS/80, 2.0 (Mod. I or III) 129 

D0SPLUS3.5 129 

Diskettes (10 in library box) 23 

MX80 Ribbons S9 

Drive Power Supply & Enclosure (5.25") ... 59 

2-Drive cable 24 

4-Dnve cable 34 

Extender cable 13 

Totai Acess 1983 
^■See List of Advertisers on Page 323 



64KCP/M 2.2, two serial ports 
BASIC - WordStar - Logicalc 
BaZic - Correct- IT 

12" Green Video 80 x 25 
Double Density (200 K) Drive 



ACE1000 



Uses APPLE Software 
Call, It nay be 
cheaper by now 



$999 



brother ! Ep soN fx-so 



EM-1 Electronic 
Typewriter 
Choose 
Eithei One 



TRS-80 SPECIAL EQUIPMENT 

80 x 24 Video Board for the Model III. . . $199 
112K CP/M 2.2 for the Model III $399 

16K Memory, 200nsec, Guar 1 yr 8/S12 

64 K Memory, 200nsec, Guar 1 yr . . . 
12" Green Phosphor Monitor 



SOFTWARE 

Super Utility Plus 3.0 by Kim Watt $59 

Alcor PASCAL Model I or III 169 

P&T CP/M for the Mod II 159 

P&TCP/M for the Mod 16 189 

P&T CP/M for the Hard Disk !99 

All SNAPPWARE **10%**OFF 

I have lots of other software. Call me now for your 
needs. All at discount. 



MEDIA & SUPPLIES 

8" disks SS DblDen, Guar. Forever S29 

8" disks DS DblDen. Same Guarantee 39 

5" Elipsort, holds 75 disks 19 

8" Elipsort same deal 29 

5" Library boxes $2.50 

8" Library boxes $3.50 

5" or 8" Head cleaning kit 9 

Tractor paper, letter size 2900 sheets 25 

LNW COMPUTERS 

!28K LNW-80 Model II, Both NTSC & RGB 
outputs. RS232 and parallel printer port. 
Uses both 5" and 8" drives. Works on all 
known TRS-80 DOS's. Comes with 
DOSPLUS. Also works with CP/M 2.2 
which is included at no extra cost. Now 
a FREE 12" GREEN PHOSPHOR 
monitor and cable included. All for 
the low price of $1695 



HR1 PRINTER 

$799 



160cps Friction/Tractor (S32 Option) 
10.12,16.5 cp! 

Doublewide QCCQ 

6,8.12 1 pi ^^Oy 



PRINTERS & OTHER ACCESSORIES 

ANADEX DP-9500A or 9501 A $1239 

ANADEX DP-9620A. 200 cps 1 399 

ANADEX WP-6000, 284 cps, NLQ 2695 

PR0WRITER, 120 cps, 10" Friction/Tractor... 375 
PROWRITER 2, 120 cps, 15" Fric/Trac. . . 669 
STARWRITER F-10, 40 cps Daisy WheeL.1250 
PRINTMASTER F-10, 55 cps Daisy .1499 

Rutishauser Bidirectional Tractor 199 

Rutishauser Sheet Feeder 895 

PERIPHERALS - 

32K LNW Expansion Interface W/RS232...S329 
Mod III RS232 complete, ready to install. . . 79 
Signalman Mk I Modem 300 baud, 
direct connect 89 

Please add $5 handling charge to all orders under S24 



ORDI 
TOLL 



Write or call. Toll free lines are for orders only. Texas 
residents call 214/458-1 966 and deduct $2.00 from 
your order. If you need technical information or service 
use the Texas number. Prices are subject to change 
without notice and are mail order only. I accept VISA 
or MASTERCARD, you can send a check or money 
order (allow a couple of weeks for personal oi 
company checks to clear) or order COD (cash, 
certified check or money order only). Shipping is not 
included unless otherwise indicated Please add S5 
handling charge to all orders under $24. Texas orders 
add 5% tax. No tax added on shipments outside 
Texas. Order up - I need the money! 



TM 



AL ACCESS 

P.O. BOX 790276 
DALLAS, TX 75379 ^ 81 
214-458-1966 

NEXT DAY SHIPMENT on all in stock Merchandise 
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ball rolling. Then the results appear on 
the screen. The random winning num- 
ber selection and simple graphics— to 
slow the ball down gradually before 
it drops into the pocket — start on 
line 1390. 

PRINT® statements produce both 
graphics and text. The program pre- 
sents a challenge to improve with each 
simulation. Machine language would be 
faster, but Basic works because speed is 
not that critical here. 

Craps 

Craps in standard Disk Basic pro- 
vides an interesting simulation of the 
conventional game. Betting is based on 
the casino rules of play and most, but 
not all, types of bets are accepted. 

The standard graphics capability of 



Line 


Function 


10-80 


Program introduction 


90-210 


Game rules 


220 


Starts game and graphics layout 


230 300 


Enter pass-line bets 


310-340 


Come-out toss of the dice 


350-400 


First toss scoring logic 


410 480 


Enter come bets 


490-550 


Enter place bets 


560-600 


Enter field bets 


610-630 


Second toss of the dice 


640-750 


Evaluation and scoring after second toss 


760 800 


Game conclusion 


810 


Dice outline graphics subroutine 


820 


Graphics partial clear subroutine 


830-880 


Dice value graphics subroutine 


890-910 


Layout betting graphics subroutine 




Table 3. Craps 



Line 


Function 


10-130 


Program introduction and array definition and 




loading 


140-330 


Faro playing rules 


340-380 


Playing layout graphics 


390-410 


First card draw (soda) and display 


420-550 


Bet selection and placement on the layout 


360 -600 


Drawing of cards to lose and to win 


610-660 


Evaluation of bet(s) and scoring 


670-850 


Evaluation of last three cards in box and place- 




ment of appropriate bets 


860-890 


Game conclusion and results 


900 


Card suit determine subroutine 


910 


Graphics clearing subroutine 


920 


Card outline graphics subroutine 


930 


Layout graphics subroutine 


940 


Card printing subroutine 


950 


Turn counter and display subroutine 


960 


Card box graphics subroutine 


970-980 


Losing card evaluation subroutine 


990-1000 


Winning card evaluation subroutine 




Table 5. Faro 



Line Function 

10-90 Program variable and array definition and 

introduction 

100-190 Rules of roulette 

200-210 Playing layout graphics 

220-250 Bet amount and type selection 

260-350 Line bet entry and posting 

360-480 Square bet entry and posting 

490-780 Split bet entry and posting 

790-930 Straight bet entry and posting 

940-1040 Street bet entry and posting 

1050-1 1 10 Column bet entry and posting 

1120-1180 Do/en bet entry and posting 

1 190-1240 High/low bet entry and posting 

1250-1300 Odd/even bet entry and posting 

1310-1360 Black/red bet entry and posting 

1370 Partial screen clear subroutine 

1380-1460 Play number selection and graphics 

1470-1530 Game scoring and result display 

1540-1570 Game conclusion 

1580-1620 Layout graphics subroutine 

1630-1660 Layout graphics numbering subroutine 

1670-1700 Graphics support subroutine 

Table 2. Roulette 



Line 


Function 


10-130 


Game introduction and array loading 


140-440 


Game rules 


450-460 


Layout graphics 


470-510 


Opening bet 


520-570 


First card dealing and scoring 


580-600 


First score posting 


610-660 


Continuing bet selection 


670-720 


Enter double bet 


730-800 


Enter insurance bet 


810 


Forced card draw subroutine 


820-890 


Continuing bet selection 


900-1080 


Scoring and results posting 


1090-1140 


Game conclusion 


1150 


Layout graphics subroutine 


1160-1190 


Card suit determination subroutine 


1200 


Card value printing subroutine 


1210 


Card outline printing subroutine 


1220 


Card back pattern subroutine 


1230 


Card content clear subroutine 


1240 


Card printing subroutine 




Table 4. Blackjack 



Line 


Function 


10-110 


Program introduction 


120 260 


Game rules 


270-280 


Layout graphics 


290-340 


Start of play with bet selection 


350-430 


Bet placement 


440-470 


Random winning number selection 


480-610 


Game scoring and posting 


620-640 


Game conclusion 


650-660 


Layout graphics subroutine 


670-710 


Wheel rotation graphics subroutine 


720 


Rotation angular rate counter subroutine 


730 


Layout graphics subroutine 




Table 6. Wheel of Fortune 
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• FREE SHIPPING • 

WITHIN CONTINENTAL 48 STATES 




ARE YOU A DREAMER? 

IMAGINE THIS . 



You place your order and it arrives when expected. "What do 
you know, they did ship that day!" You open your package and 
SURPRISE, it's what you ordered, not last year's version six times re- 
moved. "Wait a minute, I must have paid full retail to get this kind of 
service. H'mm, that's not it. These prices are among the lowest. What's 
the catch? I've got it! They charged me large shipping and handling charges 
No, not that either. It says here 'Free shipping within the Continental 48 States 
via UPS ground.' Only the differential is charged for UPS Blue or 1st Class. Now 
I've got it, it's only a dream'.!!" 

At Micro Images your dreams become reality! How do we do it? Simple, we tell the truth. If 
the item you order is not in stock — we tell you. If we can't ship that day — we tell you. 
Which version? We tell you. Why are we telling you this? The answer is easy. This is what we 
do best and what separates us from the competition, AND WE WANT YOU TO KNOW. 



POSTMAN DELUXE 



Deluxe Mass Mail - Mdl 



$119.95 



Deluxe Ver. w/Postwriter -$144.95 



MAXI MANAGER 

Manager with Utility -$119.95 
Maxi Utility Only - $44.95 



SUPERUTILITY + 

Mod l/lll - Ver. 3.0 — $59.95 

SEE NEW BOOK BELOW 



Data-Writer 

New Version Mod I or III 

Si 24.95 



MAXI CRAS 

Mod l/lll -$84.95 



LDOS 5.1 

MDL I or 1 1 1 — $109.95 



GEAP- S 84.95 

w/Dot Writer 1.5 

Add'l Fonts — $27.95 each 



NEW SCRIPT- 7.0 $109.95 

with Mailing Label Opt. . . $119.95 
Mailing Label Opt. Only. . . $27.95 



MAXI MAIL 

Mod III Only 

$84.95 



MAXI STAT 

Model l/lll 

$164.95 



MULTIDOS $89.95 

NEW VERSION 1.6 

Specify Mdl I or III Single or Dbl Density 



DOSPLUS 



Version3.5S/3.5D/3.5lll 
Version II For Model II. 



$119.95 
$199.95 



MICROTERM -Mdi i or in... $69.95 



MZAL -Ver. 2 Mdl I or III $11 9.95 
TZAL - Mdl III - Tape Only $44.95 

Basic Editor -Mdi i/iii Tape to Dk$27.95 



MICROSOFT Model I Only 

Fortran 80 or A.L.D.S. $89.95 

Basic Compiler \ $179.95 

Editor/Assembler + Tape$27.95 Disk$45.95 



PROSOFT UTILITIES 

TRASHMAN -Mdl l/lll $34.95 

FASTER ■ Mdl l/lll $26.95 

RPM- Mdl l/lll $21.95 



TALLYMASTER Mdl I or III . $69.95 



ELECTRIC WEBSTER w/Corr $129.95 

COPYART II $129.95 

ZORLOF $64.95 



BOOKS 



How To Do It on the TRS 80 - ijg. 
Machine Lang. Disk I/O - ijg ... . 

TRSDOS 2.3 Decoded - ijg 

Disk + Other Mysteries ijg . . . 

Basic Decoded - ijg 

Custom TRS-80 -ijg 

Basic Faster & Better - ijg 

Mdl 11/16 VisicalC - W.C Brown 

Mdl l/lll VisicalC -W.C. Brown 

Copyright Kit 

Inside Superutility Plus 



$27.95 
$27.95 
$27.95 
$20.95 
$27.95 
$27.95 
$27.95 
$16.95 
$16.95 
$11.95 
$17.95 



SPECIAL— $7,795.00 

LNW80— MODEL II 

Includes Dosplus 3.4D, CPM 2.2 and LNW Hi-Res Basic 



SYSTEM EXPANSION II — $349.95 



LNW-Doubler 5/8 $199.95 

Includes Dosplus 3.4D 



• • PRINTER STANDS* • 





SPACE AGE 

MX80 No Frills 

MX80 Space Age 

Microline 82A Space Age w/siot . 
Microline 83A Space Age w/siot . 

NEC 8023A Space Age 

MX100 Space Age 



NO FRILLS 

Clear 13.50 Bronze 15.95 
Clear 27.50 Bronze 29.95 
Clear 27.50 Bronze 29.95 
Clear 34.95 Bronze 39.95 
Clear 27.50 Bronze 29.95 
Clear 34.95 Bronze 39.95 



FLIP N FILE 5 1 A" $26.95 



MICRO SPOOLER 

16 K. . .$179.95 64K. . $269.95 



LYNX Auto Dial/Answer Mod l/lll -$239.95 



MICROBUFFER - Practical Peripherals 
Parallel or Serial (Epson) $149.95 



GEMINi-10 $349.00 

100 GPS, BI-DIRECTIONAL, LOGIC SFEKING. HIGH RESOLUTION. 

BIT IMAGE & BLOCK GRAPHICS. FRICTION AND TRACTOR FEED. 

PL US M U CH MORE 1 



RIBBONS 



ZIP BOX RELOADS Vz Dz. 

Epson MX 70/80-20 Yds 24.00 

Epson MX 100-30 Yds 30.00 

NEC/Prowriter-14 Yds 21.00 

Centronics 730/737/739/779 or 

LP-I/II/IV 16 Yds 18.00 

All ZIP BOXES are individually sealed black nylon and 

require no rewinding Epson Reloads also available in 
red, blue, brown, green & purple Any mix allowed. 

CARTRIDGES Each 

Epson MX70/80 7.00 

Epson MX100 12.00 

Prowriter 8510 & NEC 8023A . 7.50 

RSLPIII/V 6.50 

RSLPVI/VIII 6.50 

RS DSY WH II or DWP410 . . . 6.50 

RSDSYWH II -Nylon 6.50 

MICRLNE80/82A/83A/92 . . . . N/A 

MICRLNE84 1 / 2 x40yds 5.50 

Diablo Hytype II ■ Muiti strike . . 6.50 

Qume - Multi Strike 5.00 

NEC Spin - Hy Yld - Mum strike . 7.00 

Centronic 703/04/53 11.00 

Minimum order 3 cartridges • any mix. For smaller 
quantities add $1.50 per order. Alt oui reloads and 
cartridges are manufactured by one of the oldest and 
most reputable ribbon Mfg's. in the country. 
***** * QUALITY GUARANTEED* ***** 

GAME SALE! 

Tape Disk 

Double Feature 31.95 

Stratos or Rearguard 19.95 19.95 

Cyborg or Jovian 17.95 21.95 

Early Games 26.95 26.95 

Zaxxon - Color 32k 33.95 

Sea Dragon or Eliminator. . . 17.95 19.95 

Forbidden Planet or City 33.95 

Outhouse or Fortress II 14.50 16.95 



Dz. 

4200 
5200 
36.00 

32.00 



Dozen 
70.00 

125.00 
80.00 
70.00 
65.00 
70.00 
70.00 
30.00 
60.00 
65.00 
50.00 
70.00 

120.00 



TO ORDER 

CALL OR 

WRITE TO: 



MICROIMAGES 

INDUSTRIES INC. 

14603 25th Road 
Flushing, N.Y. 11354 

(212)445-7124 



CALL: 
Mon-Thur. 

10AM-9PM 
Fri. & Sat. 

1QAM-5PM 



ORDERING INFORMATION 

No credit cards at these low prices. Add $2.00 on all COD orders. Certified Ck/MO/COD 
shipped immediately. Please allow 2 weeks for personal checks. For extra' fast service 
phone in your COD order. Free shipping within Continental 48 states via UPS ground. For 
Canada. Hawaii, Alaska, applicable shipping and insurance charges apply. Prices subject lo 
change without notice. New York State residents please add appropriate sales tax. 
The items listed above are a cross-section of our product line. We carry the full line of most 
companies listed in this ad. plus much more. SEND FOR YOUR FREE CATALOG. 



NEW... 




SOFTWARE FROM SON 

MAZE A PHRASE WORD GAME 

A real brain teaser. Compete with others by choosing a 
letter to build words and score points to solve the popular 
mystery phrase. Can be played with an unlimited number 
ot phrases or words. It will provide hours of fun, challenge 
and education for the whole family. (2 to 9 players) 
$16.95 TAPE $20.95 DISK $7.95 LUST 

DOT TO DOT CHALLENGE GAME 

Just connect the dots to score as many boxes as you can 
to win Points awarded and different grid sizes make it as 
challenging as you want. A game of skill and fun forages 
8 to adult 
$9.95 TAPE $12.95 DISK $4.95 LUST 

STAIR CONSTRUCTION PLANNING AIDE 

Two-for-one special. Take a step up and build yourown 

stair plans by using the Stair Construction Planning Aid. 

Designs standard or spiral type stairs. Saves time and 

money. Great for either the do-it-yourselfer or the 

construction trade professional 

$9.95 TAPE $12.95 DISK $4.95 LLIST 

Send check, money order, or COD accepted. 

Dealer inquiry welcome 

Minimum Systems Required: Model I Level II, III, IV or 

COCO- 16K RAM. 

Post paid in North America. Outside North America add 

15% for air mail. Wisconsin residents add 4% tax. 

SON SOFT 

905 North 21st Street, Superior, Wl 54880 
Phone 1-715-394-7853 




the Model II prevents elaborate board 
layout and three-dimensional views. 
I've used a simplified table and dice-like 
structures. 

The game starts on line 220; the pro- 
gram resets the appropriate variables 
and the graphics layout appears. After 



you make the initial bet (type and 
amount) in lines 230-300, the first toss 
of the dice takes place in lines 310-340. 
Lines 350-400 evaluate the results. 

At this point, the player chooses and 
enters the remaining types of bets. You 
can skip each one and make no bet by 



Program Listing I. One-Armed Bandit 

10 REM 02-JAN-83 *BDL MODEL II* 

20 REM BANDIT/BAS 

30 CLS:PRINTTAB(24) "PLAYING ONE-ARM BANDIT" : PRINT: PRINT 

40 CLEAR500:DEFDBI,G,R,T:U$="#*#*#.##":GC=10000:V$=CHR$(148) : GA$=CHRS ( 128) :GBS=CH 

RS(131) :GCS=CHR$(129) :GD$=CHR$ ( 130) :GXS=CHR$ ( 134) :GS$=CHR$ ( 158) :GQS=" " 

50 PRINT'THIS PROGRAM SIMULATES THE MECHANICAL THREE-WHEEL ONE-ARM BANDIT SLOTS" 

60 PRINT"AS PLAYED IN THE CASINOS IN NEVADA. ": PRINT 

70 PRINT" INSTRUCTIONS REQUIRED (Y/N) " 

80 I$=INKEY$:IFI$=""THEN80ELSEIFI$="Y"THEN100ELSEIFIS="N"THEN280ELSE80 

90 FORZ-1TO800:NEXTZ:GOTO280 

100 CLS:PRINT@23, "CASINO SLOTS INSTRUCTIONS" : PRINT: PRINT 

110 PRINT'THE SCORING FOR THIS SIMULATION IS AS FOLLOWS :": PRINT 

120 PRINTTAB(ll) "B E L L";TAB(26)"B E L L" ; TAB ( 41 ) "B E L L" ; TAB ( 53 ) " PAYS 5 

130 PRINTTAB(ll) "B E L L";TAB(28)"X X X" ; TAB ( 41) "B E L L" J TAB ( 53) "PAYS 3 0" 

140 PRINTTAB(ll) "B E L L" ; TAB ( 28) "X X X";TAB(43)"X X X" ; TAB ( 53 ) " PAYS 10 0" 

150 PRINTTAB(13) "B A R";TAB(28)"B A R";TAB(43)"B A R" ; TAB ( 53) "PAYS 3 0" 

160 PRINTTAB(13) "B A R" ; TAB ( 28) "B A R" ; TAB ( 43 ) "X X X" ; TAB ( 53 ) " PAYS 10 0" 

170 PRINTTAB(ll) "L O G O" ; TAB ( 26 ) "L O G 0" ; TAB ( 41 ) "L O G 0" ; TAB ( 53 ) " PAYS 3 

180 PRINTTAB(ll) "L G 0";TAB(22)"0 RANG E";TAB(43)"X X X" ; TAB ( 53 ) " PAYS 5 



190 PRINTTAB(ll) "L O G 0" ; TAB ( 26 ) " P L U M" ; TAB ( 43 ) "X X X" ; TAB ( 53 ) " PAYS 

200 PRINTTAB(7) "O R 

AYS 2 0" 

210 PRINTTAB(7) "0 RANG E";TAB(22 

5 0" 

220 printtab(7) "c h 
ay:; 1 0" 

230 printtab(7) "c ii e r r y" ; tab ( 22) "c h e r r y";tab(43)"x x x" ; tab ( 53 ) "pays 



A N G E";TAB(22) "0 RANG E" ; TAB ( 37) "0 RANG E" ; TAB ( 53) "P 
R A N G E*;TAB(43)"X X X" ; TAB (53) "PAYS 
R R Y";TAB(22)"C H E R R Y";TAB(37)"C H E R R Y";TAB(53) "P 



240 PRINTTAB(7) "C H E R R Y" ; TAB ( 28) "X X X";TAB(43)"X X X" ; TAB ( 53 ) " PAYS 

250 PRINT:PRINT"EACH COIN INSERTED IS WORTH S1.":PRINT 

260 PRINT"GOOD-LUCK 1111!" 

270 PRINT: INPUT"WHEN READY, DEPRESS <ENTER>";QS 

280 CLS:PRINT"C ASINO SLOT S" : K=K+1 : PRINT@66 , "G A M E 

290 PRINTCHR$(2) ; : GOSUB660 : GOSUB650 : GOSUB710 : PRINT0160 , "G O D 

:PRINTCHR$(1) ; 

300 PRINT@215, "INSERT COINS (1-5)"; 

310 I$=INKEY$: IFI$=" "THEN310ELSEIFI$>" 0"ANDI $<" 6"THENM=VAL( I S) ELSE310 

320 PRINT@1213,"B E T : "M 

330 PRINTCHR$(2) ; :GOSUB720 : GOSUB710 : PRINTCHRS ( 1) ; 

340 GW=0 :RE=0: RANDOM: R1=RND( 20) :R2=RND(20) :R3=RND(20) 

3 50 R=R1:ONRGOSUB550,560,560,570,57 0,580,5 80,580,5 80,5 

,6 00,6 00,600,6 00:W1S=WS:R1S=RS 

36 R=R2:ONRGOSUB5 50, 5 50, 5 50, 5 50, 5 50, 5 50, 550, 5 50, 5 50, 5 60, 57 0,5 80, 5 90, 5 90, 5 90, 5 
,5 90,5 90,5 90,600:W2$=W$:R2$=R$ 

37 R=R3:ONRGOSUB550,56 0,57 0,5 80,5 80,5 80,5 80,5 80,5 
,600,600,600,600:W3S=W$:R3$=R$ 
3 80 IFR1S="BL" THEN IFR2$="BL" THEN IFR3 $="BL"THENGW=5 

3 90 IFR1$="BL"THENIFR3$="BL"THENGW=300:GOTO470 
400 IFR1S="BL"THENGW=100:GOTO470 
410 IFRl$="BA"THENIFR2$="BA"THENIFR3S="BA"THENGW=3 00:GOTO47 0ELSEGW=l 

4 20 IFR1$="LO"THENIFR2$="LO"THENIFR3$="LO"THENGW=3 00:GOTO47 
43 IFRl$="LO"THENIFR2$="OR"ORR2$="PL"THENGW=50:GOTO47 

440 IFRlS="OR"THENIFR2$="OR"THENIFR3S="OR"THENGW=20 0:GOTO47 0ELSEGW=50:GOTO47 
45 IFRl$="CH"THENIFR2$="CH"THENIFR3$="CH"THENGW=100:GOTO47 0ELSEGW=20:GOTO470 

460 IFR1$="CH"THENGW=5 

470 GW=M*GW 

480 L=656:GOSUB700:PRINT@656,W1$ 

490 L=674:GOSUB700:PRINT@674,W2$ 

500 L=692:GOSUB700:PRINT@692,W3$ 

510 IFGW>0THENX$="Y O U HAVE 

S T S :":RE=-M 

520 PRINT@160,X$USINGU$;RE 

530 TW=TW+RE:GC=10000-TW:GOSUB650 

540 GOTO610 

L 



: PRINT@76,K 
LUCK! I r 



1,590,590,590,590,600,600 



1,5 80,5 80,5 80,5 80,5 90,5 90,5 96 
):GOTO47 



:GOTO470 



' :RE = GWELSEX$ = "Y OUR 



W$ = " B E 

WS=" BAR 

W$=" LOGO 

W$="0 RANG 

WS="C H E 

W$=" P L 



':RS="BE":RETURN 
":RS="BA":RETURN 
':RS="LO":RETURN 
!":R$="OR": RETURN 
r":RS="CH":RETURN 



R R 

U M ":RS="PL 



: RETURN 



610 PRINT@1213,"TO PLAY AGAIN, DEPRESS <ENTER>; TO EXIT DEPRESS <X> 

620 I$=INKEY$:IFI$=""THEN620ELSEIFI$=CHR$(13)THEN280ELSEIFI$="X"THEN630ELSE620 

630 CLS:PRINT@496, "ONE-ARM BANDIT SAYS GOOD-BYE COME AGAIN! II" 

640 PRINT: PRINT: END 

650 PRINT@1760,SPACE$(80) ; : PRINT81760 , "M ACHINE HAS : "USINGUS;GC: PRINTS 

1800, "T OTAL WINNINGS : "US INGUS ;TW: RETURN 

660 PRINT@331, GAS :PRINTg332, STRINGS (56, 150) : PRINTg388 ,GCS: PRINT@967 ,GA$: PRINT@96 

8, STRINGS (64, 150) : PRINT61032 ,GCS: PRINT@1607 ,GBS: PRINT@1608 , STRINGS ( 64 , 150) : PRINT 

@1672,GDS 

67 FORI=1TO7:PRINT§331+I*80,V$: NEXT :PRINT@971,GX$:F0RI=1T07:PRINT@3 88+1* 80, V$:N 

EXT:PRINT@10 28,GXS:FORI=1TO7:PRINT@967+I*80,V$:NEXT:FORI=1TO7:PRINT@103 2+I*80,VS 

:NEXT 

6 80 L=494:GOSUB6 90:L=512:GOSUB6 90:L=53 0:GOSUB6 90:RETURN 

6 90 PRINTgL, GAS : PRINT@L+1 , STRINGS ( 14 , 150) : PRINT9L+15 ,GCS: PRINT@L+3 20 ,GB$: PRINTgL 
+ 321, STRINGS (14, 150) : PRINTgL+335 ,GD$: FORI = lT03 : PRINTgL+I*80 ,VS: NEXT: F0RI = 1T03 : PR 
INT@L+15+I*80,VS:NEXT:RETURN 

700 PRINTCHRSI2) ; : F0RI=1T025 :PRINT@L, STRINGS ( 12, "X" ) : PRINT@L,SPACES( 12) :NEXT:PRI 
NTCHRS(l) ;: RETURN 

710 PRINT@135 2,CHR$(135) : PRINTS1353 ,GSS: PRINT@1354 ,GSS: PRINT@7 94 ,GSS : PRINT@874 ,G 
SS:FORI=1TO5:PRINT@874+I*80,VS: NEXT: RETURN 

7 20 PRINT@7 94,GQS:PRINT@87 4,GQS:FORI=1TO5:PRINT@87 4+I*80,GQS:NEXT:RETURN 
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Business Software Ever! 

TRS-80™ (Model I, II, HI, or 16) • APPLE™ • IBM™ • OSBORNE™ • CP/M™ • XEROX™ 



tftfV 




The VersaBusiness" Series 

Each VERSABUSINESS module can be purchased and used independently, 
or can be linked in any combination to form a complete, coordinated business system. 



VERSARECEIVABLES T " $99.95 

Versa Receivables'" is a complete menu-driven accounts receivable, invoicing, and 
monthly statement -generating system. It keeps [rack of ail information related to who 
owes you or your company money, and can provide automatic billing for past due ac- 
counts. Versa Receivables" prints all necessary statements, invoices, and summary 
reports and can be linked with VersaLedgeR II'" and VERSAlNVENTORV". 

VERSAPAYABLES™ $99.95 

VersaPayaBLES" is designed to keep track of current and aged payables, keeping you 
in touch with all information regarding how much money your company owes, and to 
whom. VERSA Payables™ maintains a complete record on each vendor, prints checks, 
check registers, vouchers, transaction reports, aged payables reports, vendor reports, 
and more. With VERSAPAYABLES", you can even let your computer automatically select 
which vouchers are to be paid. 

VERSAPAYROLL™ $99.95 

VERSA PAYROLL" is a powerful and sophisticated, but easy to use payroll system that 
keeps track of all government -required payroll information. Complete employee records 
are maintained, and all necessary payroll calculations are performed automatically, with 
totals displayed on screen for operator approval. A payroll can be run totally, automati- 
cally, or the operator can intervene to prevent a check from being printed, or to alter 
information on it. If desired, totals may be posted to the VERSALEDGER 11™ system. 

VERSAlNVENTORY™ $99.95 

VERSA fclVENTORY" is a complete inventory control system that gives you instant access 
to data on any item. VERSAlNVENTORY*" keeps track of all information related to what 
items are in stock, out of stock, on backorder, etc., stores sales and pricing data, alerts 
you when an item falls below a preset reorder point, and allows you to enter and print 
invoices directly or to link with the VERSA RECEIVABLES" system. VERSA INVENTORY" prints 
all needed inventory listings, reports of items below reorder point, inventory value re- 
ports, period and year-to-date sales reports, price lists, inventory checklists, etc. 
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VersaLedger ir $149.95 

VERSALEDGER 11™ is a complete accounting system that grows as your business 
grows. VersaLedger IF" can be used as a simple personal checkbook register, 
expanded to a small business bookkeeping system or developed into a large 
corporate general ledger system without any additional software. 

• VersaLedger IT" gives you almost unlimited storage capacity 

(300 to 10,000 entries per month, depending on the system), 

• stores all check and general ledger information forever, 

• prints tractor-feed checks, 

• handles multiple checkbooks and general ledgers, 

• prints 17 customized accounting reports including check registers, 
balance sheets, income statements, transaction reports, account 
listings, etc. 

VersaLedger IF comes with a professionally-written 160 page manual de- 
signed for first-time users. The VersaLedger IT" manual will help you become 
quickly familiar with VersaLedger ir", using complete sample data files 
supplied on diskette and more than 50 pages of sample printouts. 



SATISFACTION GUARANTEED! 



Every VERSA BUSINESS'" module is guaranteed to outperform all other competitive systems, 
and at a fraction of their cost. If you are not satisfied with any VERSABUSINESS'" module, you 
may return it within 30 days for a refund. Manuals for any VERSA BUSINESS" module may be 
purchased for $25 each, credited toward a later purchase of that module. 



To Order: ^^ ^ ^ T<>11 free (8Q0) 43 12g jg 

(N. Y.S. residents call 9 14-425- 1535) 

* add $3 for shipping in UPS areas * add $5 to CANADA or MEXICO 

* add $4 for COD. or non-UPS areas ^_ * add proper postage elsewhere 



DEALER INQUIRIES WELCOME 

All pnces and specifications subject to change / Delivery subject to availability. 



' TRS-80 is a trademark of the Radio Shack Division of Tandy Corp. • "APPLE is a trademark of Apple Corp. - *IBM is a trademark of IBM Corp. 'OSBORNE is a trademark of Osborne Corp. 

*CP/M is a trademark of Digital Research - *XEROX is a trademark of Xerox Corp. 



pressing enter. 

If you require a second roll of the 
dice, line 610 performs the toss with 



accompanying graphics. Lines 640-750 
evaluate the second toss and post the 
betting results. 



Line 


Function 


10-80 


Introduction 


90 100 


Display field graphics 


110-160 


Select numbers to bet 


170-210 


Random selection of 20 numbers to win 


220-380 


Game scoring 


390-430 


Game conclusion 


440-460 


Display field graphics subroutine 


470-480 


Name ID subroutine 


490 


Graphics subroutine 


500 


Graphics subroutine 


510-580 


Display hi-lite subroutine 


590 


Number ID subroutine 


600 


Game ID subroutine 


610-690 


Game playing instructions 




Table 7. Keno 



Line 


Function 


10-110 


Introduction 


120-130 


Produce screen graphics 


140-170 


Betting input 


180-270 


Random card selection 


280 


Layout subroutine 


290-320 


Card suit subroutine 


330 


Card content subroutine 


340 


Card outline subroutine 


350 400 


Calculation and conclusion 


410 


Card back graphics subroutine 


420 


Card content clear subroutine 


430-510 


Scoring subroutine 


520-670 


Scoring subroutine 


680-760 


Scoring subroutine 


770-840 


Condensed set of rules for game 




Table 8. Baccarat 



Line 


Function 


10-100 


Program introduction 


110 150 


Playing screen graphics and prompt for entering bet 


160-170 


Bet amount evaluation and display- 


180 


Start deal of first hand 


190-250 


Clear card contents of graphics pattern 


260-300 


Random selection of card values for original hand 


310-340 


Instructions for holding selected cards in original 




hand 


350 


Hold blanking for cancel selection 


360-500 


Selection of cards to replace those not retained in 




original hand 


510-900 


Program hand evaluation logic 


910-1000 


Display and scoring logic 


1010-1060 


Game conclusion 


1070-1110 


Card graphics location subroutines 


1120-1150 


Card graphics outline subroutine 


1160-1200 


Card graphics pattern subroutines 


1210 


Card value print subroutine 


1220 


Card suit determination subroutine 


1230-1440 


Game instruction and scoring information 




Table 9. Draw Poker 



Blackjack 

Try your luck against the house in 
this game of blackjack using casino- 
style rules. The program uses four decks 
of cards, and the simulation includes 
dealing from a card shoe. 

Starting at line 450, you reset the con- 
trol variables and construct the layout 
graphics using subroutine 1150 and 
PRINT® statements. Place bets using 
single INKEY statements (lines 480- 
500) for the number of chips and their 
color (value). 

Lines 520-560 control card draws 
and display, with the results posted on 
the screen. If the game doesn't end at 
this point, betting continues with the 
prompts in lines 610-660. Betting for 
the choices available to the player is in 
line blocks 670-720, 730-800, and 
830-890. 

Final scoring and posting of the 
results on the screen occurs in lines 
900-1080. 

Subroutines using only a few of the 
characters available on the Model II call 
layout graphics and card-format graph- 
ics. Graphics in Basic can be slow, but 
their use is a straightforward approach 
in this type of program. 

Faro 

Faro is a card game often played in 
the casinos and saloons of the old West. 
It's not played much these days because 
the payoff to the house is not as favor- 
able as in other games. 

Using appropriate subroutines to 
minimize complexity, lines 350-380 
construct and identify the playing lay- 
out. Then the first card is selected from 
the deck and displayed (line 390). This 
card is called "soda" and does not enter 
into the betting. 

Placing bets on the 13 card values 
starts with line 420. It prompts the 
player for number of chips, played on 
which rank, and to win or lose. 

Lines 560 and 570 randomly deter- 
mine the cards drawn by the dealer: RL 
to lose and RW to win. Several lines of 
logic analyze and evaluate the cards 
drawn. Arrays score the plays: B(52) to 
win, H(52) to lose, C(52) for cards 
drawn, and L(13) for printing locations. 
Logical statements compare array con- 
tents and calculate results. 

After you've played 24 regular turns, 
the remaining three cards are revealed, 
but not their order (lines 670-710). The 
final betting (last turn) is made on these 
cards (line 740). 

Wheel of Fortune 

If you don't have time to attend a 
carnival or county fair, you can try your 
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For Cassette or Disk 



DISK. 




COMPUTER WORKING CORRECTLY? ARE YOU SURE? 

Tests every component of your TRS-80 for proper operation. 

ROM: Checksum test 

RAM: Four separate tests including every address and data value 
Video Display: Character generator, video RAM, and video signal tests 
Keyboard: Every key contact tested 
Line Printer: Character test 
Cassette Recorder: Read/write/verify data 

RS-232-C Interface: Read sense switches (Model I), connector fault, data transmission, framing, data loop, baud rate 
generator 
Disk Drives: Disk controller, drive select and restore, track seek and verify read, read/write/verify all tracks and 
-jV ^m± "'■ ,tf*lk#* '^^ftrf, sectors, formatting, disk drive timer, disk head cleaner 

^r^^ /W, Vj "^ W^ilE Model I: single or double density, 35, 40 or 80 track drives 
W Tf ^mHI** Model 3: single or double density, 35, 40 or 80 track drives 

" T ^~ single or double sided drives 

- One program adapts to any system configuration and hardware. 

- Individual tests of each device with operator monitoring and intervention. 

- Continuous system tests run continually for hours, with diagnostic reports optionally written on line printer. 

- Complete instructions and documentation. 

SPECIFY TRS-SO M MODEL I OR MODEL UI 



CASSETTE 

95 



SMART TERMINAL 

Enables your TRS-80 to be used as a data communications terminal 
to a time-sharing system, computer bulletin board, or another computer, 
via the RS-232-C interface. 

• MEMORY BUFFER holds data for transmission or data received from 
other computer. 

• CASSETTE or DISK may be used to load or save data from memory. 

• AUTOMATIC TRANSMISSION of data from memory. 

• AUTOMATIC STORAGE of incoming data at user's option. 

• TRANSMIT or RECEIVE WITH VERIFICATION options included for 
communication between two TRS-80s using Smart Terminal. 

• Full CONTROL KEYS, including control key mapping into any ASCII 
character. True BREAK key. Lower case supported on Model I. 

• Buffered LINE PRINTER ECHO for incoming data. 

• Disk and cassette files fully compatible with ELECTRIC PENCIL " and 
SCRIPSIT" programs. 

• BAUD RATE and RS-232-C CHARACTERISTICS can be reset from 
within the program. 

• SAVE PROGRAM option creates "personalized" back-up copy of 
program with all options set as specified bv user. 

• ONE PROGRAM supports both cassette and disk systems. Program is 
compatible with PMC-80 and other TRS-80 "work alike" computers. 
Model I or III Version supplied on cassette $69*95 

supplied on diskette $74*95 
Model II CCP/M) Version $7995 



MAILING LIST 

Maintains mailing lists of up to 1326 names (48K version). Add, change, 
delete, or find names. Machine language sort according to information in 
ANY field (first or last name, address, city, state, zip code). Three or four 
line labels printed in 1, 2, 3, or 4 columns, in master list, or on video display. 
TRS-80 Model 1/3 Disk Version $69*95 
IBM PC Disk Version $79*95 



HOME BUDGET 

Keeps track of your monthly and year-to-date income and expenses. 
Income and expenses classified by code numbers for identification of 
categories. Data includes date, code number, amounts and check number 
(optional). Computes monthly and year-to-date summaries showing 
income tax deductions. All output printed on video display or line printer 
at user's option. Complete instructions for customizing to suit your own 
budget. 

TRS-SO Model 1/3 Cassette Version $29*95 

TRS-80 Model 1/3 Disk Version $49*95 

IBM PC Disk Version $59*95 



MON-3 and MON-5 

Monitor Programs 33 and "5 are powerful utility programs whic h enable 
you to interact directly with the TRS-80 in machine language. They .ire 
useful both for beginners and for advanced programmers. 

• BEGINNERS can learn to use machine language. 

• COMPLETE instruction manual. 

• SIMPLE commands, easy to use. 

Both MON-3 and MON-5 contain the following features: 

• DISPLAV memory in ASCII and hexadecimal form. 

• DISASSEMBLE memory to see machine language commands. 

• MOVE and COMPARE blocks. 

• SEARCH through memory to find specific values. 

• MODIFY memory in different ways. 

• RELOCATE object programs. 

• READ and WRITE object tapes in SYSTEM formal. 

• UNLOAD programs in low RAM on disk. 

• CREATE SYMCOLIC CASSETTES of disassembled output for use as 
input to EDTASM program (MON-3 only). 

• PRINT output optionally on video display or line printer. 
Monitor »5 adds the following features: 

• SAVE and LOAD disk files. 

• INPUT and OUTPUT of disk sectors, bypassing disk operating system. 

• RS-232-C COMMANDS for terminal mode, send and receive data. 

• COMPLETE DEBUGGING PACKAGE including setting and displaying 
registers, single stepping, setting breakpoints and executing 
machine instructions. 

Available for Model I and III Level II computers (16K, 32K 

Specify TRS-80 '" Model I or HI 

MON-3 (for cassette systems) $39*95 
MON-5 C*or disk systems) $59*95 



and 48K). 



SMALL BUSINESS ACCOUNTING 

Based on Dome Bookkeeping Record #612, this program keeps track of 
income, expenditures, and payroll for a small business. Receipts and 
expenditures can be entered on a daily, weekly, or monthly basis. Program 
computes monthly, through last month, and year to date summaries. 
Payroll section (included in disk version only) keeps record of employees 
and paychecks with up to six categories of payroll deductions. Computes 
employee payroll records and year-to-aate payroll totals. Complete 
instructions for customizing to suit your own business. 

TRS-80 Model 1/3 Cassette Version $29*95 

TRS-80 Model 1/3 Disk Version $59*95 

IBM PC Disk Version $69*95 




50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



*%m 



VfSA 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 



sSee List of Advertisers on Page 323 



• All orders processed within 24 Hours 
• 30-Day money back guarantee 
• Add $3.00 for shipping in UPS Areas 
• Add $4.00 for COD or NON-UPS Areas 
• Add $5.00 to Canada or Mexico 
• Add exact postage to all other countries 
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luck at a simulated wheel of fortune. 
You only need to enter 73 Basic pro- 
gram lines. 

The screen clears and the control var- 
iables reset starting on line 270. Line 280 
provides the layout graphics using 



keyed subroutines that permit more 
compact programs. 

Start betting on line 290, using fast 
INKEY inputs. To simplify the INKEY 
use, the number of accepted chips is 
limited to nine. If you wish, you can 



substitute a double INKEY; then a 
stack of up to 99 chips is possible. If you 
make the change, the first decade of in- 
puts is 01, 02, and so on. 

When the program prompts you, type 
in a number from one to nine to indicate 



Line 


Function 


10-110 


Introduction, define variables, arrays, load card 




ID arrays 


120 250 


Rules for game 


260-270 


Start of game and layout graphics 


280-310 


Card draw selection and display 


320-620 


Placing of bets 


630-670 


Drawing the gate, scoring, and display of results 


680-740 


Game conclusion 


750 


Layout graphics subroutine 


760 


Card outline subroutine 


770 


Card value printing subroutine 


780 


Card content clearing subroutine 


790 


Card suit determination subroutine 


800 


Card graphics pattern subroutine 


810 


Play counter subroutine 




Table 10. Four-Card Monte 



Program Listing 2. Roulette 

10 REM 22-JAN-83 "BDL MODEL II* 

20 REM - PROGRAM ROULETTE/ BAS 

30 CLS:PRINTP20, "ROULETTE SIMULATION PROGRAM" : PRINT : PRINT 

40 CLEAR200:DIML(3 8) ,S(38),P(38),R(38),T(38),C[38),D(38),H(38),0(38),B(38) :VS=CH 

RS(148) ;PS-"I":GAS-CHRS<128) :GBS = CHRS ( 131) :GCS=CHRS ( 129) :GDS=CHRS ( 130) :HH=S000:G 

US-CHRSU32) :UUS-"MM».M":US = "#M.M":GLS-CHR$(134) :AS = "*":SS = " " 

50 PRINT"ROULETTE IS THE GAME THAT MOST PEOPLE ENVISION WHEN THINKING ABOUT THE 

FAMOUS" -PRINT-CASINOS AT MONTE CARLO AND OTHER WORLD LOCATIONS .": PRINT 

60 PRINT'THE GAME IS EASY TO PLAY, ALL THAT IS REQUIRED IS A KNOWLEDGE OF THE BE 

TTING" :PRINT"OPTIONS AND THE PLAYING LAYOUT .": PRINT 

70 PRINT" INSTRUCTIONS REQUIRED (Y/N)"; 

80 IS-INKEYS:IFIS-""THEN8OELSEIFIS="Y"THEN100ELSEIFIS="N"THEN200ELSE80 

90 DIMMS(52) :GAS=CHRS(128) : CBS=CHRS ( 1 29) :GCS=CHRS ( 130) : GDS=CHR$ ( 131) :GE$=CHR$(14 

8) :GF$-CHRS(150) 

100 CLS:PRINTg20,"R U I. E S OF R O U L F, T T E" : PRINT: PRINT 

110 PRINT'THE WHEEL ITSELF IS A VERY CAREFULLY MADE, VERY DELICATELY BALANCED ST 

RUCTURE--PRINT"WHICH IS DIVIDED INTO THIRTY-EIGHT EVEN COMPARTMENTS, OR 'POCKETS 

•.":PRINT"THIRTY-SIX OF THESE POCKETS ARE NUMBERED INDIVIDUALLY FROM ONE TO THIR 

TY — S IX" 

120 PRINT-AND APE COLORED EITHER RED OR BLACK. THERE ARE EIGHTEEN OF EACH COLOR 

THEVPRINT-REMAINING TWO POCKETS ARE COLORED GREEN AND ARE NUMBERED ZERO AND 
DOUBLE ZERO.": PRINT 

130 PRINT"TO ALLOW YOU TO PLACE BETS, THE CASINO PROVIDES A PLAYING LAYOUT WI.H 
ZERO": PRINT'AND DOUBLE ZERO MARKED IN GREEN, AND THE THIRTY-SIX NUMBERS MARKED I 
N THF I R* 

140 PRINT-RESPECTIVE COLORS, IN THREE COLUMNS OF TWELVE NUMBERS EACH. BETS ON T 
HIS AREA": PRINT" ARE CALLED 'INSIDE' BETS. THERE IS AN AREA OUTSIDE THE THIRTY-E 
IGHT NUMBERED" 

150 PRINT-BOXES WHICH ALLOWS FOR BETTING ON ODD (ALL THE ODD NUMBERS) , EVEN (ALL 
THE": PRINT" EVEN NUMBERS), RED OR BLACK (ALL THE RED, OR ALL THE BLACK NUMBERS). 

160 PRINT:PRINT"THERE IS ALSO AN AREA FOR BETTING ON THE FIRST, THE SECOND, OR T 
HE THIRD": PRINT"SET OF TWELVE NUMBERS (1 THRU 12, 13 THRU 24, OR 25 THRU 36); TH 
F FTR^T OR" 

170 PRINT-SECOND SET OF EIGHTEEN NUMBERS (1 THRU 18, OR 19 THRU 36); AND EVEN AN 
AREA": PRINT" FOR BETTING ON COMPLETE COLUMNS. BETS ON THESE AREAS ARE CALLED '0 
UTSIDE' BETS." 

180 PRINT'EACH CHIP OF YOUR COLOR CHOOSING IS WORTH SI.": PRINT 
190 INPUT"WHEN READY TO PLAY, DEPRESS •, ENTERS "; QS 
200 T T-0-TX=0:CA-0:CB=0:CC=0:CD=0:CE=0:CF=0:CG=O:CH=0:CI=0:CJ=0:CLS:PRINT"C A S 

INO ROULETT E" : PRINT96 5 , "G A M E : " : K = K*1 : PRINTS 5 , K 

210 PRINTCHRSI2) ; : GOSUB1580 : PRINTCHRS ( 26 ) ; : GOSUB16 30 : PRINTCHRS ( 25) ; : PRINTCHRS ( 1 ) 

220 B-0:PRINTgl60,SPACE$(80) ; :PRINTP160, "PLACE YOUR BETS... ENTER NUMBER OF CHIPS 

230~I$-INKEY$:IFI$=""THEN230ELSEIFI$>"0"ANDI$<="9"THENB=VAL(IS) : GOTO240ELSEI FI $= 

CHR$(13)THEN1380ELSE230 „„ „ „ , _ _ 

240 PRINTgl60,STRING$(70,32) : PRINT0160 , "SEL BET(L=LNE, S=SQU, P=SPL, R=STRA, T=S 

TT, C-COL, D=DOZ, H=H/L, 0=0/ E, B=B/R) " ; .„._„ 

250 IS=INKEYS:IFIS=""THEN250ELSEIFIS="L"THEN260ELSEIFIS="S"THEN360ELSEIFIS= P TH 

EN490ELSEIFIS="R"THEN790ELSEIFIS="T"THEN940ELSEIFIS="C"THEN1050ELSEIFIS="D THENl 

120ELSEIFIS="H*THEN1190ELSEIFIS=-O-THEN1250ELSEIFIS="B"THEN1310ELSE250 

260 PRINTei60,SPACES(80) ; : CA=CA+B: PRINT8298 , " *•« LINE ***" 

270 PRINT?458,"1 - 00:3 7 - 18: 21 " : PRINTSS3 8 , " 2 - 3:6 8 - 21:24 :PRINT§ 

618 "3-6:9 9 - 24 : 27" : PRINTS698 , " 4 - 9:12 10 - 27 : 30 " : PRINTS778 , 5 - 1 

2:15 11 - 30:33":PRINT@858,"6 - 15:18 12 - 33:36" 

280 PRINT@1018."SELECTION ( 1-12) " ; : INPUTTA: IFTA<10RTA>1 2THEN280ELSE290 

290 IFTA=lTHENL(38)=5*B:L(37)=5*B:L(l)=5*B:L(2)=5*B:L(3)=5'B:PRINTe244,USINGPS;B 

FI<!EIFTA=2THENL(l)=5*B:L(2)=5*B:L(3)=5*B:L(4)=5*B:L(6)=5*B:PRINTe248,USINGP$;BEL 

I«WA-3THSL(4)-5*B:L(5)-5*B:L(6)-5*B:L(7)-5*B:L(8)-5*B:L(9)-5*B:PRINTe252,USIN 



Listing 2 continues 



"These winning numbers 

appear on 

Ugh ted flashboards 

located throughout 

the casino area. " 



the number of chips you wish to stack 
on a given location on the layout ($1, 
$2, $5, A for $10, B for $20, J for 
Joker, L for Logo) that you will specify 
shortly. 

For the color prompt, type in W 
(white) for $1 chips, O (orange) for $2 
chips, R (red) for $5 chips, G (green) for 
$25 chips, or B (black) for $100 chips. 
Next, specify the location on the layout 
where you want the chip or stack of 
chips placed as your bet. 

If you intend to place only one bet, 
press enter to start the wheel spinning. 
If you wish to place additional bets, 
repeat the number of chips, value of 
each chip, and location of stack for 
each bet prior to starting the wheel with 
enter. 

Wheel rotation comprises two parts. 
Line 440 selects one of three lines: 450, 
460, or 470. You need a random selec- 
tion of 54, and this divides the function 
into three groups of 18 for convenience. 

You can try individual modifications 
if the simulated wheel rotation (in- 
cluding slowing) in subroutines 670 and 
720 is too simplified. 

Keno 

This Model II version of keno uses 
Disk Basic and the powerful PRINT® 
statements to produce a wide range of 
graphics displays. The larger screen area 
available with the 1,920 discrete loca- 
tions allows sufficient placement of 
both text and graphics. If. . .Then. . . 
Else statements form the conditional re- 
quirement for scoring. 

The game starts on line 110 when it 
prompts the player to mark the spots 
desired. At a casino, you would mark 
from one to 15 of your favorite num- 
bers on a keno ticket (in our case, the 
video screen) and present this along 
with the amount you wish to bet (line 
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• • EVERYTHING FOR YOUR TRS-80™ • ATARI™ • APPLE™ • PET™ • CP/M™ • XEROX™ • IBM™ • OSBORNE' 

* TKS80 is a trademark of the Radio Shack Division 'of Tandy Corp. • " ATARI is a trademark of Atari Inc. 'APPLE is a trademark of Apple Corp. * PET is a trademark of Commodore 
* CP/M is a trademark of Digital Research 'XEROX is a trademark of Xerox Corp. • ' IBM is a trademark of IBM Corp. ' OSBORNE is a trademark of Osborne Corp. 
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^■l „ sS ed within 24-Hours 

+ 30-Day money ° 



(ON CASSETTE OR DISKETTE) Includes 128 Page Users Manual 

Inventory Control Payroll Bookkeeping System Stock Calculations. 

Checkbook Maintenance Accounts Receivable Accounts Payable 




BUSINESS 100 PROGRAM LIST 



NAME DESCRIPTION 

1 RULE78 Interest Apportionment by Rule of the 78's 

2 'iNNU I Annuity computation program 

3 DATE Time between dates 

4 DAYYEAR Day of year a particular date falls on 

5 LEASENT Interest rate on lease 

6 BREAKEVN Breakeven analysis 

7 DEPRSL Straightline depreciation 

8 DEPRSY Sum of the digits depreciation 

9 DEPRDB Declining balance depreciation 

10 DEPRDDB Double declining balance depreciation 

1 1 TAXDEP Cash flow vs. depreciation tables 

12 CHECK2 Prints NEBS checks along with dairy register 

13 CHECKBK1 Checkbook maintenance program 

1 4 MORTGAGE/ A Mortgage amortization table 

1 5 MULTMON Computes time needed for money to double, triple, 

16 SALVAGE Determines salvage value of an investment 

1 7 RRVARIN Rate of return on investment with variable inflows 

18 RRCONST Rate of return on investment with constant inflows 

1 9 EFFECT Effective interest rate of a loan 

20 FVAL Future value of an investment (compound interest) 

21 PVAL Present value of a future amount 

22 LOANPAY Amount of payment on a loan 

23 REGWTTH Equal withdrawals from investment to leave over 

24 SIMPDISK Simple discount analysis 

25 DATEVAL Equivalent & nonequivalent dated values for oblig. 

26 ANNUDEF Present value of deferred annuities 

27 MARKUP % Markup analysis for items 

28 SINKFUND Sinking fund amortization program 

29 BONDVAL Value of a bond 

30 DEPLETE Depletion analysis 

31 BLACKSH Black Scholes options analysis 

32 STOCVAL1 Expected return on stock via discounts dividends 

33 WARVAL Value of a warrant 

34 BONDVAL2 Value of a bond 

35 FPSFST Estimate of future earnings per share for company 

36 BETAALPH Computes alpha and beta variables for stock 

37 SHARPE1 Portfolio selection model-i.e. what stocks to hold 

38 OPrWRfTE Option writing computations 

39 RTVAL Value of a right 

40 EXPVAL Expected value analysis 

41 BAYES Bayesian decisions 

42 VALPRINF Value of perfect information 

43 VALAD1NF Value of additional information 

44 UTILITY Derives utility function 

45 SIMPLEX Linear programming solution by simplex method 
4b TRANS Transportation method for linear programming 

47 F.OQ Economic order quantity inventory model 

48 QUEUE 1 Single server queueing (waiting line) model 

49 CVP Cost -volume-profit analysis 

50 CONDPROF Conditional profit tables 

51 OPTLOSS Opportunity loss tables 

52 FQUOQ Fixed quantity economic order quantity model 

53 FQEOWSH As above but with shortages permitted 

54 • Ql XDQPB As above but with quantity price breaks 

55 QUEUECB Cost-benefit waiting line analysis 

56 NCFANAL Net cashflow analysis for simple investment 

57 PROFIND Profitability index of a project 

58 CAP 1 Cap. Asset Pr. Model analysis of project 



59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bal. required 

61 D1SCBAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 FINRAT Financial ratios for a firm 

64 NPV Net present value of project 

65 PRINDLAS Laspeyres price index 

66 PRINDPA Paasche price index 

67 SEAS1ND Constructs seasonal quantity indices for company 

68 T1METR Time series analysis linear trend 

69 TIMEMOV Time series analysis moving average trend 

70 FUPRINF Future price estimation with inflation • 

71 MAILPAC Mailing list system 

72 LETWRT Letter writing system-links with MAILPAC 

73 SORT3 Sorts list of names 

74 LABEL1 Shipping label maker 

75 LABEL2 Name label maker 

76 BUSBUD DOME business bookkeeping system 

77 T1MECLCK Computes weeks total hours from timeclock info. 

78 ACCTPAY In memory accounts payable system-storage permitted 

79 INVOICE Generate invoice on screen and print on printer 

80 INVENT2 In memory inventory control system 

81 TELDIR Computerized telephone directory 

82 TIMUSAN Time use analysis 

83 ASSIGN Use of assignment algorithm for optimal job assign. 

84 ACCTREC In memory accounts receivable system-storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAYNET Computes gross pay required for given net 

87 SELLPR Computes selling price for given after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope including return address 

92 AUTOEXP Automobile expense analysis 

93 INSFTLE Insurance policy file 

94 PAYROLL2 In memory payroll system 

95 DILANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase price for rental property 

98 SALELEAS Sale-leaseback analysis 

99 RRCONVBD Investor's rate of return on convertible bond 
100 PORTVAL9 Stock market portfolio storage-valuation program 



□ TRS-80 Cassette Version 

□ TRS-80 (Mod-I or III), Pet, Apple 
or Atari Versions 

□ TRS-80 Mod-ll, IBM, Osborne 
and CP/M Versions 

ADO $3.00 FOR SHIPPING IN UPS AREAS 

ADD $4.00 FOR C.O.D. OR NON-UPS AREAS 

ADD $5.00 TO CANADA AND MEXICO 

ADD PROPER POSTAGE OUTSIDE OF U.S., CANADA AN[ 



£ I II — ■■ • 

IVIATV«3V\AT OA 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



ASK FOR OUR 64-PAGE CATALOG 



DEALER INQUIRIES INVITED 






\ C * LINE 

^<914) 425-1535 

PRICES & SPECIFICATIONS SUBJECT TO CHANGE 
DELIVERY SUBJECT TO AVAILABILITY 



■See List ol Advertisers on Page 323 



80 Micro, August 1983 • 157 



listing 2 continued 

GPS;B 

390 IFTA=4THENL(7) =5*B: L( 8) =5*B: L( 9) =5*B: L( 10) =5*B: L( 11) =5*B: L( 12) -5*B: PR INT0256 

,USINGP$;BELSEIFTA=5THENL(10)=5*B:L(11)=5*B:L(12)=5*B:L(13)=5*B:I.(14)«5*B:M15)- 

S*B:PRINT0260,USINGP$;B 

310 IFTA=6THENL(13)=5«B:L(14)=5*B:L(15)=S*BsL(16)+5*B:L(17)=5*B:I.(18)-5*B:PRINT0 

264,USINGPS;BELSEIFTA=7TIIENL(16)=5*B:L(17)=5*B:L(18)=5*B:L(19)=S*B:L(20)«5*B:l,<2 

1)=5*B:PRINT8268,USINGP$;B 

320 IFTA=8THENL(19)=5*B:L(20)=5*B:L(21)=5*B:L(22)=5«B:L(23)-5*B:L.(24)=5*B:PRINT8 

27 2,USINGP$;BELSEIFTA=9THENL(22)=5*B:L(23>=5*B:L(24)=5*B:L(25)=5*B:L(26)*5*B:L(2 

7)=5*B:PRINT@276,USINGP$;B 

330 IFTA=10THENL(25)=5*B:L(26)=5*B:L(27)=5*B:L(28)=5*B:L(29)-5«B:L(30)»5*B:PRINT 

8280,USINGP$;BELSEIFTA=11THENL(28)=5*B:L(29)=5*B:L(30)=S*B:L(31)=5*B:L(32)-5*B:1< 

(33)=5*B:PRINT0284,USINGPS;B 

340 IFTA=12THENL(31)=5*B:L(32)=5*B:L(33)=S*B:L(34)-S*B:L(35)=5*B:L(36)=5«B:PRINT 

8288,USINGP$;B 



350 GOSUB1370.-GOTO220 

360 PRINT0160,SPACES(S 
370 PRINT8458," 1 - 3:5 



:CB=CB+B:PRINT8298,"*** SQUARE ***" 

12 - 2:4":PRIST0538," 2 - 6:8 13 - 5 : 7 " : PRINT061 

8,' 3 - 9:11 14 - 8:10":PRINT8698," 4 - 12:14 15 - 11 : 13* : PRINT0778 , • 5-15 
:17 16 - 14:16":PRINT8858," 6 - 18:20 17 - 17:19" 

380 PRINT8938," 7 - 21:23 18 - 20: 22" : PRINT81018 , " 8 - 24:26 19 - 23 : 25- : PRINT 
81098," 9 - 27:29 20 - 26 : 28" :PRINT81178, " 10 - 30:32 21 - 29 : 31 " : PRINT01258 , " 1 
1 - 33:35 22 - 32:34" 

390 PRINT01418, "SELECTION (1-22) * • : INPUTTB: IPTB<1ORTB>2 2THEN3 90 ELSE400 
400 IFTB=1THENS(3)=8*B:S(6)=8*B:S(2)=8*B:S(5)=8*B:PRINT0648,USINGPS;BELSEIPTB-2T 
HENS(6)=8*B:S(9)=8*B:S{5)=8*B:S(8)=8*B:PRINT8652,USINGPS;BELSEIFTB=3THENS(9) -8*B 
:S(12)=8*B:S(8)=8*B:S(11) = 8*B : PRINT06 56 , US ISGP$ ; B 

410 IFTB = 4THENS(12) =8*B:S(15) = 8 *B : S ( 11 ) = 8*B : S ( 1 4 ) =8 *B : PR INT 06 6 , US INGPS I BELSEI FT 
B=5THENS(15) =8*B:S(18)=8*B:S(14)=8*B:S(17) = 8*B : PRINT066 4 , US INGPS ; BELSEIPTB = 6THEN 
S(18)=8*B:S(21)=8*B:S(17)=8*B:S(20)=8«B:PRINT8668,L'SINGP$;B 

420 IFTB=7THENS(21)=8*B:S(24)=8*B:S(20)=8*B:S(23) =8*B: PRINT0672 , USINGPS; BELSEIFT 
B=8THENS(24}=8*BsS(27)=8*B:S(23)=8*B:S(26)=8*B:PRINT8676,USINGP$;BELSEIPTB=9THEN 
S(27)=8*B:S(30)=8*B:S(26) =8*B:S(29) ■ 8*B: PR I NT 06 80 , USINGPS; B 

430 IFTB=10THENS(30)=8*B:S(33)=8*B:S(29) =8*B:S(32) = 8*B : PRINT06 84 , US INGP S ; BELSEIF 
TB=llTHENS(33)=8*B:S(36)=8*B:S(32)=8*B:S(35) =8*B : PRINT06 88 , US INGPS; BELSEIPTB=1 2T 
HENS (2! =8*B:S(5) =8«B:S(1)=8*B:S(4) =8*B: PRINT01 04 8 .USINGPS ; B 

440 IFTB = 13THENS(5) =8*B:S!8)=8*B:S(4)=8*B:S(7) =8*B : PR INT 01 052 , USINGPS ; BELSEI FTB- 
14THENS18) =8*B:S(11)=8*B:S(7)=8*B:S(10)=8*B:PRINT810 56,USINGP$;BELSEIPTB=15THENS 
(11) =8*B:S(14)=8*B:S(10)=8*B:S(13)=8«B:PRINT81060,USINGP$;B 

4 50 IFTB=16THENS(14)=8*B:S(17) = 8*B : S ( 1 3 )= 8*B : S ( 1 6 ) = 8*B : PRINT0106 4 , USINGPS; BELSEI 
FTB=17THENS(17)=8*B:S(20)=8*B:S(16) =8*B:S(19) = 8*B : PRI NT01 06 8 , US INGPS; BELSEIPTB=1 
8THENS(20)=8*B:S(23)=8*B:S(19)=8*B:S(22) =8*B: PRI NT 01 07 2 ,USINGP$; B 

460 IFTB=19THENS(23)=8*B:S(26) =8*B:S(22) = 8*B: S ( 25) = 8*B: PRINT01076 .USINGPS; BELSEI 

FTB=20THENS(26)=8*B:S(29) = 8*B : S ( 25) = 8«B: S ( 28) = 8*B: PRINT01080 , USINGPS; B 

47 IFTB=21THENS(29) =8*B:S(32)=8*B:S(28)=8*B:S(31) - 8 *B: PRI NT01 08 4 .USINGPS; BELSEI 

KTB=22THENS(32)=8*B:S(35)»8*B:S(31)-8*B:S(34)=8*B:PRINT0108 8,USINGP$;B 

480 GOSUB1370:GOTO220 

490 PRINT0160,SPACES(80) ; :CC=CC*B: PRINT8300, " ••* SPLIT **** 

500 PRINT0457 ."SELECT A=l-32, B=33-62"; 

510 IS=INKEYS:IPIS=""THEN510ELSEIPIS="A"THEN520ELSEIFIS="B*THEN660ELSE510 

520 PRINT0457,STRINGS(23,32) ; :PRINT0378," 1- 00:3 17- 15 : 14" : PRINT0458 , " 2- 

3:6 18- 18:17':PRINT8538,* 3- 6:9 19- 21 : 20" : PRINT0618, " 4- 9:12 28- 2 

4:23":PRINT0698," 5- 12:15 21- 27 : 26" : PRINT0778 , " 6- 15:18 22- 30:29" 

530 PRINT0858," 7- 18:21 23- 33 : 32" :PRINT8938, * 8- 21:24 24- 36 : 35" : PRINT010 

18," 9- 24:27 25- 00 : 2" : PRINT01098 , " 10- 27:30 26- 2: 5" : PRINT01178 , " 11- 30:3 

3 27- 5:8":PRINT01258,"12- 33:36 28- 8: 11 " : PRINT01338 , "13- 3:2 29- 11: 

14" 

540 PRINT01418,"14- 6:5 30- 14 : 17" : PRINT01498 , "15- 9:8 31- 17 : 20" : PRINT? 

1578, "16- 12:11 32- 20:23" 

550 PRINT01738, "SELECTION (1-32) "; : INPUTTC: IFTC<1ORTO32THEN550ELSE560 

560 IFTC-1THENP(3 8) =17 *B: P ( 3 ) =17 *B : PRINT0484 , USINGPS; BELSEIFTC=2THENP ( 3 ) =17*B:P( 

6)-17*B:PRINT04 8 8,USINGPS;BELSEIFTC=3THENP(6) =17 *B: P ( 9) -17 *B : PRINT04 9 2 , USINGPS ; B 

ELSEIFTC-4THENP(9)-17*B:P(12)=17*B:PRINT8496,USINGP$;B 

57 IFTC-5THENP(12)=17*B:P(15) =17 *B : PRINT05O0 , USINGPS ; B 

5 80 IFTC-6THENP(15) =17*B:P(18) =17 *B : PRINT0504 .USINGPS; BELSEI FTC=7TIIENP ( 18) =17*B: 
P(21)-17*B:PRINT050 8,USINGPS;BELSEIFTC=8THENP(21)«17*B:P(24)=17*B:PRINT8S12,USIN 
GPS;BELSEIFTC»9THENP(24) =17 , B:P(27)=17*B:PRINT0516,USINGPS;B 

5 90 IFTC-10THENP(27) =17*B:P(30) =17 *B : PRI NT 05 20 , USINGPS ; BELSEIFTC = 1 1THENP ( 3 ) = 17 * 
B: P ( 3 3 ) -17 *B:PRINT0524, USINGPS; BELSEI FTC=12THENP( 33) =17*B:P(36)=17*B:PRINT0528,U 
SINGPS;BELSEIFTC=13THENP(3)=17*B:P(2)=17*B:PRINT8646,USINGP$;B 

600 IFTC-14THENP(6)=17*B:P(5)=17*B:PRINT06 5 0,USINGP$;BELSEIFTC=15THENP(9)=17*B:P 
(8)-17*B:PRINT06 54,USINGPS;BELSEIFTC=16THENP(12)=17*B:P(ll)=17*B:PRINT8658,USING 
P$;BELSEIFTC=17*BTHENP(15) =17*B:P(14) =17 *B : PRINT0662 , USINGPS ; B 

610 IFTC-18THENP(18) -17*B:P(17) =17 *B: PRINT 06 66 , US INGPS; BELSEIFTC = 19THF.NP( 21 ) =17 * 
B:P (20) -17 *B:PRINT0670, USINGPS ;BELSEIFTC=20THENP( 24) =17*B:P(23>=17*B:PRINT8674,U 
S INGPS; BELSEI FTC=21THENP( 27) =17*B:P(26) =17 *B: PRINT06 7 8 , USINGPS ; B 

6 20 IFTC-22THENP(30)=17*B:P(29) =17 *B: PRINT06 82 , USINGPS; BELSEIFTC=23THENP ( 3 3 ) =17* 
B:P(32)=17*B:PRINTe686,USINGPS;BELSEIFTC=24THENP(36)=17*B:P(35)=17*B:PRINT06 90,U 
SINGPS;BELSEIFTC=25THENP(3 8) =17*B:P(2)=17*B:PRINT0804,USINGPS;B 

630 IFTC-26THENP(2)=17*B:P(5)=17*B:PRINT0888,USINGPS;BELSEIFTC=27THENP(5)=17*B:P 
(8) -17*B:PRINT0892,USINGPS;BELSEIFTC=28THENP(8)=17*B:P(ll)=17*B:PRINTe896,USINGP 
S;BELSEIFTC-29THENP(11)-17*B:P(14)=17*B:PRINT0900,USINGP$;B 

6 40 IFTC-30THENP(14)-17*B:P(17)=17*B: PRINT090 4 ,USINGPS;BELSEIFTC=31THENP( 17) =17* 
B:P(20)-17*B:PRINT090 8,USINGPS;BELSEIFTC=3 2THENP(20)=17*B:P(23) =17*B:PRINT0912,U 
SINGPS;B 

650 GOSUB1370:GOTO220 

660 PRINT0457,STRINGS(23,32) ; : PRINT0378 , " 33- 23:26 49- 32 : 31 " : PRINT0458 , " 34- 2 

6t29 50- 35:34":PRINT0538,"35- 29:32 51- 0: 1":PRINT0618 ," 36- 32:35 52- 1 

:4":PRINT§698,"37- 00:0 53- 4:7" :PRINTe778,"38- 0:2 54- 7:10* 

670 PRINT0858,"39- 2:1 55- 10: 13" : PRINT0938, "40- 5:4 56- 13:16*:PRINTglfl 

18, '41- 8:7 57- 16: 19" :PRINT81098,"42- 11:10 58- 19: 22" : PRINT01178, "43- 14 

tl3 59- 22:25":PRINT01258,"44- 17:16 60- 25: 28* : PRINT81338, "45- 20:19 61- 

28:31" 

680 PRINT01418,"46- 23:22 62- 31 : 34" : PRINT01498 , " 47- 26 : 25" : PRINT0157 8 , " 48- 29 

:28" 

690 PRINT0165 8, "SELECTION (33-62) "; : INPUTTC: IFTC<3 3ORTC>6 2THEN6 90ELSE7 

7 08 IFTC-33THENP(23)=17*B:P(26) =17 *B : PRINT091 6 .USINGPS; BELSEI FTC= 3 4THENP ( 26 ) =17* 
B:P(29)=17*B:PRINT0920,USINGPS;BELSEIFTC=3 5THENP(29)=17*B:P(32>»17*B:PRINT8924,U 
S INGPS; BELSEIFTC=36THENP( 32) =17*B:P( 3 5) =17*B: PRINT09 28 , USINGPS; B 

710 IFTC=37THENP(37) =17«B:P(38) =17*B: PRINT0802 .USINGPS; BELSEIFTC=38THENP ( 37) =17* 

B:P(2)-17*B:PRINT0884,USINGP$;BELSEIFTC=3 9THENP(2) =17*B:P(1)=17*B: PRINT 01046, USI 

NGPS;BELSEIFTC=4 0THENP(5)=17*B:P(4)=17*B:PRINT81050,USINGPS;B 

720 IFTC=41THENP(8) =17*B:P(7) =17 *B: PRI NT01 54 .USINGPS; BELSEI FTC= 4 2THENP ( 11) =17 *B 

:P(10)-17*B:PRINT01058,USINGPS;BELSEIFTC=43THENP(14) =17*B:P(13) =17*B:PRINT01062, 

USINGPS;BELSEIFTC=44THENP(17)«17*B:P(16)'=17*B:PRINT01066;B 

7 30 IFTC-45THENP(20)=17*B:P(19)=17*B:PRINT01070,USINGP$;BELSEIFTC=46THENP(23)=17 

*B:P(22)=17*B:PRINT0107 4,USINGPS;BELSEIFTC=47THENP(26) =17*B:P(25)=17*B:PRINT0107 

8,USINGP$;BELSEIFTC=4 8THENP(29)=17*B:P(28)=17*B:PRINT01082,USINGPS;B 

7 40 IFTC»49THENP(32)=17*B:P(31)=17*BiPRINT81086,USINGPS;BELSEIFTC=50THENP(3 5)=17 

*B: P( 34) =17 *B:PRINT81090, USINGPS ;BELSEIFTC=51THENP( 37) =17 *B: P ( 1) =17 *B: PRINT0128 4 

,USINGPS;B 

Listing 2 continues 



150) at the keno counter. 

There a writer marks a receipted copy 
on numbered paper that is good only 
for that game. At some casinos, a keno 
runner places your bet and returns your 
ticket copy to you. 

In this simulation, you type in the 
number and hit enter to mark selected 
spots. The input is range-protected so 
that only numbers in the 1 -80 range are 
accepted. If you make a mistake, type in 
C followed by enter; your current ticket 
is discarded and a new ticket appears, 
ready for a fresh start. 

When you've made all one to 15 
choices, type B and enter to place the 
amount of the bet (line 150). The func- 
tion Clear, Bet is protected, so only one 
of these two letters is accepted. 

When the "Place bet" prompt ap- 
pears, you can type in the amount up to 
a maximum of $99,999.99 (although the 
highest amount normally accepted at a 
casino is $25). This value is not range- 
protected. 

After you enter the bet, 20 winning 
numbers are selected. At the casino, air 
pressure mixes the 80 numbered balls 
(line 190) in the keno bowl. The 20 win- 
ning balls are ejected from the bowl at 
random (Basic's random function). 

These winning numbers appear on 
lighted flashboards located throughout 
the casino area (lines 170-210). For this 
program, a graphics cross displays the 
winning numbers D$ = CHR$(140) 
from line 40, which defines them, to line 
200, which prints them. 

Scoring occurs in lines 220-380 and is 
based on the payoff for the number of 
spots marked and the amount of the 
bet. Line 150 also displays the total num- 
ber of spots marked during selection. 

Various colors refer to the games. 
These are loaded into array G$(16) 
from the data stored in line 600. 

Baccarat 

In this version of baccarat, line 40 
clears string space and defines the string 
variables. An array containing the value 
of each card in the eight decks used to 
play the game is dimensioned in 
M$(416). Lines 50, 60, and 80 load the 
contents of this array. To minimize the 
tedium of waiting, I've added text be- 
tween the lines when a large array is 
loading (line 70). 

This program requires one INKEY 
statement for single-character data, and 
two INKEY statements for two-charac- 
ter input. INKEY is a string input, so if 
the data is numeric you must use 
VAL($) to obtain the numeric equiva- 
lent. You can use the alphanumeric 
value in the program directly. 
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14 26- 26":PRINT8 
" :PRINT8778," 5- 



19- 19 
33- 33 



31- 31":PRINT8 
:PRINT81178,"10 



Listing 2 continued 

^^ I f^: 52THENP(1)=17 * B:P(4) " 17 * B!pRINTel288 ' USINGP *J B ELSEIFTC=53THENP(4)-17*B: 

P<7>=17*B:PRINT81292,USINGP$;BELSEIFTC=54THENP(7)=17*B:P(10)=17*B-PRINT81296.USI 

«3PS,BELSEIFTC=55THENP(10)=17*B:P(13)=17*B:PRINT81300,USINGPS;B B " PRINT " 296 ' USI 

760 IFTC=56THENP(13)=17*B:P(16)=17*B:PRINT81304,USINGPS;BELSEIFTC=57THENP(16)=17 

*B:P(19)=17*B:PRINT81308,USINGPS;BELSEIFTC=58THENP(19)=17*B:P(22)=17*B-PRINT8131 

2,USINGP$;BELSEIFTC=59THENP(22)=17*B:P(25)=17*B:PRINT81316,USINGPS-B 

770 IFTC=60THENP(25)=17*B:P(28)=17*B:PRINT813 20,USINGPS;BELSEIFTC=61THENP(28)=17 

*B:P(31)=17*B:PRINT81324,USINGP$;BELSEIFTC=62THENP(31)=17*B:P(34)=17*B:PRINT8132 

8 r USINGP? 7 B 
7 80 GOSUB137 0:GOTO220 

790 PRINT8160,SPACE$(80) ;:CD=CD+B:PRlNTe301,**** STRAIGHT 
800 PRINT8458," 1- 1 13- 13 25- 25" : PRINT8538," 2- 2 
618," 3- 3 15- 15 27- 27*:PRINT8698," 4- 4 16- 16 2 
5 17- 17 29- 29" 

810 PRINT88S8," 6- 6 18- 18 30- 30" :PRINT8938, " 7- 7 
1018," 8- 8 20- 20 32- 32":PRINT81098 , " 9- 9 21- 21 
- 10 22- 22 34- 34":PRINT81258,"11- 11 23- 23 35- 35" 
820 PRINT81338,*12- 12 24- 24 36- 36" :PRINT81418,"37- 38- 00" 
830 PRINT81 57 8, "SELECTION (1-38) " ; : INPUTTD: IFTD<1ORTD>38THEN830ELSE840 
840 IFTD=1THENR(1)=35*B:PRINT81125,USINGP$;BELSEIFTD=2THENR(2)=35*B:PRINT87 2 5,US 
INGP$;BELSEIFTD=3THENR{3}=35*B:PRINT8325,USINGP$;BELSEIFTD=4THENR(4)=3 5*B:PRINT8 
1129,USINGP$;BELSEIFTD=5THENR(5)=35*B:PRINTe729 p USINGP$;B 

850 IFTD=6THENR(6) =35*B:PRINT@329,USINGPS)BELSEIFTD=7T[IENR(7) =35*B:PRINT81133,US 
INCPS;BELSEIFTD^8THENR(8) = 3 5 *B : PRINT87 3 3 , USINGPS ; BEI.SEI FTD=9THENR ( 9) =3 5 *B: PRINT? 
33 3,USINGPS;BELSEIFTD=10THENR(10) =35*B:PRINT81137,USINGP$;B 

86E IFTD=1 1 T>: ENR ( 11 ) =3 5*B: PRINTS 37, USINGPS, -BELSEIFTD=12THENR( 12) =3 5*B : PRINT83 37 
,US [NGP$;BELSEIFTD=13THENR( 13) =3 5*B: PRINT?) 14: , USINGPS; BELSEIFTD-1 4THENRI 14) -35* 
B:PRINT8741, USINGPS ;BELSEIFTD=15THENR( 15) =35*B:PRINT8341,USINGP$jB 

87 IFTD=16THENR(16) =3 5 *B : PR I NT 81 14 5 , USING? $ ; BELSEIFTD=17THENR ( 17 ) "3 5*B : PRINT87 4 
5,USINGP$;BELSEIFTD=18THENR(18) =35 *B : PR INT 8 3 4 5 , US INGPS ; BEI.SEIFTD = 1 9THF.NR( 1 9) -35 * 
B:PRINT81149,USINGPS;BELSEIFTD=2 0THENR(20)=35*B:PRINT8749,USINGPS;B 
880 IFTD=21THENR(21)=35*B:PRINT@349,USINGP$fBELSEIFTD=22THENR(2 2) =3 5*B: PRINT8115 
3,USINGPS?BELSEIFTD=23THENR(23) =35*B:PRINTg753 , USINGPS; BELSEIFTD=24THENR( 24) -3 5* 
B:PRINT8353,US1NGPS;B 

890 IFTD=25THENR(25) -3 5 *B : PRI NTgl 1 57 , US INGPS ; BEI.SEI FTD = 26THENR ( 26) =3 5*B: PRINT87 5 
7,USINGP$;BELSEIFTD=27THENR(27) =3 5 ♦ B : PRINT83 5 7 , US INGPS; BELSEIFTD= 2 8THENR ( 28) -3 5* 
B:PRINT8H61,USINGPSjB 

900 IFTD=29THENR(29)=35*B:PRINT8761,USINGP$;BELSEIFTD=30THENR(3 0)=3 5*B:PRINT8361 
,USlNGPS;BELSEIFTD=31THENR(31)=35*B:PRINT81165,USINGP$;BELSEIFTD=3 2THENR(32) -3 5* 
B:PRINT§7 65, USINGPS; B 

910 IFTD=33THENR(33)=3S*B:PRINTg365,USINGP$;BELSEIFTD=34THENR(3 4)=3 5*B:PRINT8116 
9, US INGPS; BEI.SEI FTD=3 5THENR( 35) = 3 5*B : PRINT87 6 9 , US INGPS; BELSEIFTD=3 6THENR( 36) -3 5* 
B: PRINT83 6 9, USINGPS; BEI.SEI FTD=3 7THEUR{ 37) =3 5*B : PRINT896 1 ,USINGPS;B 

9 20 IFTD=3 8THENR(3 8) =3 5*B : PRINT83 21 , USINGPS; B 
93 GOSUB1370 :GOTO220 

940 PRINT8160,SPACES{80) ; : CE-CE+B: PRINT8298, "*** STREET »*«" 
950 PRINT8458," 1-1 2 3" : PRINT8538, " 2-4 5 6" :PRINT8618 , " 3 - 

7 8 9":PRINT8698," 4-10 11 12" : PRINT877B," 5-13 14 15":PRINT8 

858," 6-16 17 18":PRINT8938," 7-19 20 21" : PRINTG1018," 8-22 23 

24" 
960 PRINT81098," 9-25 26 27" : PRINT81178 , "10 - 28 29 3 0" : PRINT81258 , "11 

- 31 32 33":PRINT81338,"12 - 34 35 36" 
970 PRINT81498, "SELECTION (1-12) " ; : INPUTTE: IFTE<10RTE>12THEN97 ELSE980 
980 IFTE=1THENT(1) =11*B:T(2)=11*B:T(3) =1 1 *B : PRINT82 46 , USINGPS; BELSEIFTE=2THENT ( 4 
)=ll*B:T(5)=ll*B:T(6)=ll*B:PRINTg250,USINGPS;B 

990 IFTE !THENT(7) ] 1*B:T(8) ai*B:T(9) -- ) 1*B: PRINT825 4 , USINGPS ;BELSEIFTE-4THENT(1 
0)=11*B:T(11)=11*B:T(12) =11 *B ; PRINT82 58 , USINGPS ;B 

1000 IFTE=5THENT(13) =11*B:T(14) =11 *B : T ( 15 ) =1 1*B: PRINT826 2 , USINGPS ; BELSEIFTE=6THE 
NT(16)=ll*B:T(17)=ll*B:T(18)=ll*B:PRINT8266,USINGP$;B 

1010 IFTE=7THENT{19) =1 1 *B : T ( 20 ) =1 1 *B : T ( 21 ) =11 *B : PRINT827 , USINGPS ; BELSEIFTE-8THE 
NT(22)=11*B:T(23)=11*B:T(24)=11*B:PRINT827 4,USINGP$;B 

10 20 IFTE=9THENT(25)=11*B:T(26) =11*B:T(27) =11*B: PRINT827 8 , US INGPS; BELSEIFTE-10TH 
ENT(28)=11*B:T(29)»11*B:T(30)=11*B:PRINT8282,USINGP$;B 

103 IFTE=11THENT(31)=11*B:T(32)==11*B:T(33) =11 *B: PRINT828 6 , US INGPS; BELSEIFTE=12T 
HENT(34)=11«B:T(35)=11*B:T(36)=11*B:PRINT82 90,USINGP$;B 
1040 GOSUB1370:GOTO220 

1050 PRINT8160,SPACES(80) ; : CF=CF+B: PRINT8298 , " *** COLUMN ***" 
1060 PRINT8458,"1 - 1 : 34 " : PRINT861 8 , " 2 - 2 : 3 5 " : PRINT877 8 , " 3 - 3:36" 

107 PRINT893 8, "SELECTION (1-3) " ; : INPUTTF : IFTF <1ORTF>3THEN1070ELSE1080 
10 80 IFTF=1THENC(1)=2*B:C(4)=2*B:C(7)=2*B:C(10)=2*B 
B:C(22)=2*B:C(25)=2*B:C(28)=2*B:C(31)=2*B:C(34)=2*B 
1090 IFTF=2THENC(2)=2*B:C(5)=2*B:C(8)=2*B:C(11)=2*B 
C(23)=2*B:C(26)=2*B:C(29)=2*B:C(32)=2*B:C(35)=2*B:PRINT8775,USINGP$;B 

1100 IFTF=3THENC(3)=2*B:C(6)=2*B:C(9)=2*B:C(12)=2*B:C(15)=2*B:C(18)=2*B:C(21)=2* 

B:C(24)=2*B:C(27)=2*B:C(30)=2*B:C(33)=2*B:C(36)=2*B:PRINT8375,USINGPS;B 

1110 GOSUB1370:GOTO220 

1120 PRINT8160,SPACES(80) ; : CG=CG+B:PRINT8298 , "*** DOZEN ***" 

1130 PRINT8458,"1 - 1ST 12" : PRINT8618, "2 - 2ND 12" : PRINT8778 , "3 - 3RD 12" 

1140 PRINTS 93 8, "SELECT ION (1-3) "; : INPUTTG: IFTG<1ORTG>3THEN114 0ELSE1150 

115 IFTG=1THENF0RI=1T012:D(I)=2*B:NEXT:PRINT81525,USINGP$;B 

116 IFTG=2THENF0RI=1T012:D(I+12) =2 *B: NEXT : PRINT815 41 .USINGPS, -B 
1170 IFTG=3THENF0RI=lT012:D(I+24) =2*B:NEXT: PRINT81557 ,USINGP$;B 
1180 GOSUB1370:GOTO220 

1190 PRINT8160,SPACES(80) ; : CH=CH+B: PRINT8298, "*** HIGH / LOW ***" 

1200 PRINT8458,"1 - HIGH" : PRINT8618 , "2 - LOW" 

1210 PRINT87 7 8, "SELECTION (1,2) "j : INPUTTH : IFTH<10RTH >2THEN1210ELSE1220 

1220 IFTH=1THENF0RI=1T018:H( 1+18) =1*B:NEXT:PRINT§1725, USINGPS; B 

123 IFTH=2THENF0RI=1T018:H(I)=1*B:NEXT:PRINT81685,USINGP$)B 

1240 GOSUB1370:GOTO220 

1250 PRINT8160,SPACE$(80) ; : CI=CI+B: PRINT8298 , "*** ODD / EVEN ***" 

1260 PRINT8458,"1 - ODD" : PRINT8618 , "2 - EVEN" 

1270 PRINT877 8, "SELECTION (1,2) "; : INPUTTI: IFTK1ORTI>2THEN127 0ELSE1280 

1280 IFTI=1THENF0RI=1T035STEP2:0(I) =1*B:NEXT: PRINT81717 ,USINGP$;B 

1290 IFTI=2THENFORI=2T036STEP2:0(I)=l*B:NEXT:PRINT81693,USINGP$;B 

1300 GOSUB1370:GOTO220 

1310 PRINT8160,SPACE$(80) ;:CJ=CJ+B:PRINT8298,"*** BLACK / RED ***" 

1320 PRINT8458,"1 - BLACK" : PRINT8618 , "2 - RED" 

1330 PRINT877 8, "SELECTION (1,2) " ; : INPUTTJ: IFTJ<1ORTJ>2THEN133 0ELSE1340 

13 40 IFTJ=1THENB(2)=1*B:B(4)=1*B:B(6)=1*B:B(8)=1*B:B(10)=1*B:B(11)=1*B:B(13)=1*B 

:B(15)=1*B:B(17)=1*B:B(20)=1*B:B(22)=1*B:B(24)=1*B:B(26)=1*B:B(28)=1*B:B(29)=1:B 

( 31) =1*B:B( 33 )=1*B:B( 35) =1*B: PRINT81709 , USINGPS; B 

1350 IFTJ=2THENB(1)=1*B:B(3)=1*B:B(5)=1*B:B(7) =1*B: B ( 9) =1*B:B (12) =1*B:B (14) =1*B: 

B(16)=1*B:B(18)=1*B:B(19)=1*B:B(21)=1*B:B(23)=1*B:B(25)=1*B:B(27)=1*B:B(30)-1*B: 

B(32)=l*B:B(34)=l*B:B(36)=l*BiPRINT81701,USINGP$;B 

1360 GOSUB1370:GOTO220 

1370 FORI=1TO20:PRINT8217+I*80,SPACE$(23) ;: NEXT: RETURN 

13 80 TT=CA+CB+CC+CD+CE+CF+CG+CH+CI+CJ 

13 90 RANDOH:R=RND(38) :GW=L(R) +S (R) +P (R) +R(R) +T(R) +C (R) +D(R) +H (R) +0(R) +B(R) 

1400 REM WHEEL SPIN 

1410 N=0:PRINT8388,AS:PRINT8462,AS:PRINT853 9,AS:PRINTe6 98,AS:PRINTe859,A$:PRINT8 

Listing 2 continues 



:C(13)=2*B:C(16)=2*B:C(19)-2* 

:PRINT81175,USINGPS;B 

:C(14)=2*B:C(17)=2*B:C{20)=2: 
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Line 110 uses INKEY as a direct al- 
phanumeric, whereas line 160 uses input 
to obtain the amount (value) of the bet 
directly as a numeric. You could enter 
the bet using multiple INKEY state- 
ments, but it would be difficult with 
both integer (dollar) and decimal (cents) 
values. 

In this game simulation, you must de- 
termine the way the hands should be 
played. Make this selection in line 140 
(player, bank, or a tie). The bet amount 
is acceptable up to a limit of $999.99 
(line 160). 

Six characters, including the decimal 
point, are allowed for the bet. This 
number is limited by the spacing be- 
tween the locaters on the screen (line 
150, locations for the L$ and R$), and 
your desire to limit losses should 
you lose. 

After you finish betting, card value 
selection starts on line 180, with dealing 
from the preshuffled eight decks in the 
shoe. You cannot select an individual 
card more than once. This is the pur- 
pose of the loopback statements in 
lines 190, 210, 220, 230, and 250 (Rl 
through R6). 

Line 280 contains the simplified 
graphics for the playing layout using 
the vertical string graphics character 
V$ = CHR$(148) and horizontal char- 
acter "150". To write and erase loca- 
tions on the screen for text and 
graphics, use PR1NT@ with appropri- 
ate locations and data type to preclude 
erasing the complete screen and 
rewriting the contents. 

Line 410 contains the subroutine to 
provide the artistic pattern for the card 
back. Line 420 blanks out the card out- 
line front or back, while line 330 pro- 
vides the subroutine to display the card 
value. The subroutine in lines 290-320 
determines the selected card suit during 
the random function operation. 

Scoring of the player and house 
hands occurs in lines 430-760. These are 
structed as subroutines for conven- 
ience. The rules and scoring begin with 
line 770. 

Draw Poker 

This program simulates the latest in 
draw poker gaming machines. The col- 
or is missing, but the action is the same. 

The graphics start on line 110 with 
initialization of certain scoring variables 
and printing of screen playing layout to 
the format used in the casino game. The 
machine accepts only quarters, and you 
can play from one to five quarters for 
each hand (lines 150-170). 

Inserting the chosen number of coins 
brings you to line 180, where you start 

Continues on p. 164 
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ESSENTIAL UTILITY PROGRAMS FOR EVERY TRS-80 OWNER *** 



Facta Mmd Racel 

*** ALL PROGRAMS ARE WRITTEN IN MACHINE LANGUAGE 

"* ABSOLUTELY NO KNOWLEDGE OF MACHINE LANGUAGE IS NECESSARY TO USE ANY OF THE UTILITY PROGRAMS 

*** EACH UTILITY PROGRAM IS CALLED UP FROM BASIC USING THE SIMPLE BASIC COMMANDS PROVIDED 

"• EACH UTILITY PROGRAM COMES WITH A RACET COMPUTES INSTRUCTION MANUAL 

*** EACH INSTRUCTION MANUAL INCLUDES SEVERAL EXAMPLES OF UTILITY USAGE 

*" EACH UTILITY ALLOWS THE USER TO PERFORM CERTAIN BASIC OPERATIONS TEN, TWENTY OR MORE TIMES FASTER THAN THE 

EQUIVALENT BASIC ROUTINE (FOR EXAMPLE, GSF CAN SORT AN ARRAY OF 1000 RANDOM NAMES INTO ALPHABETICAL ORDER IN 

UNDER 9 SECONDS!!) 



GSF (GENERALIZED SUBROUTINE FACILITY) 

• SORTS 1000-ELEMENT ARRAYS IN 9 SECONDS 

• SORTS UP TO 15 ARRAYS SIMULTANEOUSLY (MIXED STRING, FLOATING POINT AND 
INTEGER! 

• SORTS SINGLE OR MULTIPLE SUBSTRINGS AS ASCENDING OR DESCENDING SORT 
KEYS 

• READ AND WRITE ARRAYS TO CASSETTE 

• COMPRESS AND UNCOMPRESS DATA IN MEMORY 

• MOVE ARRAYS IN MEMORY 

• DUPLICATE MEMORY 

• FAST HORIZONTAL AND VERTICAL LINES 

• SCREEN CONTROLS FOR SCROLLING THE SCREEN UP. DOWN. LEFT. RIGHT AND FOR 
GENERATING INVERSE GRAPHIC DISPLAYS 

• ADDS PEEKS AND POKES (MOD-II VERSION ONLY) 



MODEL-I VERSION $25.00 

MODEL-II VERSION , $50 00 

MODEL-III VERSION $30 00 



KFS-80 (KEYED FILE SYSTEM) 

• CREATE ISAM FILES (INDEX SEQUENTIAL ACCESS METHOD) 

• ALLOWS INSTANT ACCESS TO ANY RECORD ON YOUR DISKETTE 

• INSTANTLY RETRIEVE RECORDS FROM MAILING LISTS. INVENTORY. ACCOUNTS 
RECEIVABLE OR VIRTUALLY ANY APPLICATION WHERE RAPID ACCESS IS RE 
QUIRED TO NAMED RECORDS 

• PROVIDES THE BASIC PROGRAMMER THE ABILITY TO RAPIDLY INSERT OR ACCESS 
KEYED RECORDS IN ONE OR MORE DATA FILES 

• RECORDS ARE MAINTAINED IN SORTED ORDER BY A SPECIFIED KEY 

• RECORDS MAY BE INSERTED OR RETRIEVED BY SUPPLYING 1 HE KEY 

• RECORDS MAY BE RETRIEVED SEQUENTIALLY IN SORTED ORDER 

• RAPID ACCESS TO ANY FILE REGARDLESS OF THE NUMBER OF RECORDS 

• MULTIPLE INDEX FILES CAN BE EASILY CREATED WHICH ALLOWS ACCESS OF A 
SINGLE DATABASE BY MULTIPLE KEYS (FOR EXAMPLE. BY BOTH NAME AND ZIP- 
CODE) 

MODEL-I VERSION $100.00 

MODEL-II VERSION $175.00 

MODEL-III VERSION $100.00 



DSM (DISK SORT MERGE) 

• SORT AN 85K DISKETTE IN LESS THAN THREE MINUTES' 

• SORTS LARGE MULTIPLE DISKETTE FILES ON A MINIMUM ONE DRIVE SYSTEM 

• ALL RECORDS ARE PHYSICALLY REARRANGED-NO KEY FILES ARE REQUIRED 

• SORTS RANDOM FILES CREATED BY BASIC, INCLUDING FILES CONTAINING SUB- 
RECORDS SPANNING SECTORS 

• SORTS ON ONE OR MORE FIELDS IN ASCENDING OR DESCENDING ORDER 

• FIELDS MAY BE STIRNGS, INTEGER. BINARY INTEGER OR FLOATING POINT 

• THE SORTEDOUTPUTFILEMAYOPTIONALLY HAVE FIELDS DELETED, REARRANGED 
OR PADDED 

• SORT COMMANDS CAN BE SAVED FOR REUSE 

• SINGLE SORT MERGE OR MIXED SORT/MERGE OPERATIONSMAY BE PERFORMED 

• SORTED OUTPUT MAY BE WRITTEN TO A NEW FILE, OR REPLACE THE ORIGINAL IN- 
PUT FILE. 



MOUEL-I VERSION $75.00 

MODEL-II VERSION $150.00 

MODEL-III VERSION $90.00 



MAILLIST (A MAILING LIST DATABASE SYSTEM) 

• iDEALLY SUITED FOR ORGANIZATION MAILING LISTS, PERSONAL ADDRESSBOOK, 
OR MAILING LISTS BASED ON DATES SUCH AS REMINDERS FOR BIRTHDATES OR 
DUES PAYABLE 

• USED ISAM (INDEX SEQUENTIAL ACCESS METHOD) FOR RAPID ACCESS TIMES 

• YOUR MAILLIST CAN ALWAYS BE SORTED AND MAINTAINED BY UP TO FOUR INDEX 
FILES (FOR EXAMPLE. NAME, ZIPCODE. DATE AND NUMBER) 

• MAILLIST ALLOWS UP TO 30 ATTRIBUTES TO BE SPECIFIED (TO BE USED IN SEL- 
ECTION OF SPECIFIED RECORDS WHEN GENERATING REPORTS OR MAILING 
LABELS 

• MAILLIST SUPPORTS BOTH 5 OR 9-DIGIT ZIPCODES 

• PRINTING MAY BE STARTED OR ENDED AT ANY POINT IN THE LIST. ..THE USER CAN 
SPECIFY FIELDS OR CODES TO BE PRINTED 

• CAPACITY IS 600 NAMES FOR MODEL-I, 3500NAMES FOR MODEL II, 38.000 NAMES FOR 
MODEL II WITH HARD DISK DRIVE 1200 NAMES FOR MODEL III 

MODEL-I VERSION $7500 

MODEL-II VERSION $1 50.00 

MODEL-III VERSION $75.00 
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HSDS HARD DISK DRIVE SOFTWARE 

• MAKES TRSDOS COMPATIBLE WITH MOST HARD DISK DRIVES. 

• ADDS MANY EXTRA FEATURES TO TRSDOS $400 00 



COMPROC (COMMAND PROCESSOR) 

• AUTO YOUR DISK TO PERFORM ANY SEQUENCE OF INSTRUCTIONS THAT YOU 
NORMALLY GIVE FROM THE KEYBOARD (FOR EXAMPLE. INSERT THE DISKETTE. 
PRESS THE RESET BUTTON, YOUR COMMAND FILE COULD AUTOMATICALLY SHOW 
YOU THE DIRECTORY, SHOW THE FREE SPACE ON THE DIKSETTE, LOAD A MA- 
CHINE LANGUAGE SUBROUTINE. LOAD BASIC, LOAD AND RUN A BASIC PROGRAM, 
AND SELECT A GIVEN ITEM ON YOUR MENU ALL WITHOUT TOUCHING THE KEY- 
BOARD^ 

MODEL-I VERSION $20 00 

MODEL-IN VERSION $30.00 

NOT AVAILABLE FOR MODEL-II 



DISCAT (DISKETTE CATALOG SYSTEM) 

• THIS COMPREHENSIVE DISKETTE CATALOGUING/INDEXING UTILITY ALLOWS THE 
USER TO KEEP TRACK OF THOUSANDS OF PROGRAMS IN A CATEGORIZED LI- 
BRARY-FILE INCLUDES PROGRAM NAMES AND EXTENSIONS. PROGRAM LENGTH. 
DISKETTE NUMBERS AND FREE SPACE ON EACH DISKETTE KEEP A COMPLETE 
CATALOG OF THE DIRECTORIES ON ALL YOUR DISKETTES IN ALPHABETICAL 
ORDER (SORTED ON EACH DISKETTE OR COMPLETE ALPHABETICAL LIST OF 
PROGRAMS ON ALL YOUR DISKETTES) 

MODEL-I VERSION $50.00 

MODEL-IN VERSION ■ $50.00 

MODEL-II VERSION (SEE MODEL-II UTILITY PACKAGE) 



BLINK (BASIC LINK FACILITY) 



LINK FROM BASIC PROGRAM TO ANOTHER SAVING ALL VARIABLES 

THE CHAINED PROGRAM MAY EITHER REPLACE THE ORIGINAL PROGRAM OR CAN 

BE MERGED BY STATEMENT NUMBER 



WODEL-I V! RSION 

MODEL-I II VERSION 

MODEL II VERSION ISEE MODEL-II UTILITY PACKAGE) 



$25 00 
$30.00 
.$50.00 



INFINITE BASIC 



• ADDS OVER 80 COMMANDS TO BASIC 

• SORTING. ..STRING CENTERING/ROTATION/TRUNCATION. ..JUSTIFICATION. DATA 
COMPRESSION STRING TRANSLATION/COPYING SCREEN DISPLAY . SCROLL- 
ING MATRIX OPERATIONS. ..SIMULTANEOUS EQUATIONS (THROUGH MATRIX 
INVERSlONl DYNAMIC ARRAY RESHAPING .'.'-J,- 

-.- 

MODEL-i VERSION '• $50.00 

MODEL-MI VERSION ..:. $60.00 

NOT AVAILABLE ON MODEL-II 



INFINITE BUSINESS 



ADD ON PACKAGE TO INFINITE BASIC .REQUIRES INFINITE BASIC) 
ADDS PACKED DECIMAL ARITHMETIC WITH 127 DIGIT ACCURACY (-.0.V) 
COMPLETE PRINTER PAGINATION CONTROLS AUTO HEADERS. FOOTERS AND 

BINARY SEARCH OF SORTED AND UNSORTED ARRAYS (INSTANT SEARCH OF AN 
ELEMENT WITHIN AN ARRAY) 
HASH CODES 



MODEL-I VERSION 

MODEL III VERSION 

NOT AVAILABLE ON MODEL-II 



$30 00 
.$30 00 



REMODEL-PROLOAD 



THE ULTIMATE RENUMBERING PROGRAM RENUMBERS ALL OR PART OF A PRO- 
GRAM (ALLOWS PARTIAL RENUMBERING IN MIDDLE OF PROGRAMS) 
PARTIAL OR COMPLETE MERGE OF TWO CASSETTE PROGRAMS 



MODEL-I VERSION 

MODEL-IN VERSION 

N .T AVAILABLE ON MODEL-II 



$35.00 
.$35.00 



COPSYS 

. COPY AND VERIFY ALL MACHINE LANGUAGE (SYSTEM) TAPES WRITTEN IN STAND- 
ARD FORMAT . IF YOU BUY A MACHINE LANGUAGE PROGRAM. COPSYS ALLOWS 
YOU TO EASILY COPY THE PROGRAM ONTO ANOTHER CASSETTE AS A BACKUP 



MODEL-I VERSION 

MODEL-ill VERSION 

NOT AVAILABLE ON MODEL II 



.$1500 
.$20.00 



FOR DEALER 
INFORMATION CALL: 



^" RACET COMPUTES"^ 



1330 N. GLASSEL, SUITE M, ORANGE CA 92667 
(714) 997-4950 



MODEL II SPEEDUP— FAST DISK I/O 

THIS IS AN ENHANCEMENT FOR TRSDOS 2.0 THAT WILL 
RADICALLY DECREASE DISK ACCESS TIME. 



DISKS BOOT FASTER TO DOS 
IMPROVE DISK I/O UNDER BASIC 



MODEL II ONLY 




MODEL II FASTBACK — FULL DISK BACKUP 
IN 55 SECONDS 

IN BUSINESS TIME IS MONEY. AND ONE BACKUP IS WORTH A THOUSAND TEARS. 

• WORKS ON SYSTEMS WITH 2 OR MORE DRIVES 

• CAN REPLACE YOUR EXISTING TRSDOS 1.2 or 2.0 BACKUP UTILITY 



MODEL II ONLY 



.$75 00 






MODEL-II UTILITY PACKAGE 



ESSENTIAL FOR EVERY MOD-II OWNER 

RECOVER AND REPAIR FILES AND DIRECTORIES (BY JUST ENTERING A SINGLE 
COMMAND) 

XCOPY...SIMILAR TO COPY BUT CAN COPY ANY NUMBER OF FILES AT ONE TIME 
FASTER AND MORE ACCURATE THAN COPY SINCE RECORDS ARE COPIED IN 
GROUPS RATHER THAN ONE RECORDS AT A TIME ..USING XCOPY YOU CAN COPY 
FILES THAT CAN NOT BE COPIED USING THE COPY COMMAND 
SZAP PROVIDES THE CAPABILITY TO READ AND MODIFY ANY SECTOR ON A 
DISKETTE 

XHIT .CAN BE USED TO REPAIR A DISKETTE DIRECTORY 

DCS DIRECTOR CATALOG SYSTEM lo A UTILITY FOR THE MANAGEMENT OF USER 
DISKETTES. SETS OF A MULTIPLE DISKETTE DIRECTORY FILE (WITH UP TO 1200 
INDIVIDUAL FILE NAMES). .ALLOWS SELECTIVELY LISTED OR PRINTED LISTS OF 
DIRECTORY FILES IN COMBINED SORTED ORDER (FOR EXAMPLE. LISTED ALPHA- 
BETICALLY BY DISKETTE. .OR A COMPOSITE ALPHABETICAL LIST OF ALL YOUR 
DISKETTES!) 

DEBUG-N ADDS SEVE.RAL FEATURES TO THE PRESENT TRSDOS DEBUG UTILITY 
INCLUDING SINGLE INSTRUCTION CYCLE. AUTO (LOOP) BREAKPOINTS. SUB- 
ROUTINE CALLING. Bfi§&k-KEY DETECTION AND MANY OTHERS 



MODEL-II ONLY -■ $150 00 



MODEL-II DEVELOPMENT SYSTEM 

• THIS PACKAGE IS A MUST FOR ASSEMBLY LANGUAGE PROGRAMMERS 

• INCLUDES THE MICROSOFT EDITOR ASSEMBLER PLUS WITH ENHANCEMENTS FOR 
THE MODEL-II 

• A COMPLETE DISASSEMBLER 

• SUPERZAP FOR READING AND MODIFY ANY SELECTOR ON A DISKETTE 

MODEL-II ONLY $125.00 



MOD-II BASIC CROSS REFERENCE UTILITY 

• LIST OR PRINT A SORTED CROSS REFERENCE TO ALL NUMBERS OR VARIABLES 
WITHIN A PROGRAM 

• LIST OF PRINT ALL LINE NUMBERS CONTAINING A SPECIFIED STRING OF CHAR- 
ACTERS 

MODEL-II ONLY $50.00 

*" ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE *** 



END USERS 
CALL: 



HOUR 
24 ORDER 
LINE 



•CQMPJTRQNICS 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

NEW TOLL-FREE 
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(914) 425-1535 



DEALER INQUIRIES WELCOME 



ORDER LINE 

(OUTSIDE OF NY STATE) 

(800) 431-2818 

ADD $3.00 FOR SHIPPING IN UPS AREAS 
ADD $4.00 FOR COD. OR NON-UPS AREAS 
ADD $5.00 TO CANADA AND MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U.S., 
CANADA AND MEXICO 
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Continued from p. 160 

the first deal. The border outlines (lines 
210-250) and the random selection of 
the five cards occurs in lines 260-300, 
variables Rl through R5. The face 
values of the cards are within the border 
outlines (subroutine 1220 for suit, and 
subroutine 1210 for printing location). 

At this point, you must decide 
whether to play the hand as it stands or 
to hold specific cards and replace the 
others. This is accomplished in lines 
310-500. Press the numeric keyboard 
keys 1-5 to hold cards one through 
five. If you make a mistake, press C to 
start over. 

For the cards held, the original vari- 
ables Rl through R5 are active and de- 
termine the card value. New variables 
RA through RE replace Rl through R5 
in printing and scoring the card value. 

Next, press D (for draw) to replace 
your cards and start the automatic scor- 
ing process. This begins on line 5 10. The 
numeric array M(52) consists of the 13 
cards in each suit from ace to king. Set 
at 1 to score each of the appropriate 
cards in the final hand. 

When line 40 dimensions the array, 
all locations are set to zero. This array 
determines the value of the hand. Start- 
ing on line 520, the array is tested for a 
royal flush. If it passes, the program 
jumps to line 910 where the type of 
hand is printed on the screen at location 
160 (line 1020), and the value of vari- 
able GW (game winnings) is determined 
from the amount of the bet "M" and 
the odds (250). Then the game conclu- 
sion starts on line 1010. 

If the hand does not contain a royal 
flush, further analysis of the M(52) ar- 
ray contents determines if it meets any 
of the tests for hands of lesser value 
down to none. 

The next test determines if all the 
Cards are in the same suit (lines 540-570 
for hearts, diamonds, clubs, and 
spades— HX, DX, CX, and SX, respec- 
tively). If so, the hand might be a 
straight flush (lines 600-630). If this test 
fails, the sequence falls through to line 
640, which then indicates only a flush 
(GOTO line 950 for winnings and 
display). 

If line 580 determines that all the 
cards are not in the same suit, evalua- 
tion continues at line 650. The array 
contents are tested for a straight (lines 
650-720), four of a kind (line 730), three 
of a kind (lines 740-770), two of a kind 
(lines 780-830), and whether the three 
of a kind and two of a kind are related 
for a full house (line 840) or stand-alone 
for three of a kind (line 840 fall-through), 
or two pair (line 850). 

Lines 860-890 test your hand for a 

164 • 80 Micro, August 1983 



Listing 2 continued 

942,A$:PRINTei028,A$:PRINT895 5,A$:PRINTe87 8,A$:PRINTe719,A$:PRINTe558,A$:PRINT84 
75,A$:PRINT87 8,CHRS(143) 

1420 L=388:GOSUB16 90:L=462:GOSUB1690:L=53 9:GOSUB1690:L=698:GOSUB16 90:L=859:GOSUB 

16 90:L=942:GOSUB1690:L=1028:GOSUB1690:L=955:GOSUB1690:L=878:GOSUB1690:L=719jGOSU 

B16 90:L=558:GOSUB16 90:L=47 5:GOSUB16 90 

1430 IFN>50THEN1440ELSE1420 

1440 IFR=38THENPRINT8387,"00":PRINT81338, "WINNING NUMBER: 00" :GOTO1470 

1450 IFR=37THENPRINT8388,"0":PRINT81338, "WINNING NUMBER: 0":GOTO1470 

1460 PRINT8387,R:PRINT81338, "WINNING NUMBER: "R 

1470 TX=L(R)/5+S(R)/8+P(R)/17+R(R)/35+T(R)/ll+C(R)/2+H(R)+0(R)+B(R) 

1480 TW=TW+GW-TT+TX:HH=5000-TW 

1490 PRINTgl840,"H U S E HAS : " , : PRINT81860 ,USINGUU$;HH; : PRINT81879 , "T T 

AL WINNINGS : * , : PRINT81909 ,USINGUU$ ; TW; 
1500 IF(GW-TT+TX) >0THEN1510ELSEIF (GW-TT+TX) =0THEN1530ELSE1520 

1510 PRINT8160,SPACE$(80) ; : PRINT8160 , "YOU HAVE WON " : PRINT8173 ,USINGU$ :GW-TT+TX: 
GOTO1540 

1520 PRINT8160,SPACE$(80) ; : PRINT8160 , "YOU HAVE LOST " : PRINT817 4 ,USINGU$; TT-GW-TX 
:GOTO1540 

1530 PRINT8160,SPACE$(80) ; : PRINT8160 , "YOU ARE EVEN..." 
1540 PRINT8218,"PLAY AGAIN (Y/N)"> 

1550 I$=INKEY$:IFI$=""THEN1550ELSEIFI$="Y"THEN156 0ELSEIFI$="N"THEN1570ELSE1550 
1560 ERASEL,S,P,R,T,C,D,H,0,B:DIML(38) ,S{38) ,P(38) ,R(38) ,T(38) ,C(38) ,D(38) ,H(38) 
,0(38) ,B(38) :GOTO200 

1570 CLS:PRINT8485,"T HANK YOU FOR PLAYING ROULETTE 
. . .":PRINT8658,"P LEASE COME AGAIN I ": PRINT: PRINT: PRINT: END 
1580 PRINT8240,STRING$(56,150) :PRINT8644 .STRINGS ( 52 ,150) :PRINT@1044 , STRINGS ( 52 ,1 
50) :PRINT81440,STRING$(56,150) : PRINT81604 .STRINGS ( 48,150) : PRINT81764 , STRINGS ( 48 , 
150) :L=240:GOSUB1670:L=248:GOSUB1670:L=252:GOSUB1670:L=256:GOSUB1670:L=26 4:GOSUB 
1670 

1590 PRINT8801, STRINGS (3, 152) : PRINT8880 ,V$: L=268:GOSUB1670 : L=272 :GOSUB1670 :L=280 
:GOSUB1670:L=284:GOSUB1670:L=288:GOSUB1670:L=296:GOSUB1670:L=244:GOSUB1680:L=260 
:GOSUB16 80:L=27 6:GOSUB16 80:L=292:GOSUB16 80 

16 00 PRINT@240,GAS:PRINT@1440,GBS:PRINT@17 64,GB$:PRINT@296,GCS:PRINT@1496,GDS:PR 
INT@1812,GD$ 

1610 FORI=1TO13:PRINT8240+I*4,GU$:NEXT:PRINT814 4 8,GL$:PRINT814 5 2,GL$:PRINT81456, 

GL$:PRINT81464,GL$:PRINT8146 8,GL$:PRINTei472,GL$:PRINT@1480,GL$:PRINT81484,GL$:P 

RINT@14 8 8,GL$:PRINT@17 80,GLS:PRINT@17 96,GL$ 

1620 PRINT81692,V$:PRINT81708,V$:PRINT81724,V$:PRINT81612,GU$zPRINTei772,GL$:PRI 

NT81628, GUS: PRINT 817 88, GL$ : PRINT81644 ,GU$: PRINT81 804, GL$: RETURN 

163 PRINT@562,"00":PRINT@486,"3":PRINT@490,"6":PRINT@494,"9":PRINT@498,"12":PRI 

NT@50 2,"15":PRINT@506,"18":PRINT@510,"21":PRINTe514,"24":PRINT@518,"27":PRINTg52 

2,"30":PRINT8526,"33":PRINT853 0,"36":PRINT@454,"2":PRINTe533,"TO":PRINT8614,"l" 

16 40 PRINT8886,"2":PRINT8890,"5":PRINT8894,"8":PRINT8898,"11":PRINT8902,"14":PRI 

NT@906,"17":PRINT@910,"20":PRINT@914,"23":PRINT@918,"26":PRINT@922,"29":PRINT@92 

6,"32":PRINT@930,"35":PRINT@933,"TO":PRINT@854,"2":PRINT@1014,"1" 

1650 PRINT@1122,"0":PRINT@1286,"l":PRINTei290,"4":PRINT§1294,"7":PRINT@1298,"10" 

:PRINT@1302,"13":PRINT@1306,"16":PRINT@1310,"19":PRINTei314,"22":PRINT@1318,"25" 

:PRINT@1322,"28":PRINT@1326,"31":PRINT@1330,"34":PRINT@1333,"TO":PRINT@1254,"2": 

PRINT81414,"1" 

1660 PRINT81530,"1ST 12" : PRINT81546 , "2ND 12* : PRINT81562 , "3RD 12" : PRINT81687 , "1-1 

8" :PRINT81695, "EVEN" :PRINT81703, "RED" :PRINT81710, "BLACK" :PRINT81719, "ODD": PRINTS 

1726,"19-36":RETURN 

167 FORI=lT01 4: PRINT 8L+I* 80, V$: NEXT: RETURN 

16 80 F0RI=1T01 8 :PRINT8L+I* 80, V$: NEXT: RETURN 

16 90 PRINTgL,S$:GOSUB170 0:PRINT@L,A$:GOSUB170 0: RETURN 

1700 N=N+2:FORI=lTON:NEXT:RETURN 



Program Listing 3. Craps 

10 REM 12-JAN-83 *BDL MODEL II* 

20 REM - PROGRAM CRAPS/BAS 

30 CLS:CLEAR500:A$="*":SS=" " : VS=CHRS ( 148) :GAS=CHR$ ( 128) :GB$=CHR$ ( 131) :GCS=CHR$( 

129) :GD$=CHR$(130) :U$=" #♦###.**" :HH = 5000:W$="M*" 

40 PRINT820, "CRAPS SIMULATION PROGRAM" : PRINT: PRINT 

50 PRINT'CRAPS IS PROBABLY THE MOST WIDELY PLAYED CASINO GAME IN THE UNITED STAT 

ES.": PRINT: PRINT" IT PROVIDES THE FASTEST OPPORTUNITY TO MAKE MONEY, AS DECISIONS 

ON MANY BETS" 
60 PRINT'ARE MADE IN SECONDS WITH EVERY TOSS OF THE DICE1": PRINT 
70 PRINT" INSTRUCT IONS REQUIRED (Y/N)"; 

80 I$=INKEY$:IFI$=""THEN80ELSEIFI$="Y"THEN90ELSEIFI$="N"THEN220ELSE80 
90 CLS:PRINT@25,"*«* RULES OF CRAPS ***":PRINT 

100 PRINT"YOU CAN BET 'WITH' THE SHOOTER OR 'AGAINST' THE SHOOTER. ": PRINT 
110 PRINT'A 7 OR 11 ON THE FIRST TOSS WITH-WINS, AGAINST-LOSES . " 

120 PRINT: PRINT'YOU CAN ALSO WITH-WIN, AGAINST-LOSE, BY TOSSING A 4, 5,6, 8, 9, OR 1 
AND MATCHING": PRINT" IT BEFORE TOSSING A 7.": PRINT" 
130 PRINT'IF A 2, 3, OR 12 COMES UP ON THE FIRST TOSS, YOU WITH-LOSE, AGAINST-WIN, 

140 PRINT'AUTOMATICALLY." 

150 PRINT: PRINT'WHITE (W) CHIPS ARE WORTH SI . 00" ; : PRINTTAB ( 40) "ORANGE (O) CHIPS 

ARE WORTH $2.00" 

160 PRINT"RED (R) CHIPS ARE WORTH S5 . 00" ;: PRINTTAB ( 40) "GREEN (G) CHIPS ARE WORTH 

$25.00" 
170 PRINT'BLACK (B) CHIPS ARE WORTH $100 . 00" ; : PRINTTAB ( 40) "MINIMUM BET IS $1.00" 
180 PRINT: PRINT"RULES FOR COME, PLACE, AND FIELD BETS ARE CONVENTIONAL. WINNING 

' PLACE '*:PRINT"BETS PAY: 4,10 9-TO-5; 5,9 7-TO-5; 6,8 7-TO-6 .": PRINT 
190 PRINT'ONLY ONE STACK OF A SINGLE VALUE (COLOR) CHIP CAN BE USED FOR A SINGLE 

BET.": PRINT 
200 PRINT'FOR COME, PLACE, AND FIELD BETS: W=WIN, L=LOSE, N=NO SCORE, S=STANDOFF. 
": PRINT 

210 PRINT"GOOD-LUCK...ENJOY PLAYING! "; : INPUT"WHEN READY TO PLAY, DEPRE 

SS <ENTER>";Q$ 

220 CLS:CS=0:PS=0:FS-0:PL=0:DL=0:PRINT"C ASINO CRAP S" :K=K+1 :PRINT@66 , " 
GAME :":PRINT876,K:PRINTCHR$(2) ; :GOSUB890 : PRINTCHRS (1) ; 

230 I$-"":PRINT@160, "SELECT TYPE OF BET (P PASS-LINE/D DON'T PASS-LINE)"; 
240 IS=INKEYS:IFIS=""THEN240ELSEIFIS="P"THENPL=0:PRINT8524,A$:GOTO250ELSEIFI$="D 
"THENPL=l:PRINTg6 84,A$:GOTO250ELSE2 40 

250 PRINT8160,STRINGS(60," ") :PRINT8160 , "ENTER NUMBER OF CHIPS (1-9)"; 
260 I$=INKEY$:IFI$=""THEN260ELSEIFI$>"0"ANDI$<="9"THENBN=VAL(I$) :GOTO270ELSE260 
270 PRINT8160,STRING$(60," ") :PRINT8160 , "ENTER VALUE (COLOR) OF CHIPS"; 
280 I$=INKEY$:IFI$=""THEN280ELSEIFI$="W"THENB=1:GOTO290ELSEIFI$="O"THENB=2:GOTO2 
90ELSEIFI$="R"THENB=5:GOTO290ELSEIFI$="G"THENB=25:GOTO290ELSEIFI$="B"THENB=100:G 
OTO290ELSEPRINT@320,"USE VALID CHIPS ONLY, PLEASE. .."; :GOTO280 
290 B=BN*B:PRINT@320,STRING$(40," ") 
300 IFPL=0THENPRINT8556,USINGW$;BELSEPRINT8716,USINGW$;B 
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Listing 3 continued 

310 RAND0M:D1=RND(6) :D2=RND(6) :D3=D1+D2 , n„,.-™, e „i, 

320 PRINTgl60,STRINGS(60 r ' " ) :PRINT8160 , "COME-OUT TOSS : PRINTCHRS ( 2) ; 

330 L=727:GOSUB813:OND1GOSUB830,840,850,860,870,880 

340 L=740:GOSUB810:OHD2GOSUB830, 840, 850, 860, 870, 880: PRINTCHRS (1); 

350 IFD3=7ORD3=11THEN380 

360 IFD3=2ORD3=3ORD3=12THEN390 

370 PRINT@320,"THE POINT IS "D3:GOTO400 , = „«,«,,»«» i 

380 PRINT§320,"A NATURAL - "D3 ; : IFPL=0THENPRINT@332, "TOU WIN I : GOTO7 50ELSEIFPL-1 

=1THENPRINT@328,"Y0U WIN" :GOTO750 

400 CL=0- RANDOM: D4=RND (6) :D5=RND(6) :D6=D4+D5 «»-_■ 

410 PRINTgl6 0," SELECT TYPE OF BET (C COME/D DON'T COME), <ENTER> TO SKIP" , 

420 IS=INKEY$ IFIS="THEN420ELSEIFIS="C-THENCL=0:PRINT@844,A?:GOTO430ELSEIFIS=-D 

-THENCL=l:PRINTei004,A$:GOTO430ELSEIFlS=CHR$(13)THEN490ELSE420 

430 CS=1:PRINT@160,STRINGS(60," "): PRINT8160 , "ENTER NUMBER OF CHIPS (1-9)"; 

440 I$=INKEY$-IFI$=""THEN440ELSEIFI$>"0"ANDI$<="9"THENMN=VAL(IS) : GOTO450ELSE440 

450 PRINT@160,STRINGS(60," "): PRINTS160 , "ENTER VALUE (COLOR) OF CHIPS"; 

460 i $ =INKEYsilFlS=""THEN460ELSEIFlS='W"THENM=l:GOTO470ELSEIFI5="O"THENM=2:GOTO4 

70ELSEIFI$="R"THENM=5:GOTO470ELSEIFIS="G"THENM=25:GOTO470ELSEIFIS="B"THENM=100:G 

OTO470ELSEPRINTg320,"USE VALID CHIPS ONLY, PLEASE ...";: GOTO450 

470 M=MN*M:PRINT@320,STRING$(40," ") 

480 IFCL=0THENPRINT@876,USINGWS;MELSEPRINT@1036,USINGWS;M 

490 PRINT@160,STRINGS(60," "): PRINT@160 , "ENTER NUMBER OF PLACE BET CHIPS (1-9), 

50 I$=INKEY$:IFI$=""THEN500ELSEIFI$>"0"ANDI$<="9"THENPN=VAL(I?) : GOTO510ELSEIFIS 

=CHR$(13)THEN560ELSE500 

510 PS=1:PRINT@1164,A$:PRINT@160,STRING$(60," "): PRINT@160 ," ENTER VALUE (COLOR) 

520 C IS=INKEY$:IFI$=""THEN520ELSEIFIS="W"THENP=1:GOTO53 0ELSEIFI5=*O"THENP=2:GOTO5 
30ELSEIFI$="R"THENP=5:GOTO530ELSEIFIS="G"THENP=25:GOTO53 0ELSEIFIS="B"THENP=100:G 

OTO530ELSEPRINT@320,"USE VALID CHIPS ONLY, PLEASE ...";: GOTO510 „„„„,„„ 

530 P=PN*P:PRINT@1196,USINGWS;P:PRINT@160,STRING$(60," "): PRINT8160 , "ENTER PLACE 

NUMBER DESIRED (4-6, 8-9, A FOR 10)"; .„. m „ m ,„„ m.irt 

540 I$=INKEYS:IFIS=""THEN540ELSEIFI$>"3"ANDI$<"7"ORI$>"7"ANDIS<="9"THENCZ=VAL(IS 

) ELSEIFIS="A"THENCZ=10ELSE540 

550 PRINTgll76,USINGWS;CZ:PRINT@320,STRINGS(40," ") 

560 PRINT§160,STRINGS(60," "): PRINT@160 ," ENTER NUMBER OF FIELD BET CHIPS (1-9), 

570 T I$=INKEY$:IFIS=""THEN570ELSEIFIS=CHRS(13)THEN610ELSEIFIS>"0"ANDI$<="9"THENFX 

=VAL(IS) :GOTO580ELSE570 

580 FS=1:PRINT@1324,AS:PRINT@160,STRING$(60," ") :PRINT§160 , "ENTER VALUE (COLOR) 

590 IS=INKEY$:IFI$=""THEN590ELSEIFI$="W"THENF=1:GOTO600ELSEIFI$="O"THENF=2:GOTO6 

00ELSEIFIS="R"THENF=5:GOTO6 00ELSEIFIS="G"THENF=25:GOTO600ELSEIFIS="B"THENF=100EL 

SEPRINTg320,"USE VALID CHIPS ONLY, PLEASE ...";: GOTO580 

600 F=FX*F:PRINT@1356,USINGWS;F:PRINT@320,STRING$(40," ") 

610 L=727:GOSUB820:PRINT@160,STRINGS(60," "): PRINTS160 , "SECOND TOSS 

6 20 L=7 27 :GOSUB810:OND4GOSUB83 0,840, 850 ,86 0,87 0,880 
63 L=740:GOSUB810:OND5GOSUB83 0,840, 85 0,86 0,87 0,8 80 

640 IFD6=D3THEN650ELSE660 . . 

650 PRINT?320,STRINGS(30," "): PRINT@320 , "POINT MADE" ; : IFCL=0THENPRINT@330 , , P/L 
WINS BY MATCHING1":PRINT?842,"W":GOTO670ELSEPRINT§330,", SORRY, P/L LOSES :PRIN 

660 pRINTe320,STRINGS(30," "): PRINT8320 , "POINT NOT MADE" ; : IFCL=0THENPRINT@334 , " , 
SORRY, P/L LOSES":B=-B:DL=l:PRINT@842,"L"ELSEPRINT?334,", P/L WINS BY MATCHING! 

" • PRINT@1002 § "W" 

67 IFDL=1THENIFCL=1THENIFD6=12THENM=0:PRINT@1002,"S"ELSEM=-M:PRINT@1002,"L" 

680 IFCZ=D6THEN690ELSEPRINT@1162,"L":GOTO710 „,,,-, 

690 IFD6=2ORD6=3ORD6=12THENPT=0:PRINT@1162,"N"ELSEIFD6=7THENPT=-P:PRINT@1162, L 
700 IFD6=4ORD6=10THENPT=9*P/5:PRINT@1162,"W"ELSEIFD6=5ORD6=9THENPT=7*P/5:PRINT@1 

162,"WELSEIFD6 = 60RD6 = 8THENPT=7*P/6:PRINTgll62,"W" 

710 IFD6=50RD6=60RD6=70RD6=8THENFT=-F:PRINT@1322,"L"ELSEFT=F:PRINT@1322, W 

7 20 IFCS=0THENPRINT@842,S$:PRINT@1002,SS 
730 IFPS=0THENPRINT@1162,S$ 

740 IFFS=0THENPRINTgl322,SS 

750 TW=TW+B+M+PT+FT:HH=50 0-TW 

760 PRINT§176fl,"H S E HAS : "USINGU$,-HH :PRINT@1800 , "T OTAL WINNI 

N G S :"USINGU$;TW 
770 PRINT@1520,"DO YOU WANT TO PLAY AGAIN (Y OR N)"; 
7 80 I$=INKEY$:IFI$=""THEN7 80ELSEIFI$="Y"THEN220ELSEIFI$="N"THEN7 90ELSE7 80 

790 CLS:PRINT@818, "CRAPS SAYS GOOD-BYE COME AGAIN11!" 

800 PRINT:PRINT:END „ , 

810 PRINT@L,GA$:PRINT@L+1, STRINGS (7, 150) : PRINT@L+8,GC$: PRINTgL+320 ,GBS: PRINT@L+3 
21, STRINGS (7, 150) : PRINT6L+328 ,GDS: F0RI=1T03 : PRINT@L+I*80 ,VS: NEXT: F0RI=1T03 : PRINT 

@L+8+I*80,V$:NEXTsRETURN 

820 FORI=lTO5:PRINT@L-80+I*80,SPACES(22) ; :NEXT:RETURN 

830 PRINT@L+164,A$:RETURN 

840 PRINT@L+82,AS:PRINT@L+246,AS:RETURN 

85 PRINT@L+82,A$:PRINT@L+16 4,A$:PRINT@L+246,AS:RETURN 

860 PRINT@L+82,"* *" :PRINT@L+242, " * *";RETURN 

870 PRINT@L+82,"* *" : PRINT@L+164 , AS : PRINTgL+242 , "* *":RETURN 

880 PRINTgL+82,"* ** : PRINT@L+162 , " * *" : PRINT@L+242, "* *":RETURN 

890 PRINTS4 80, GAS :PRINT@4 81, STRING 5(35,150) : PRINT@516 ,GCS: PRINT&1280 ,GB$: PRINT91 

281, STRINGS (3 5, 150) : PRINT@1316 ,GDS: F0RI=1T09 : PRINT@480+I*80 ,VS:NEXT: F0RI=1T09 i PR 

INT§516+I*80,VS:NEXT 

900 PRINTS372,"- -BETS- -" : PRINT@526 , "P ASS LINE :":PRINT@ 

686, "D ON'T PASS LINE : " :PRINT@846 , "C M E* : PRINT0874 , " : " : PRINT@1006 

,"D N'T COME :" 

910 PRINT@1166,"P LAC E" :PRINT@1194 , " : " : PRINT31326 ,"F I E L D" : PRINT@1354," ! " : 

RETURN 



Program Listing 4. Blackjack 

10 REM 13-JAN-83 *BDL MODEL II* 

20 REM - PROGRAM BLACK JAK/BAS 

30 CLS:CLEAR500:PRINT@20, "BLACKJACK SIMULATION PROGRAM" : PRINT: PRINT 

40 DIMM(208) ,MS(208) : V$=CHR$ (148) :GAS=CHR$ ( 128) :GBS=CHRS (131) : GCS=CHRS ( 129) :GDS= 

CHRSU30) :US = "***.M":UUS="t#**M.M":HH = 5000 

50 MS(1)="A":MS(14)="A":MS(27)="A":MS(40)=*A":MS(11)="J":MS(24)-"J":MS(37)="J":M 

S(50)="J":MS(12)="Q":MS(25)="Q":MS(38)="Q":MS(51)="Q":M$(13)="K":MS(26)="K":MS(3 

60~FORi = 2TO10:M(I)=I:MS(D=STRS(I) :NEXT: FORI = 15T023 :M ( I) =1-13 : MS ( I) =STR$ ( 1-13) :N 
EXT:FORI=28T036:M(I)=I-26:MS(D=STRS(I-26) :NEXT:FORI=41T049 :M ( I) =1-39 :MS( I) =STRS 

Listing 4 continues 
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Buy Direct and Save 

• 5V4 SS and DS Diskettes 

• Soft Sector Format Only 




MICROSETTE CASSETTES 

• Error-Free Computer Grade 

• Industry Leader Since 1977 



For Tandy, Apple, Osborne, 
IBM, Atari, Texas Instruments, 
Commodore, Timex, Kaypro, 
Sinclair and Many Others. 



CASSETTES 



Item 



C-10 



c ?0 
C 60 
C-90 



10 Pack 



$ 7.50 



9.00 



11.00 



15.00 



Qty 



50 Pack 



S32 50 



39.00 



50.00 



70.00 



Qty 



Total 



DISKETTES 5V«-lnch 



SSDD S25 



DSDD 35.00 



$100.00 



150.00 



Subtotal 



Shipping & Handling 



Calif. Cust. add Sales Tax 



Total 



N/C 



G Shipping Address Enclosed 
U Check Enclosed 
□ Visa lj MasterCard 
Card # 



Exp. Date 
Signature._ 



■ See List of Advertisers on Page 323 



MICROSETTE CO. 

475 Ellis St. Dept. 2 

Mountain View, CA 94043 

(415) 968-1604 
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pair of jacks or better. If the array con- 
tents fail all the tests, line 900 directs the 
jump to the fate of all unsuccessful 
players: line 1000 with the bad news that 
you've lost. 

Line 1050 gives you a chance to play 
again. The M(52) scoring array is erased 
and then redimensioned prior to the 
jump to line 110 for a new start. 

Four-Card Monte 

Four-card monte is a card game 
played in the gambling halls of the old 
West. Its rules are simple, and no real 
skill is required. 

The program's first prompt asks if 
you need instructions. Persons unfamil- 
iar with monte should read the rules for 
help in placing bets and understanding 
scoring. 

Your first choice is whether to place a 
bet on the bottom layout, top layout, or 
both (line 320). If you choose the bot- 
tom layout by entering B, line 340 indi- 
cates this selection by placing the group 
<***> below the bottom layout cards 
and prompting you to fill in the amount 
of your bet. 

Line 360 asks for the number of chips 
you wish to bet. After you enter the 
number (from one to nine), line 380 
asks for the value of each chip. 

The bottom line of the screen displays 
the value of each chip by color (string 
variable CV$, line 320). The value ap- 
pears below the chosen layout: The 
dollar value of the bet replaces the 
asterisks. 

Next, the program jumps to line 550 
to ask if you will also make a bet on the 
top layout by entering T, or draw the 
gate card and play only the one bet by 
pressing enter. You can bet on either or 
both layouts in either order. 

The RND(52) statement in line 630 
selects the gate card, and line 650 starts 
the scoring evaluation. The four cards 
for the two layouts are selected in lines 
280-310 using array M$(52) for card 
identification and array M(52) for card 
usage. 

In line 70, setting any card location 
equal to 1 precludes selection in the ran- 
dom selection program statements (lines 
280, 290, 300, 310, and 630). This ex- 
cludes 8s, 9s, and 10s. 

After scoring the first pair of layouts, 
line 680 and the play counter subroutine 
(line 810) allow another pair of layouts 
and betting until the card deck is 
depleted. Each pack contains 40 cards 
and five cards are used per play, so there 
are eight plays. ■ 

Byron Lott can be reached at 913 In- 
verness Way, Sunnyvale, CA 94087. 
166 • 80 Micro, August 1983 



Listing 4 continued 

(1-39) :NEXT 

70 PRINT-BLACKJACK USUALLY HAS MORE TABLE SPACE ALLOCATED TO IT THAN ANY OTHER G 
AHE":PRINT"IN THE CASINO." 
80 PRINT: PRINT"THE MODERN GAME HAS DEVELOPED FROM THE ANCIENT GAME OF '21'.*iPRI 

90 PRINT"STANDBY...THE CROUPIER IS NOW SHUFFLING THE CARDS AND LOADING THE 'SHOE 
'.": PRINT 

100 M(1)=11:M(14)=11:M(27)=11:M(40)=11:M(11)=10:M(24)=10:M(37)=10:K(50)-10:M(12) 
=10:M(25)=10:M(38)=10iM(51)=10:M(13)=10:M(26)=10:M(39)=10:M(52)=10 
110 F0RI=1T03:F0RJ=1T052:M(I*52+J)=M(J) :M$( I*52+J) =M$ ( J) :NEXT:NEXT 
120 PRINT" INSTRUCTIONS REQUIRED (Y/N)"; 

130 I$=INKEY$zIFI$=""THEN130ELSEIFI$="Y"THEN140ELSEIFI$="N'THEN450ELSE130 
140 CLS:PRINT§25,"*** RULES OF BLACKJACK ***" : PRINT:PRINT 

150 PRINT'The computer, as the Dealer, deals two cards to itself and two cards t 
o the 

160 PRINT'Player." 
170 PRINT 

180 PRINT'The Player's two cards are shown face 
's cards" 

190 PRINT'is shown." 
200 PRINT 

210 PRINT'Both the Dealer and the Player may dr 
220 PRINT'The Player's goal is to reach 21 or 1 
Dealer's hand." 

230 PRINT: PRINT" If the Player's or the Dealers hand totals greater than 21, eith 
er is BUSTED J" 

240 PRINT"Face cards all count as 10 points." 

250 PRINT:PRINT"A11 other cards, except the ACE, count as their face value." 
260 PRINT: PRINT'The ACE counts as 11 unless this would cause the hand to be over 

270 PRINT" in this case the ACE counts as 1." 

280 PRINT"If both the dealer and the player get BLACKJACK, (21), neither wins, i 

t is 

290 PRINT'a PUSHI" 

300 PRINT: INPUT'When ready to continue, depress <ENTER>";Q$ 

310 PRINT:PRINT"If the Dealer's hand is below or equal to 16, Dealer must DRAW: 

after 17 Dealer must STAND." 

320 PRINT'To receive a card you want a HIT." 

330 PRINT: PRINT'To stop where you are, you STAND. 



up, while only one of the Dealer 



aw additional cards." 

ess, but be closer to 21 than the 



you return your cards and lose half 



L A C K J 



350 PRINT"Should you choose to 'Surrender' 

?our bet." 
60 PRINT: PRINT-WHITE (W) CHIPS are worth $1.00" 
370 PRINT'ORANGE (O) CHIPS are worth $2.00" 
380 PRINT'RED (R) CHIPS are worth $5.00" 
390 PRINT'GREEN ( G) CHIPS are worth $25.00" 
400 PRINT'BLACK (B) CHIPS are worth $100.00" 
410 PRINT: PRINT'Miniraum bet is $1.00" 
420 PRINT:PRINT 

430 PRINT"*** GOOD-LUCK ENJOY THE GAME ! 11 1! ***" 

440 PRINT: INPUT'When ready to play depress <ENTER>";Q$ 

450 DX=0:IX=0:DB=0:IB=0:R8=0:R3=0:R4=0:R5=0:CLS:PRINT"C A S I N O 

A C K":PRINT@62,"G A M E : " : K=K+1 :PRINTg72,K 

460 PRINTCHR$(2) ; :GOSUB1150:PRINT@333,"P L A Y E R' : PRINT8373 , "D E A L E R" 

470 PRINTCHRS(l) ;:PRINT§160, "PLACE YOUR BET... ENTER NUMBER OF CHIPS (1-9)"; 

480 I$=INKEY$:IFI$="THEN480ELSEIFI$>"0"ANDI$<='9'THENBN=VAL(I$) : GOTO4 90ELSE480 

490 PRINT8160, STRING$(60, 32) :PRINT§160, "ENTER VALUE (COLOR) OF CHIPS"; 

500 I$=INKEY$:IFI$="THEN500ELSEIFI$="W"THENB=1:GOTO510ELSEIFI$="O"THENB=2:GOTO5 

10ELSEIFI$="R"THENB=5:GOTO510ELSEIFI$="G"THENB=25:GOTO510ELSEIFI$="B"THENB=100:G 

OTO510ELSEPRINT@200,"USE VALID CHIPS ONLY, PLEASE. .."; :GOTO500 

510 B=BN*B:PRINT@1061,"O BET: ": PRINT81069 ,USINGU$;B: PRINT8160 , SPACES ( 80) ; 

520 RANDOM:R1=RND(208) :L=562:T$=M$ (Rl) : RX=Rl :GOSUB1160:GOSUB1210 : L=643 :GOSUB1200 

530 R6=RND(208) : IFR6=R1THEN530ELSEL=602:GOSUB1210 : L=6 83 :GOSUB1220 

540 R2=RND(208) : IFR2=R1ORR2=R6THEN540ELSEL=571 :T$=M$(R2) : RX=R2:GOSUB1160:GOSUB12 

10:L=652:GOSUB1200 

550 R7=RND(208) : IFR7=R1ORR7=R6ORR7=R2THEN550ELSEL=611 :T$=M$(R7) : RX=R7 :GOSUB116 0: 

GOSUB1210:L=6 92:GOSUB1200 

560 PRINT880, STRINGS (20, 32) :PRINTCHR(1) ; : IF (M (Rl) +M (R2) ) =2lAND (M (R6) +M(R7) ) <>21T 

HENGOSUB1240:GOTO580ELSEIF(M(R1)+M(R2))=21AND(M(R6)+M(R7) ) =2lTHENGOSUB1240 :GOT05 

90 

570 GOTO600 

580 PRINT@160,"B L A C K J A C K...YOU WIN 1 " :GW=B:GOTO1080 

590 PRINT@160,"P U S H NEITHER WINS' :GOTO1080 

600 IFM(R7)=33THEN630 

610 PRINT@160, "SELECT: C-CONTINUE, D-DOUBLE DOWN, S-SURRENDER"; 

620 I$-=INKEY$:IFI$=""THEN620ELSEIFI$="C"THEN650ELSEIFI$="D"THEN670ELSEIFI$=*S"TH 

EN780ELSE620 

630 PRINT8160, "SELECT: C-CONTINUE, D-DOUBLE DOWN, I=INSURANCE, S-SURRENDER"; 

640 I$=INKEY$:IFI$="THEN640ELSEIFI$="C"THEN650ELSEIFI$="D"THEN67 0ELSEIFI$="I"TH 

EN730ELSEIFI$="S"THEN7 80ELSE6 40 

650 PRINT8160, SPACES ( 80) ;:PRINT8160, "SELECT H-HIT OR S-STAND"; 

660 I$=INKEY$:IFI$=""THEN660ELSEIFI$="H"THEN7 90ELSEIFI$="S"THENGOSUB800:GOTO890E 

LSE660 

670 PRINT8160, SPACES ( 80) ; : PRINT8160 , "PLACE YOUR DOUBLE BET... ENTER NUMBER OF CHI 

PS (1-9)"; 

680 I$=INKEY$:IFI$=""THEN680ELSEIFI$>"0"ANDIS<="9"THENDN=VAL(I$) :GOTO6 90ELSE6 80 

690 PRINTS160, STRING$(60, 32) :PRINT@160, "ENTER VALUE (COLOR) OF CHIPS"; 

700 I$=INKEY$:IFI$=""THEN700ELSEIFI$="W"THENDB=1:GOTO710ELSEIFI$="O"THENDB=2:GOT 

O710ELSEIFI$="R"THENDB=5:GOTO710ELSEIFI$="G"THENDB=25:GOTO710ELSEIFI$="B"THENDB= 

100:GOTO710ELSEPRINT8200,"USE VALID CHIPS ONLY, PLEASE. .."; :GOTO700 

710 DX=1:DB=DN*DB:PRINT§1141,"D BET: " : PRINT§114 9,USINGU$;DB: PRINT8160 .SPACES ( 80) 

720 GOTO650 

730 PRINT@160,SPACE$(80) ;:PRINT§160, "PLACE YOUR INSURANCE BET. ..ENTER NUMBER OF 

CHIPS (1-9)"; 

740 I$=INKEY$:IFI$=""THEN740ELSEIFI$>"0"ANDI$<="9"THENIN=VAL(I$) :GOTO750ELSE7 40 

750 PRINT8160, STRING$(60, 32) :PRINT§160, "ENTER VALUE (COLOR) OF CHIPS"; 

760 I$=INKEY$:IFI$=""THEN760ELSEIFI$="W"THENIB=1:GOTO770ELSEIFI$="O"THENIB=2:GOT 

O770ELSEIFI$="R"THENIB=5:GOTO77 0ELSEIFIS="G"THENIB=25:GOTO770ELSEIFI$="B"THENIB- 

100:GOTO770ELSEPRINT@200,"USE VALID CHIPS ONLY, PLEASE. .."; :GOTO760 

770 IX=1:IB=IN*IB:PRINT@1221,"I BET: ": PRINTS1229 ,USINGU$; IB: PRINT8160 , SPACES ( 80) 

780 PRINT6160, "PLAYER CARDS ARE RETURNED. . .HALF OF BET IS FORFEIT" : GW=-B/ 2 :GOSUB 

1240:GOTO1080 

790 RANDOM:R3=RND(208) : IFR3=R1ORR3=R2ORR3=R6ORR3=R7THEN790ELSEL=581 : T$=M$ (R3) : RX 

=R3:GOSUB1160:GOSUB1210:L=662:GOSUB1200:GOSUB800:GOTO820 

800 IFM(R6)+M(R7) <=16THEN810ELSE830 

810 RANDOM :R8=RND (208) : IFR8=R1ORR8=R2ORR8=R3ORR8=R4ORR8=R5ORR8=R6ORR8=R7THEN810E 



Listing 4 continues 
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LSEL=621:TS=M$(R8) : RX=R8:GOSUB1160 :GOSUB1210 : L=702 : GOSUB1200 : RETURN 

820 IFDX=1THEN890 

830 PRINTgl60,SPACE$(80) ;:PRINT@160, "SELECT H-HIT OR S-STAND"; 

840 I$=INKEYS:IFIS=""THEN840ELSEIFIS="H-THEN850ELSEIFIS="S"THEN890ELSE840 

850 RANDOH:R4=RND(208) : IFR4=R1ORR4=R2ORR4=R6ORR4=R7THEN850ELSEL=590: T$=MS (R4) :RX 

=R4:GOSUB116 0:GOSUB1210:L,=671:GOSUB1200 

860 PRINT@160,SPACES(80) ; :PRINTgl60, "SELECT H-HIT OR S-STAND"; 

870 IS=INKEYS:IFI$=""THEN87 0ELSEIFI$="H"THEN880ELSEIFI$="S"THEN890ELSE87 

880 RANDOM :R5=RND( 20 8) : IFR5=R1ORR5=R2ORR5=R3ORR5=R6ORR5=R7THEN880ELSEL=104 2: T$=M 

$(R5) :RX=R5:GOSUB116 0:GOSUB1210:L=1123:GOSUB120 

890 PS=M(Rl)+M(R2)+M(R3)+M(R4)+M(R5) : IFPS<=21THEN950 

900 IFM(R1)=11THENM(R1)=1:GOTO890 

910 IFM(R2)=11THENH(R2)=1:GOTO890 

920 IFM(R3)=11THENM(R3)=1:GOTO890 

930 IFM(R4)=11THENM(R4)=1:GOTO890 

940 IFM(R5) =11THENM(R5)=1:GOTO890 

950 DS=M(R6)+M(R7)+M(R8)+M(R9) : IFDS<=21THEN1000 

960 IFM(R6) =11THENM(R6) =1:GOTO950 

970 IFM(R7)=11THENM(R7)=1:GOTO950 

980 IFM(R8)=11THENH(R8)=1:GOTO950 

990 IFM(R9)=11THENM(R9)=1:GOTO9 50 

10 00 IFPS>21THENIFDS<=21THENB=-B:DB=-DB:PRINT@16 0,STRINGS(60,32) : PRINT@160 , " YOU 

ARE BUSTED!":GOTO1060 

1010 IFDS>21THENPRINT@160,STRINGS(60,32) : PRINT@160 , "DEALER BUSTED. ..": GOT01 060 

1020 IFPS=21ANDDSO21THENPRINT@160,STRINGS(60,32) : PRINT@160 , "BLACKJACK. . .YOU HAV 

E WON. . .':GOTO1060 

1030 IFPS=DSTHENB=0:DB=0:PRINT§160,STRINGS(60,32) : PRINT@160 , "PUSH. ..NEITHER WINS 

...":GOTO10 50 

1040 IF(21-PS) <(21-DS)THENPRINTgl60,STRINGS(60,32) : PRINT@160 , "YOU HAVE WON 

iGOTO1060ELSEB=-B:DB=-DB:PRINT@160,STRING$(60,32) : PRINT@160 , "YOU HAVE LOST..." 
1050 IFDS=21THENIFIX=1THENIB=2*IB:PRINT@160,STRING$(60,32) : PRINT@160 , "DEALER HAS 

BLACKJACK... INSURANCE BET WINS" ELSEIB=-IB : PRINT8160 , "STRINGS ( 60 , 32) :PRINT@160," 
DEALER HAS BLACKJACK..." 
1060 GW=B+DB+IB 
1070 GOSUB1240 
1080 TW=TW+GW:HH=5000-TW 

1090 PRINT01381, "GAHE":PRINT@1461, "TOTAL: "USINGUU$;GW 
1100 PRINT@1760,"H U S E HAS : "USINGUUS ; HH : PRINT@1800 , "T OTAL WINN 

I N G S :"USINGUU$;TW 
1110 PRINT@1482,"Do you want to play again (Y/N)"; 
1120 I$=INKEYS:IFI$=""THEN1120ELSEIFI$="Y"THEN4 50ELSEIFI$="N"THEN113 0ELSE1120 

1130 CLS:PRINT@495, "BLACKJACK says GOOD-BYE COME AGAIN111" 

1140 PRINT: PRINT: END 

1150 FORI=1TO14:PRINT@400+I*80,V$: NEXT: F0RI=1T^14 : PRINT@439+I*80 , VS: NEXT :F0RI=1T 

014 : PRINT§440 + I * 80, VS: NEXT: F0RI = 1T01 4 :PRINT@47 9+I*C0,VS: NEXT :PRINT@400, STRINGS (8 

0,150) :PRINT@1600,STRING$(80,150) :RETURN 

1160 IFRX>0ANDRX<14ORRX>52ANDRX<66ORRX>104ANDRX<118ORRX>156ANDRX<170THENB$="HEAR 

TS " : RETURN 

1170 IFRX>13ANDRX<270RRX>65ANDRX<790RRX>117ANDRX<1310RRX>169ANDRX<183THENB$="DIM 

NDS": RETURN 

1180 IFRX>26ANDRX<40ORRX>7 8ANDRX<92ORRX>130ANDRX<144ORRX>182ANDRX<196THENB$= CLU 

BS": RETURN 

1190 BS="SPADES":RETURN 

1200 PRINT@L,T$:PRINTgL+80,BS:RETURN „„_ 

1210 PRINTCHR$(2) ;: LT=L+7 : PRINT@L, GAS: F0RI=1T03 : PRINT@L+I*80 ,VS: NEXT: PRINTSL+320 

,GBS:PRINT@L+7,GCS:FORI=1TO3:PRINT@LT+I*80,VS:NEXT:PRINT@L+327,GDS:PRINT@L+1,STR 

INGS(6,150) :PRINT@L+321,STRING$(6,150) : PRINTCHRS (1) ;:RETURN 

1220 PRINTCHRS ( 2) ; : PRINTgL,"* * * " : PRINT8L+80 , " * * *" : PRINT@L+160 , "* * * ":PRI 

NTCHRS(l) ; : RETURN 

1230 PRINTCHRS(2) ;:PRINT@L," " : PRINTgL+80 , " " : PRINT8L+160 , " ":PRI 



Program Listing 5. Faro 

10 REM 12-FEB-83 *BDL MODEL II* 

20 REM PROGRAM FARO/BAS 

30 CLS:PRINT§24,"FARO SIMULATION PROGRAM" : PRINT: PRINT 

40 CLEAR200:VS=CHRS(148) : P$=" #1" :GAS=CHR$ ( 128) :GBS=CHR$ ( 129) :GCS=CHR$ (130) :GDS=C 

HRS(131) :U$=" *##.**" :UUS="# #♦##.**" 

50 DIMM$(52) ,C(52) ,B(52) ,H(52) ,L(13) :CS="SPADES" 

60 M$(1)="A":MS(14)="A":MS(27)="A":M$(40)="A":MS(11)="J":MS(24) = j : MS(37)= J :M 

S(50)="J":MS(12)=*Q":MS(25)="Q":MS(38)="Q":M$(51)="Q":MS(13)="K":MS(26)= K zMS(3 

9)="K":MS(52)="K" 

7 FORI=2TO10:MS(D=STR$(I) : NEXT: FORI=15T023 :M$ ( I) =STRS ( 1-13) :NEXT: FORI=28T036 :M 
S(I)=STR$(I-26) :NEXT:FORI=41T049:MS(D=STRS(I-39) :NEXT 
80 F0RI=1T013:READL(I) :NEXT 

90 DATA 779,770,761,752,743,734,965,1214,1223,123 2,1241,1250,1259 

100 PRINT'FARO AND ITS VARIANTS HAVE BEEN THE MOST POPULAR OF GAMBLING GAMES FOR 
":PRINT"CENTURIES AND WERE SEEN IN MOST SALOONS AND 'GAMING PALACES' IN THE OLD 
WEST.": PRINT _ „ 

110 PRINT'BY THE END OF THE NINETEENTH CENTURY, OTHER GAMES, MORE PROFITABLE TO 
THE":PRINT"CASINOS, HAD SUPPLANTED FARO WHICH IS SEEN TODAY ONLY IN A FEW PLACES 
.":PRINT 

120 PRINT" INSTRUCTIONS REQUIRED (Y/N)"; 

130 IS=INKEYS:IFIS="*THEN130ELSEIFIS="Y"THEN140ELSEIFI$="N"THEN340ELSE130 
140 CLS:PRINT@17,"R ULES FOR CASINO FAR 0" : PRINT: PRINT 
150 PRINT'THE FARO LAYOUT, ON WHICH THE GAME IS PLAYED, CONSISTS OF A FELT CLOTH 
ON":PRINT"WHICH THE THIRTEEN 'CARDS' ARE PRINTED, USUALLY WITH ENAMEL. SUITS A 
RE IGNORED": PRINT" IN THE GAME, HOWEVER BY TRADITION THE LAYOUT IS MARKED WITH SP 
ADES. " : PRINT 

160 PRINT"PLAYERS MAY BET ON A 'RANK' EITHER TO WIN OR TO LOSE BY PLACING AN IND 
IVIDUAL":PRINT"COLOR CHIP OR CHIPS ON THE CARD DISPLAYED ON THE LAYOUT. A BET P 

T AC ED TO" 

170 PRINT"LOSE IS SO INDICATED BY PLACING A COPPER TOKEN (OR PENNY) ON THE CHIP( 

S) . THIS*:PRINT"IS CALLED 'COPPERING THE STAKE'. IN THIS SIMULATION, EACH CHIP 

USED TO BET": PRINT" IS WORTH SI.": PRINT 

180 PRINT"TO PLAY, ONE DECK OF 52 CARDS IS SHUFFLED, THEN PLACED FACE-UP IN AN 
PEN" -PRINT" 'DEALING BOX'. THE FIRST CARD, CALLED 'SODA', IS NOT USED IN THE BET 
TING.": PRINT" AFTER THE BETS ARE PLACED, THE DEALER DRAWS 'SODA' OUT OF THE BOX A 

190 PRINT"FACE-UP BESIDE THE BOX TO START THE PILE OF CARDS THAT 'WIN'. THE SEC 
OND CARD": PRINT-WITHDRAWN IS ALSO PLACED FACE-UP BESIDE THE BOX TO START THE PIL 

Listing 5 continues 




Nine educational and entertaining 
games controlled by a single pro- 
gram. Even very young children can 
select a game, play it, and select a 
different game. ..ALL BY THEMSELVES! 

• PICTURE MENU GIVES CHILDREN 
CONTROL 

• MATCH NUMBERS AND LETTERS 

• COUNT COLORFUL BLOCKS 

• ADD AND SUBTRACT STACKS OF 
BLOCKS 

• LEARN THE ALPHABET 

• PRACTICE SPELLING NAMES 

• COMPARE SHAPES 

• DRAW AND SAVE COLORFUL PIC- 
TURES 

The large numbers and letters fill the 
screen with color. Children enter 
single key stroke responses and get 
immediate visual and musical feed- 
back. Hints are provided when ap- 
propriate. Beyond just teaching 
children basic skills, EARLY GAMES 
makes them feel comfortable as they 
control the computer. Designed for 
children ages 2V2 to 6 years old. 

EARLY GAMES offers the child a 
diverse selection of activities which 
stimulate the process of problem 
solving as well as foster individual 
creativity. 

Pamela Bach, Director 
Youth World Day Care Center 

I took EARLY GAMES home for my kids 
and they really liked it! It held their at- 
tention and they learned from it! 

Jeanette Fritze 
Computer Saleswoman 

EARLY GAMES can help children 
learn new concepts, information, 
and skills and also introduce them to 
the joys and benefits of home com- 
puters. 

Peter Clark, faculty 

Institute of Child Development 

University of Minnesota 

All nine games for $29.95 

(Minnesota residents add 5% sales tax) 

Apple II Plus 

IBM Personal Computer 

Atari 24K Disk or 16K Cassette 

TRS-80 Model l/lll 32K Disk or 16K Cassette 

TRS-80 Color Computer 16K Disk or Cassette 





^See List of Advertisers on Page 323 



VISA.'MasterCard 

LYGAi 

educational software 
Suite 140E 

Shelard Plaza North 

Minneapolis, MN 55426 

1-800-328-1223 

Minnesota residents coil: 

612-544-4720 

, . y 
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SMALL & (REQ. 32K 2 DISKS) 

LARGE CAPACITY 

HI PROGRAMS urn 

ON TDOS (A MINI DOSPLUS) 

ACCOUNTS RECEIVABLE 

5000+ CUSTOMERS 
15000+ TRANSACTIONS 

BALANCE FORWARD 99 TRANSACT CODES 
30-60-90-120 AGED STATEMENTS SHOW 
DATE/INV#/DESCRIP/AMT (WITH AGEING) 
SELECTIVE FINANCE CHARGES & RATES 
FAST ENTRY POSTING W/AUDIT REPORT 
SUB-ACCTS % OF CREDIT LIMIT DATE OF 
LAST PAYMENT SALES ANALYSIS SPECIAL 
90 DAY ACCOUNTS LABELS 

$149.95 

GENERAL LEDGER 

400+ ACCOUNTS 
5000+ TRANSACTIONS/MONTH 
NO OTHER SYSTEM OFFERS... 

t REPORT FLEXIBILITY/CAPACITY 
t DEPARTMENT P & L (UP TO 5) 
t UNLIMITED ACCOUNT CATAGORIES 
t STATEMENT OF CHANGES (ASSETS) 
t PERCENT P&L comparison 

100% sales MTDvsYTD 

or net sales QTD vs YTD 

or total Exo. MTDvsQTD 

$149.95 

TEST SETS $50.00 MANUALS $30.00 

HOLMAN D-P SERVICE 

2059 WEST LINCOLN 3.00 S&H 

OROVILLE, CA 95965 VISA OR MC 
916-533-5992 COD 

Both for $199.95 -355 
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WHY BUY A JOY 
STICK TWICE?! 



Tf YOU HA.V* AN 
( A TMh ^^^ 

JOY STICK KIT* 

Without Joy Stick Model l/lll $15.95 

With Joy Stick Model l/lll $26.95 

— Be Your Own SYSOP !!!! — 

Bullet-80 Bulletin Board Model l/lll 
Version 8.0 $150.00 



Full line of H&E Computronics Software. 
13% off Any individual Versa Business package. 
13% off All game software (from All major 
manufacturers) if you mention this ad! 



Please call for information about ANY products. 
We have in stock a FULL LINE of Software from 
ALL Major Houses. 

Aftar-Markat Computer Qallary** 
P.O. Box 993 (Mall Ordar) 
1 Franklin St. (Retail Outlet) 
Oanbury, CT 06810 

Voice Lint - 203 743-1299 

Bulltt-80 Computer Line - 203 744-4644 

(300/1200 Baud) 

PRICES DO NOT INCLUDE SHIPPING 6. HANDLING. 

'■niemji installation ReQuireo No face cutting or electronics 
involved 

"A Division of Compute' Services 0' DanBury 



Listing 5 continued 

E OF CARDS THAT" 

200 PRINT-LOSE. THE THIRD CARD, EXPOSED IN THE BOX, IS ACTUALLY THE CARD THAT W 

210 PRINT: PRINT-AT THIS POINT, TWO RANKS OF CARDS ARE INVOLVED - ONE TO 'WIN' AN 

D ONE TO LOSE • 

220 PRINT: INPUT-WHEN READY TO CONTINUE, DEPRESS <ENTER>" tQS-CLS 

230 PRINT'THE DEALER IMMEDIATELY SETTLES ALL BETS, IF ANY, THAT HAPPEN TO HAVE B 

EEN 

i^L™ RINT I PLACED . 0N THESE ™ RANKS. BETS PLACED ON OTHER RANKS REMAIN ON THE L 
AYOUT AND : PRINT-ARE NOT ACTED UPON UNTIL THE FIRST CARD OF A PARTICULAR RANK AP 
PfciAJRS ■ AFTER A 

250 PRINT-PAUSE FOR THE POSSIBLE PLACEMENT OF ADDITIONAL BETS, THE DEALER CONTIN 
UES TO :PRINT'THE SECOND TURN, DRAWING THE OLD 'WIN' CARD FROM THE BOX AND PLACI 

2 !L^^r^L" LE ' A NEW ' L0SE ' CARD WHICH IS PLACED ON THE LOSE PILE, AND THUS 

EXPOSES": PRINT" THE NEW 'WIN' CARD FACE-UP IN THE BOX.- -PRINT 
2 nL P FU^.™ A « C0NT I NUE S IN THIS SAME MANNER UNTIL ONLy"fOUR CARDS REMAIN IN THE 
,» ?;„T P m^™. THESE ARE ™ E 24TH ' WIN ' CARD AN 3 K NOWN CARDS IN UNKNOWN ORDER. ( 
AN ASSISTANT", PRINT-HAS LISTED THE CARDS PLAYED DURING THE GAME) .", PRINT 
280 PRINT-FOR THIS 'LAST TURN', BETS MAY BE PLACED ON THE ORDER OF THE LAST THRE 
E UNSEEN : PRINT-CARDS. AS THE RANK OF THE 3 IS KNOWN, IF ALL 3 ARE ALIKE THERE 
lo NU AC a ION • 

290 PRINT-IF TWO ARE OF THE SAME RANK, IT IS A 'CAT-HOP' AND BETS MAY BE PLACED. 

300 PRINT-FOR THE THREE-CARD SEQUENCE, SELECT AS FOLLOWS: - : PRINT"1=1 , 2 ,3 2=1,3, 

2 3=2,1,3 4=2,3,1 5=3,1,2 6=3,2,1" :PRINT 

310 PRINT'BETS ARE PAID AT TRUE ODDS (EVEN MONEY) ON ANY SELECTED RANK TO WIN OR 

TO LOSE": PRINT" EXCEPT FOR A 'SPLIT' - TWO CARDS OF THE SAME RANK APPEARING BOTH 

TO 'WIN' AND" 
320 PRINT"TO 'LOSE' ON THE SAME TURN. SHOULD THIS OCCUR, THE HOUSE TAKES HALF OF 

THE BETS": PRINT* (ON THE PARTICULAR RANK ONLY) AND RETURNS THE OTHER HALF TO THE 

PLAYER. " 
330 PRINT: INPUT-WHEN READY TO PLAY, DEPRESS <ENTER>";Q$ 

340 GW=0:GN=0:BD=0:BN=0:T=0:RANDOM:CLS:PRINT"C ASINO FARO : " : PRINT862 , " 
GAME :":K=K+1:PRINT872,K 

350 PRINTCHR$(2) ; :GOSUB930: L=722:GOSUB920:L=491 :GOSUB920 :L=500 :GOSUB920:L=509 ,GO 
SUB920:L=518,GOSUB920:L=527:GOSUB920:L=536:GOSUB920:L=971:GOSUB920:L=980:GOSUB92 
0:L=989:GOSUB920:L=998:GOSUB920:L=1007:GOSUB920:L=1016:GOSUB920 

360 X$=C$:L=722:N$="7":GOSUB940:L=491:N$="6":GOSUB940:L=500:N$="5",GOSUB940:L=50 
9:NS="4-:GOSUB94 0:L=518:NS=-3-:GOSUB940:L=527:N$=-2":GOSUB940:L=536:N$="A",GOSUB 
940:L=971:N$="8":GOSUB940:L=980:N$=-9":GOSUB940 

370 L=989:N$="10":GOSUB940:L=998:NS="J":GOSUB940:L-1007:N$=-Q-:GOSUB940:L=1016:N 
S="K":GOSUB940 

380 L=549:GOSUB920:PRINT8471, "LOSE" :L=1029:GOSUB920 : PRINT8951 , "WIN" : L=1509:GOSUB 

920:L=1427:GOSUB960 

390 RS=RND(52) :L=1509:C(RS)=1:D=RS:N$=M$(RS) :GOSUB900:X$=D$:GOSUB940 :GOSUB950, PR 

INTCHR$(1) ; 

400 IFCL=1THENGOSUB970 

410 IFCW=lTHENGOSUB990 

420 PRINT8160, "PLACE YOUR BET. ..ENTER NUMBER OF CHIPS (1-9), <ENTER> TO PLAY"; 

430 I$=INKEY$,IFI$=""THEN430ELSEIFI$>"0"ANDI$<="9"THENBN=VAL(I$) :GOTO440ELSEIFI$ 
=CHR$(13)THEN520ELSE430 

440 PRINT8160, STRING$(70, 32) :PRINT8160, "SELECT RANK FOR BET (A, 2 ,3 , 4 , 5 , 6 ,7 ,8 ,9 ,T 
,J,Q.K)"; 

450 lS=INKEY$:IFI$=""THEN450ELSEIFI$="A"ORIS="2-ORIS="3-ORIS="4"ORI$=-5-ORlS="6" 

ORI$="7"ORI$="8"ORI$="9"ORI$="T"ORI$="J"ORI$="Q"ORI$="K"THEN460ELSE450 

460 ES=I$,PRINT@160,STRING$(60 r 32) :PRINT§160, "SELECT BET TO WIN OR TO LOSE (W/L) 

"t 

470 I$="":I$=INKEY$:IFI$=""THEN470ELSEIFI$="W"ORI$="L"THEN480ELSE470 

480 B=1:B=BN*B:GN=GN+B:IFE$="A-THENE$="1"ELSEIFES="T-THENE$=-10-ELSEIFE$=-J-THEN 

E$='11"ELSEIFE$="Q"THENE$="12"ELSEIFE$="K"THENE$="13" 

490 IFI$="W"THEN500ELSE510 

500 L=VAL(E$) ,PRINT@L(L) ,USINGP$;B:B(L) =B: B (L+13) =B:B (L+26) =B:B (L+39) =B: PRINT816 

0,STRING$(60,32) :GOTO400 

510 L=VAL(E$) :PRINT8L(L)-1,"C":PRINT8L(L) ,USINGP$;B:H (L) =B: H (L+13) =B:H (L+26) =B:H 

(L+39)=B:PRINT8160,STRING$(60,32) :GOTO400 

520 PRINTCHR$(2) ; : L=1029:GOSUB910:GOSUB940 

530 IFCL=1THENGOSUB970 

540 IFCW=1THENGOSUB990 

550 CL=0:CW=0 

560 RL=RND(52) , IFC (RL)O0THEN560ELSEL=549:C (RL) =1 :D=RL:N$=M$ ( RL ) :GOSUB900 :X$=DS; 
GOSUB910:GOSUB940 

570 RW=RND(52) : IFC (RW) <>0THEN570ELSEL=1509:C (RW) =1 :D=RW:N$=M$ (RW) :GOSUB900: X$=D$ 

: GOSUB910 : GOSUB940 : PRINTCHRS ( 1 ) ; 

580 IFH(RL) <>0ORB(RW) <>0THENIFRW=RL+13ORRW=RL+26ORRW=RL+39THEN640ELSEIFRL=RW+13O 

RRL=RW+260RRL=RW+3 9THEN6 40 

590 IFH(RL) <>0ANDC(RL) <>0THENCL=1 :GOTO630 

600 IFB(RW)O0ANDC(RW) <>0THENCW=1 :GOTO630 

610 PRINT8160,STRING$(70,32) :PRINT@160 , "NO WINNER. . .PLACE NEW BET (Y/N)"; 

620 I$=INKEY$:IFI$=""THEN620ELSEIFIS="Y-THENPRINT@160, STRINGS (70, 32) :GOSUB950:GO 

TO400ELSEIFI$=-N"THENGOSUB950:GOTO520ELSE620 

630 PRINT8160,STRING$(70,32) :BX=B(RW) +H(RL) :GW=GW+BX:B(RW) =0 :H (RL) =0 : PRINT8160 , " 

YOU HAVE WON:":PRINT8174,BX:GOTO650 

640 PRINT8160, STRINGS (70, 32) :BT=B(RL) /2+H (RW) /2:GW=GW-BT:CL=1 :CW=1 : PRINT8160 , "SP 

LIT... YOU LOSE:":PRINT@178,BT 

650 PRINT8200, "PLACE NEW BET (Y/N) - ; 

660 I$=INKEY$:IFI$=""THEN660ELSEIFI$="Y"THENGOSUB950:GOTO4 00ELSEIFI$="N"THENGOSU 

B950:GOTO520ELSE660 

670 V=1:FORI=1TO52:IFC(I)=0THENJ(V)=I:V=V+1:NEXTELSENEXT 

680 D=J(1) :GOSUB900:N$=M$(J(1) ) :CA$=N$+" "+DS+"," 

690 D=J(2) :GOSUB900:N$=M$(J(2) ) :CB$=N$+" "+D$+"," 

700 D=J(3) :GOSUB900:N$=M$(J(3) ) :CC$=N$+" "+D$ 

710 PRINT81620,"LAST 3 CARDS ARE: " : PRINT81638 ,CA$:PRINT81648,CBS: PRINT81658 ,CC$ 

720 IFJ(1)=J(2)+13ORJ(1)=J(2)+26ORJ(1)=J(2)+39THENAB=1:GOTO7 90ELSEIFJ(2)=J(3)+13 

ORJ(2)=J(3)+26ORJ(2)=J(3)+39THENBC=1:GOTO790ELSEIFJ(3)=J(1)+13ORJ(3)=J(1)+26ORJ( 

3)=J(1)+39THENCA=1:GOTO790 

730 IFJ(1)=J(3)+13ORJ(1)=J(3)+26ORJ(1)=J(3)+39THENAC=1:GOTO790ELSEIFJ(2)=J(1)+13 

ORJ(2)=J(1)+26ORJ(2)=J(1)+39THENBA=1:GOTO7 90ELSEIFJ(3)=J(2)+13ORJ(3)=J(2)+26ORJ( 

3) =J ( 2) +39THENCB=1 :GOT07 90 

740 PRINT81760, "SELECT SEQUENCE FOR LAST 3 CARDS (1-6)"; 

750 I$=INKEY$:IFI$=""THEN750ELSEIFI$>"0-ANDI$<"7"THENB=VAL(I$) :GOTO7 60ELSE7 50 

760 PRINT81760, STRING$(60, 32) :PRINT81760, "PLACE YOUR BET. ..ENTER NUMBER OF CHIPS 

(1-9)*; 

770 I$=INKEY$:IFI$=""THEN770ELSEIFI$>"0"ANDI$<="9"THENBN=VAL(I$) :GOTO780ELSE770 
780 R=RND(6) :IFB=RTHENBD=BN*4:GW=GW+BDELSEGW=GW-BN:GOTO860 

790 IFAB=1ANDAC=1ORBA=1ANDBC=1ORCA=1ANDCB=1THEN85 0ELSEIFAB=1ANDBC=1ORAB=1ANDBA=1 
ORAB=1ANDCA=1ORAB=1ANDCB=1THEN850 

800 PRINT81760, "CAT-HOP... SELECT SEQUENCE FOR 2 CARDS (1,2)"; 

810 I$=INKEYS:IFI$=""THEN810ELSEIFI$>"0"ANDI$<"3-THENB=VAL(I$) : GOTO820ELSE810 
820 PRINT81760, STRING$(60, 32) :PRINT@1760, "PLACE YOUR BET. ..ENTER NUMBER OF CHIPS 
(1-9) "J 

Listing 5 continues 
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Listing 5 continued 

830 I$=INKEY$:IFI$=""THEN830ELSEIFI$>"0*ANDI$<="9"THENBN=VAL(I$) :GOTO840ELSE830 

840 R=RND(2) : IFB=RTHENBD=BN:GW=GW+BDELSEGW=GW-BN 

850 PRINT@1760, "CARDS ARE ALIKE. ..NO ACTION" 

860 GW=GW-GN:PRINT@160,STRING$(70,32) : PRINTS160 , "GAME WINNINGS: ": PRINT8175 , USING 

U$;GW 

870 TW=TW+GW:PRINT@1760,STRING$(67,32) : PRINT@1600 ,STRING$( 67 ,32) :PRINTei600 , "TOT 

AL WINNINGS:":PRINT@1616,USINGUU$;TW:PRINTei640,"PLAY AGAIN (Y/N)"> 

880 I$=INKEY$:IFI$=""THEN880ELSEIFI$="Y"THENERASEC,B,H:DIMC(52) ,B(52) ,H(52) :GOTO 

340ELSEIFIS="N"THEN890ELSE880 

890 CLS:PRINT@644,"G OODBYE.. .THANKS FOR PLAYING FA 

R l":PRINT@900,"C OHE AGAIN... ." :PRINT: PRINT: PRINT: END 
90 IFD>0ANDD<14THEND$="HEARTS":RETURNELSEIFD>13ANDD<27THEND$="DIHOND":RETURNELS 
EIFD>26ANDD<40THEND$="CLUBS":RETURNELSED$="SPADES":RETURN 

910 PRINT@L+81,SPACE$(6) ;: PRINT9L+161 .SPACES (6) ;: PRINT@L+241 , SPACES (6) ;: RETURN 
920 PRINT@L+1,STRING$(6,150) :PRINT@L+321 , STRINGS (6 , 150) : F0RI=1T03 :PRINT@L+I*80 ,V 
S: NEXT :FORI=lTO3:PRINT@L+7 + I*80,VS: NEXT :PRINT@L, GAS : PRINT8L+320 r GD$: PRINTgL+7 ,GB 
S : PRINT8L+3 27 , GC $ : RETURN 

930 PRINT@321,STRING$(64,150) : PRINT61441 , STRINGS ( 64 ,150) :F0RI=1T013 : PRINTS320+I* 
80,VS:NEXT:FORI=lTO13:PRINT@385+I*80,V$:NEXT:PRINTe320,GAS:PRINT@385,GBS:PRINT81 
50 5,GCS:PRINT@14 40,GD$:RETURN 
940 PRINT@L+81,NS:PRINT@L+161,XS: RETURN 
950 PRINT@1600,"T URN : " : T=T+1 : IFT=25THENPRINT@1610 , "LAST" :GOTO670ELSEPRINT@16 

10, T: RETURN 

960 PRINT@L,GAS:PRINT@L+480,GD$;:PRINTgL+ll,GBS:PRINT@L+491,GCS;:PRINTeL+l,STRIN 

G$(10,150) :PRINT@L+481,STRINGS(10,150) ; : FORI=1TO5:PRINT§L+I*80 ,VS:NEXT:F0RI=1T05 
:PRINT@L+11+I*80,VS;: NEXT: RETURN 

970 IFRL>39THENRL=RL-39ELSEIFRL>26THENRL=RL-26ELSEIFRL>13THENRL=RL-13 
980 H(RL)=0:H(RL+13)=0:H(RL+26)=0:H(RL+39)=0:PRINT@L(RL)-2,SPACE$(6) ;: RETURN 
990 IFRW>39THENRW=RW-39ELSEIFRW>26THENRW=RW-26ELSEIFRW>13THENRW=RW-13 
1000 B(RW)=0:B(RW+13)=0:B(RW+26)=0:B(RW+39)=0:PRINT@L(RW)-2,SPACE$(6) ;:RETURN 



Program Listing 6. Wheel of Fortune 

10 REM 20-JAN-83 *BDL MODEL II* 
20 REM - PROGRAM BIGSIX/BAS 

30 CLS:CLEAR200:PRINT@20, "BIG-SIX WHEEL SIMULATION PROGRAM" : PRINT: PRINT 
40 V$=CHR$(148) :OS="M#":GA$=CHR$(128) :GBS=CHR$ ( 131) :GCS=CHRS (129) :GD$=CHRS ( 130) 
:U$="MM#.M":HH = 5000:S$=CHR$(42) :X$=" " 

50 AS=" SI ":BS=" S2 ":CS=" S5 ":D$=" $10 ":E$=" $20 ":F$="JOKER ":GS=" 
LOGO " 

60 PRINT'THE BIG-SIX WHEEL, ALSO CALLED THE 'WHEEL OF FORTUNE', HAS BEEN SEEN AT 
":PRINT"FAIRS AND FUND-RAISING FUNCTIONS FOR MANY YEARS .": PRINT 

70 PRINT'THE WHEEL IS OPERATED MANUALLY BY A DEALER, WHO, USING ONLY HIS OWN STR 
ENGTH,":PRINT"PULLS THE WHEEL TO START IT SPINNING. ": PRINT 

80 PRINT"FRICTION, CAUSED BY A RUBBER 'FINGER' BANGING AGAINST THE 'STOPS' THEMS 
ELVES, ":PRINT"SLOWS AND FINALLY STOPS THE WHEEL. ": PRINT 

90 PRINT'WHEREVER THE RUBBER 'FINGER' COMES TO REST IS THE WINNING POSITION." 
100 PRINT:PRINT"INSTRUCTIONS REQUIRED (Y/N)"; 

110 I$=INKEY$:IFIS=""THEN110ELSEIFIS="Y"THEN120ELSEIFIS="N"THEN27 0ELSE110 
120 CLS:PRINT@16,"R ULES FOR BIG-SIX WHEE L":PRINT 
130 PRINT'DIRECTLY IN FRONT OF THE DEALER IS A GLASS COVERED TABLE. UNDER THE G 
LASS":PRINT"ARE VARIOUS PIECES OF MONEY. YOU WILL FIND $1, $2, $5, $10, AND $20 
BILLS. ":PRINT"THERE WILL ALSO BE AN AREA MARKED WITH A JOKER AND A LOGO, TO COR 
RESPOND" 

140 PRINT'WITH THE TWO EXTRA STOPS ON THE WHEEL. ": PRINT 

150 PRINT'TO BET ON THIS GAME, YOU SIMPLY PLACE YOUR BET ONTO THE FACE OF THE BI 
LL":PRINT"THAT YOU THINK WILL WIN. SHOULD IT WIN, YOU WIN THAT BILL'S VALUE TI 

MES":PRINT"YOUR BET. A $5 CHIP ON THE $1 BILL ON THE TABLE, IF IT WINS, WILL RE 
TURN" 
160 PRINT'AN ADDITIONAL $5 BACK AS WINNINGS. THAT SAME $5 CHIP PLACED ON THE $5 

BILL":PRINT"ON THE TABLE, IF IT WINS, WILL RETURN $25 AS WINNINGS. ": PRINT 
170 PRINT'THE FOLLOWING TABLE SHOWS THE BETS, CHANCES, AND PAYOFFS:" 
180 PRINTTAB(10) "FACE" ; TAB( 20) "NO. OF FACES" ; TAB ( 40) "PAYOFF" 
190 PRINTTAB(11)"$1";TAB(24)"23";TAB(40)"1 TO 1" 
200 PRINTTAB(ll) "$2";TAB(24) "15" , -TAB ( 40) "2 TO 1" 
210 PRINTTAB(11)"$5";TAB(25) "8";TAB(40) "5 TO 1" 

•4";TAB(39) "10 TO 1" 
'2";TAB(39) "20 TO 1" 
"1";TAB(39) "40 TO 1" 

. . "1"; TAB (3 9) "40 TO 1" 

260 PRINT:PRINT"ENJOY THE GAME WHEN READY TO PLAY, DEPRESS <ENTER>" ; : INPUTQS 

270 CLS:WB=0:T1=0:T2=0:T3=0:T4=0:T5=0:T6=0:T7=0:TT=0:PRINT"B IG-SIX WHE 

E L":PRINT§62,"G A M E : " :K=K+1 : PRINT@72 ,K 
280 PRINTCHR$(2) ; : GOSUB650 : L=373 : L$=AS:GOSUB730: L=387 :L$=BS:GOSUB730 : L=773 : L$=C$ 
:GOSUB730:L=787:L$=D$:GOSUB730:L=117 3:L$=E$:GOSUB730:L=1187:L$=F$:GOSUB730:L=150 

0:L$=G$:GOSUB730 

290 PRINT0160, "PLACE YOUR BET ENTER NUMBER OF CHIPS (1-9), <ENTER> TO PLAY ; 

300 IS=INKEY$:IFI$=*"THEN300ELSEIFI$>"0"ANDI$<="9"THENBN=VAL(I$) :GOTO310ELSEIFI $ 

=CHRS(13)THEN420ELSE300 

310 PRINT0160, STRINGS(70, 32) :PRINT@160, "ENTER VALUE (COLOR) OF CHIPS"; 

320 I$=INKEY$:IFI$=""THEN320ELSEIFI$="W"THENB=1:GOTO330ELSEIFI$="O"THENB=2:GOTO3 

30ELSEIFI$="R"THENB=5:GOTO330ELSEIFIS="G"THENB=25:GOTO330ELSEIFI$="B"THENB=100:G 

OTO330ELSEPRINT@200,"USE VALID CHIPS ONLY, PLEASE ...";: GOTO320 

330 B=BN*B:PRINT@160, STRING$(70, 32) :PRINT@160, "SELECT BET LOCATION (1, 2, 5, A=l 

0, B=20, J=JOKER, L=LOGO) ; 

340 I$=INKEY$:IFI$=""THEN340ELSEIFI$="1"THEN350ELSEIFI$="2"THEN360ELSEIFI$="5"TH 

EN370ELSEIFI$="A"THEN3 80ELSEIFI$="B"THEN390ELSEIFI$="J"THEN400ELSEIFI$="L"THEN41 

0ELSE340 

350 PRINT@450,USINGO$;B:T1=B:GOTO290 

360 PRINT@46 4,USINGO$;B:T2=B:GOTO290 

370 PRINT@850,USINGO$;B:T3=B:GOTO290 

380 PRINT@86 4,USINGO$;B:T4=B:GOTO290 

3 90 PRINT@1250,USINGO$;B:T5=B:GOTO290 

400 PRINT@126 4,USINGOS;B:T6=B:GOTO290 

410 PRINT81577 ,USINGO$;B: T7=B:GOTO290 

420 N=2:GOSUB670:PRINTCHR$(1) ; 

430 TT=T1+T2+T3+T4+T5+T6+T7 

440 RANDOM: S=RND(3) :ONSGOTO450 ,460 , 470 

450 R=RND(18) :ONRGOTO510 , 5 00 ,4 90 , 5 00 ,4 90 , 4 80 , 4 80 , 4 90 , 4 80 , 5 20 , 480 , 4 90 , 510 ,4 80 , 4 80 

,530,490,480 

460 R=RND(18) :ONRGOTO500, 4 80, 4 90, 4 80, 4 90, 51 0,4 80, 4 90, 4 80, 4 90, 5 0, 4 90, 4 90, 4 80, 4 80 

,500,480,540 

47 R=RND(18) :ONRGOTO480 , 500 ,480 ,490 ,480 , 490 ,480 , 4 80 ,4 90 , 4 80 , 510,480 , 490 ,520 ,500 

,480,500,480 

Listing 6 continues 



220 PRINTTAB(10) " $10" ;TAB ( 25) 
230 PRINTTAB(10) " $20" ; TAB ( 25) 
240 PRINTTAB(9) "JOKER" ; TAB ( 25) 
250 PRINTTAB{9) "LOGO" ; TAB ( 25) 



RIBBONS & SUPPLIES 

SATISFACTION GUARANTEED 

FREE SHIPPING in US and CANADA 

NO MINIMUM ORDER 

FREE CATALOG 

DISCOUNTS apply to ANY COMBINATION of 
products. Deduct 10% for 6 to 23 items, 
15% for 24 to 99, and 20% for 100 or more 
items. SCHOOLS may take an additional 5% 

discount. 

MASTERCARD & VISA orders, send card 
number and expiration date Checks accept- 
ed with no delay. 

FREE SUPPLIES CATALOG includes instruc- 
tions for loading refill loops. Most orders 
shipped within 24 hours. Florida residents 
add 5% sales tax 



REPLACEMENT FABRIC 


Ribbon ^ 


Refill 


RIBBONS FOR 


Cartridge 


Loop 


Anadex 9500 


13.00 


3.35 


Anadex Word Scribe 


13.00 


3.95 


Axiom GP-80M 


6.50 


2.93 


Axiom ,V° I & II 


13.50 


2.93 


Base 2 


13.50 


2.93 


C-ltoh Prowntei 


5.50 


2.43 


C-ltoh F-10 


b.50 


1.68 


Diablo Hytype 


5.50 


1.59 


Diablo Hytype II 


5.50 


; 68 


DEC LA34 


5.50 


2.03 


Epson MX-70, MX-80 


o.bO 


2.93 


Epson MX-100 


9.75 


4.45 


IBM PC (MX-80) 


6 30 


2.93 


IBM PC (MX-100) 


9.75 


4.45 


MPI 88G 99G, 150 


13.50 


2 93 


NEC 3500 


TBA 


2.43 


NEC Spinwrifei 


5.50 


2.43 


NEC PC 8023A-01 


5.50 


2.43 


Okidata Microline 80, 81 


. 83 (spool) 2.50 


R.S. DW II (1449) 


TBA 


2 08 


R.S. DMP 200 (1483) 


FBA 


2.93 


R.S DMP 400, (1418) 


5.50 


1.68 


R.S. DMP 500 (1482) 


TBA 


2.93 


R.S. DWP 410 (1449) 


FBA 


2 38 


R.S. LP6, LP8 (1418) 


5.50 


1.68 


R.S. LP3, LP5 (1414) 


5.50 


2.43 


BASF DISKETTES, 5V*' 






with hub ring. LIFETIME WARRANTY 


ST0CK# SIDE/DEN SECTORS PRICE/BOX 


54974 SS/DD 


son 


29 20 


54976 SS/DD 


10 


29.20 


54978 SS/DD 


16 


53.30 


54980 DS/DD 


S0F! 


40 50 


54982 DS/DD 


10 


505)0 


54984 DS/DD 


16 


40 50 


54986 SS/QUAD 


S0F1 


42.20 


54988 SS/QUAD 


10 


45.35 


54990 SS/QUAD 


16 


45.58 


54992 DS/QUAD 


SOFT 


54 00 


54994 DS/QUAD 


10 


54 00 


54996 DS/QUAD 


16 


34 50 



DATA SYSTEMS 

(305) 788-2145 "" 

BOX 99 • FERN PARK, FL 32730 



-See List of Advertisers on Page 323 
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Profile III Plus© - 108 insert pages for your 
manual with plain English explanations and 
examples including two 16x22 wall charts show- 
ing where program goes and why $14.00 

General Ledger - Insert pages for the TRS-80© 
Mod III Disk Manual clarifying the obscure. 
Section on HOW accounts interact and produce 
statements. 19x25 two-color wall chart shows 
Flow, Commands, Tips $14.00 

Super SCRIPSIT© - 19x25 two-color wall chart 
shows commands with explanations and tips in 
highly visible form $4.00 

VisiCalc© - 19x25 two-color wall chart shows All 
THOSE commands with clear explanations at a 
glance $4.00 

c - Copyrights of Tandy or VisiCorp 



Send cash, check, money order to: 

CREST SOFTWARE 



•223 



2132 Crestview Drive • Durango, CO 81301 
(303) 247-9518 

Visa, MC accepted, include card » and expiration date. 

(Add $2.00 Shipping — We use UPS) 



w 



SAVE $50.00 NOW! 

Home Expense and Income System 

for your TRS-80* III, 
48K 2 DISK, 
LP VIII or VI System. 

Requires TRSDOS* 

Check these features: 

• You define up to a total of 64 
accounts (income and/or expense) 

• Completely MENU driven 

• 6 different reports, even down to 
daily detail. 

• Easy to read User Manual 

• HEXIS can be copied for back-up 
purposes 

• 30 DAY MONEY BACK 
GUARANTEE 

• 1 FULL YEAR WARRANTY 

• plus 2 Bonus Programs FREE 

ALL THIS FOR THE INCREDIBLY 
LOW PRICE OF ONLY $49.95 

LIMITED TIME ONLY!!! 
Price will be $99.95 shortly. 

Order now by sending your H/W configuration 
and printer control code summary (if not LP VIII 
or VI) and your check or money order to: I.S.B., 
Dept. HEXIS, P.O. Box 628, Proctor, VT 
05765 or call (802)459-2088 for more informa- 
tion. Allow 2-3 weeks for deliveries. 
* Trademark of Tandy Corporation .. 



Listing 6 continued 

480 GW=T1:WB=T1:W$=A$:L=454:PS=" 1":GOTO550 

490 GW=T2*2:WB=T2:W$=B$:L=468:P$=" 2":GOTO550 

500 GW=T3*5:WB=T3:W$=CS:L=854:PS=" 5":GOTO550 

510 GW=T4*10:WB=T4:W$=D$:L=86 8:PS="10":GOTO5 50 

520 GW=T5*20:WB=T5:W$=E$:L=1254:P$="20":GOTO550 

530 GW=T6*40:WB=T6:WS=FS:L=1268:P$=" J- : GOTO550 

540 GW=T7*40:WB=T7:W$=GS:L=1581:P$=" L" 

550 PRINTg424,XS:PRINT@423,P$ 

560 PRINTCHR$(26) ; :PRINTgL,WS: PRINTCHRS ( 25) ; 

570 PRINT@160, STRINGS(70, 32) :IF(GW-TT) >0THENPRINTgl60 , "LUCKY YOU HAVE W0N"GW+ 

WB-TT 

580 IF (TT-GW) >0THENPRINT@160, "SORRY YOU HAVE LOST "TT-(GW+WB) 

590 IFTT=GWTHENPRINT@160,"AT LEAST YOU BROKE EVEN" 

600 TW=TW+GW+WB-TT:HH=5000-TW 

610 PRINT@1760,"H O U S E HAS : "USINGUS; HH: PRINTS1800 , "T T A L W I N N I 

N G S :"USINGU$;TW 

620 PRINT@204,"DO YOU WANT TO PLAY AGAIN (Y/N)"; 

630 I$=INKEY$:IFI$=""THEN630ELSEIFI$="Y"THENGW=0:GOTO270ELSEIFI$="N"THEN6 40ELSE6 

640 CLS:PRINT@492,"THE BIG-SIX WHEEL SAYS GOOD-BYE COME AGAIN II I " : PRINT:PRIN 

T: PRINT: END 

650 PRINT@344,V$:PRINT@984,CHRS(143) : PRINT§424 ,SS: PRINTS571 ,S$: PRINT@967 ,SS: PRIN 

T@1371,SS:PRINT@1544,S$:PRINT@1397,S$:PRINT@1001,S$:PRINT@597,S$ 

660 PRINT@495,S$:PRINT@728,SS:PRINT@1208,S$:PRINT@1455,SS:PRINT@1473,SS;PRINTP12 

40,S$:PRINT@760,SS:PRINT@513,SS: RETURN 

670 PRINT@424,X$:PRINT@967,X$:PRINT@1544,X$:PRINT@1001,X$:GOSUB720:PRINT@424,S$ 

PRINT@967,S$:PRINT@1544,SS:PRINT@1001,SS:GOSUB720 

680 PRINT@495,X$:PRINT@1208,X$:PRINT@1473,X$:PRINT@760,XS:GOSUB720:PRINT@495,S$ 

PRINTgl208,S$:PRINT@1473,SS:PRINT@760,S$:GOSUB720 

690 PRINT@571,X$:PRINT@1371,X$:PRINTei397,X$:PRINT@597,X$:GOSUB720:PRINT@571,SS 

PRINT@1371,SS:PRINT@1397,SS:PRINT@597,S$:GOSUB720 

700 PRINT@728,X$:PRINT@1455,X$:PRINT@1240,X$:PRINTe513,X$:GOSUB720:PRINTe728,S$ 

PRINT§1455,SS:PRINT@1240,SS:PRINT@513,SS:GOSUB720 

710 IFN>80THENRETURNELSE670 

720 N=N+2:FORI=lTON: NEXT: RETURN 

7 30 PRINTgL, GAS :PRINT@L+80 ,V$: PRINT@L+1 6 ,GB$: PRINT§L+7 ,GC$: PRINT@L+87 ,V$: PRINTS 

L+167,GD$:PRINT@L+1,STRING$(6,150) : PRINT@L+161 .STRINGS ( 6 , 150) : PRINT@L+81 ,L$: RETU 

RN 



Program Listing 7. Keno 

10 REM 04-JAN-83 *BDL* 

20 REM - PROGRAM KtlNO/BAS 

30 CLS:CLEAR500:DEFDBLG,T:PRINT@20,"KENO SIMULATION PROGRAM" : PRINT: PRINT 

40 DIMGSU6) ,M(80) ,S(80) ,W(80) ,R(20) : U$ = " ##" : VS=CHR$ (148) : AS = "*" : DS-CHRS { 140) :UU 

$="##**##.##" 

50 F0RI=1T016:READGS(D :NEXT 

60 PRINT'THIS PROGRAM SIMULATES THE KENO GAMES AS PLAYED IN THE CASINOS IN NEVAD 

A. "-.PRINT 

70 PRINT" INSTRUCTIONS REQUIRED (Y/N)" 

80 IS=INKEY$:IFI$=""THEN80ELSEIFI$="Y"THEN610ELSEIFIS="N"THEN90ELSE80 

90 CLS:PRINT"C A S I N KEN O" : PRINT?62 , "G A M E : " • K=K+1 : PRINT@72 ,GS (K) 

100 GOSUB440:GOSUB510:GOSUB470:PRINTCHR$(1) 

110 Q$="":PRINT@160,STRING$(25,32) : PRINTS160 , "MARK SPOTS"; : INPUTQS:Q=VAL (Q$) 

120 IFCT>14THENQS="B":GOTO140ELSEIFQ>80THEN110 

130 IFQ>=1ANDQ<81THENBL=M(Q) : CT=CT+1 : S ( Q) =1 : PRINT@BL-3 , AS : PRINT@BL+2 , A$ 

140 IFQS="C"THENK=K-1:CT=0:GOTO90ELSEIFQS="B"THEN150ELSE110 

150 PRINT@160,STRINGS(25,32) :PRINT@160,"S POTS MARKED : "USINGUS;CT : PRI 

NT0210, "PLACE BET"; : INPUTM 

160 IFCT>10THENIFM<2THEN150 

170 WS=0:GW=0 

180 FORI=1TO20 

190 R(I)=RND(80) 

200 IFW(R(I))=1THEN190ELSEW(R(I) ) =1 : PRINT0M ( R ( I ) ) -2 , D$ : PRINTPM ( R ( I ) ) +1 ,DS : NEXTI 

210 FORI=1TO80:IFW(I) ANDS ( I) =1THENWS=WS+1 :NEXTELSENEXT 

220 IFCT=1THENIFWS<1THENGW=0ELSEIFWS=1THENGW=3*M 

230 IFCT=2THENIFWS<2THENGW=0ELSEIFWS=2THENGW=12*M 

240 IFCT=3THENIFWS<2THENGW=0ELSEIFWS=2THENGW=MELSEGW=4 2*M 

250 IFCT=4THENIFWS<2THENGW=0ELSEIFWS=2THENGW=MELSEIFWS=3THENGW=4*MELSEGW=113*M 

260 IFCT=5THENIFWS<3THENGW=0EI,SEIFWS=3THENGW=MELSEIFWS=4THENGW=11*MELSEGW=7 50*M 

270 IFCT=6THENIFWS<3THENGW=0ELSEIFWS=3THENGW=MELSEIFWS=4THENGW=3*MELSEIFWS=5THEN 

GW=100*MELSEGW=14 80*M 

280 IFCT=7THENIFWS<4THENGW=0ELSEIFWS=4THENGW=MELSEIFWS=5THENGW=20*MELSEIFWS=6THE 
NGW=410*MELSEGW=810 0*M 

290 IFCT=8THENIFWS<5THENGW=0ELSEIFWS=5THENGW=9*MELSEIFWS=6THENGW=100*MELSEIFWS=7 
THENGW=1480*MELSEGW=190 00*M 

300 IFCT=9THENIFWS<5THENGW=0ELSEIFWS=5THENGW=3*MELSEIFWS=6THENGW=4 5*MELSEIFWS=7T 

HENGW=33 5*MELSEIFWS=8THENGW=47 00*MELSEGW=185 0*M 

310 IFCT=10THENIFWS<5THENGW=0ELSEIFWS=5THENGW=2*MKLSEIFVJS=6THENGW=20*MELSEIFWS=7 

THENGW=142*MELSEIFWS=8THENGW=10 0*MELSEIFWS=9THENGW=450 0*MELSEGW=190 0*M 

320 IFCT=11THENIFWS<6THENGW=0ELSEIFWS=6THENGW=20*MELSEIFWS=7TIIENGW=150«MELSEIFWS 

=8THENGW=7 60*MELSEIFWS=9THENGW=40 0«MELSEIFWS=10THENGW=25 00*MELSEGW=3 90 00*M 

330 IFCT=12THENIFWS<6THENGW=0ELSEIFWS=6THENGW=12*MELSEIFWS=7THENGW-56*MELSEIFWS= 

8THENGW=400*MELSEIFWS=9THENGW=1700*MELSEIFWS=10THENGW=480 0*MELSEIFWS=11THENGW=26 
000*MELSEGW=50000*M 

340 IFCT=13THENIFWS<6THENGW=0ELSEIFWS=6THENGW=4*MELSEIFWS=7THENGW=32*MELSEIFWS=8 
THENGW=156*MELSEIFWS=9THENGW=1400*MELSEIFWS=10THENGW=7200*MELSEIFWS=11THENGW=180 
00*MELSEGW=50 000*M 

350 IFCT=14THENIFWS<6THENGW=0ELSEIFWS=6THENGW=6*MELSEIFWS=7THENGW=16*MELSEIFWS=8 

THENGW=64*MELSEIFWS=9THENGW=6 0*MELSEIFWS=10THENGW=16 0*MELSEIFWS-11THENGW=5000* 

MELSEIFWS=12THENGW=24000*MELSEGW=50000*M 

360 IFCT=15THENIFWS<6THENGW=0ELSEIFWS=6THENGW=4*MELSEIFWS=7THENGW=16*MELSEIFWS=B 

THENGW=42*MELSEIFWS=9THENGW=150*MELSEIFWS=10THENGW=480*MELSEIFWS=llTHENGW=480 0»M 

ELSEIFWS=12THENGW=16000*MELSEGW=50 000*M 

370 IFGW=0THENDL=MELSEDL=0 

380 TW=TW+GW-DL 

390 PRINT§1760,"G AME WINNINGS : "USINGUUS ; GW: PRINT@1800 , "T O T A L 

WINNINGS :"USINGUUS;TW 

400 PRINT?160,SPACES(80) : PRINT@160 , "TO PLAY AGAIN, DEPRESS <ENTER>, TO EXIT THE 

PROGRAM DEPRESS <E>"; 

410 I$=INKEYS:IFIS=""THEN410ELSEIFIS=CHRS(13)THEN420ELSEIFIS= n E"THEN430ELSE410 

420 CT=0: RANDOM : IFK>16THENREST0RE: GOTO90ELSE90 

430 CLS:PKINT@895,"T HANK YOU COME AGAIN! I I " :PRINT: PRINT: 

PRINT: END 

440 PRINTCHR$(2) :L=240 :GOSUB490 : L=400 :GOSUB490 : L=560 : GOSUB4 90 : L=720 :GOSUB4 90 : L=8 

80:GOSUB490:L=96 0:GOSUB490:L=1120:GOSUB4 90:L=1280:GOSUB4 90:L=1440:GOSUB4 90:L=160 
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For All Your 
Printina Needs 
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180 Day Warranty 



The Gemini 10 Star Printer has a wide spectrum of impres- 
sive features at a ROCK BOTTOM price. The printer comes 
standard with a 9 wire printhead, 2.3 K buffer, friction and 
tractor feed and prints 100 cps. It has true descenders, 
emphasized, double strike, block graphics and hi-resolution; 
italic characters & user programmable ROM for special 
characters. Also comes standard. 



EPSON PRINTERS 
MX-80 F/T MX-100 
FX-80 RX-80 

OUR PRICES ON THE EPSON PRINTERS ARE SO LOW, 
WERE NOTALLOWEDTO PRINT THEM! CALL TODAY FOR PRICES! 



bPSON PRINTERS FEATURE TRUE BACK- 
SPACE. SOFTWARE RESET, AND PRO- 
GRAMMABLE FORM LENGTH, HORI- 
ZONTAL TAB 6 RIGHT MARGIN. THEIR 

FINE QUALITY PRINTING & RELIABILITY 
ARE ONLY A PAR! OF THE RFASON YOU 
MAY EXPECT GREAT THINGS -ROM 
FPSON PRINTERS 



MH^ 




90 DAY WARRANTY 



NEW FROM BROTHER! 
COMRlTER daisy wheel 

Especially designed for word processing; 200 
words per minute, bidirectional, daisy wheel 

$84-9.95 



RADIO SHACK 
PRINTERS 

DMP 100 $339.95 

DMP 200 $679.95 

DMP 400 $1015.00 

DMP 500 $1525.00 

DMP 2100 $1799.00 

Daisywheel II $1649.00 

DWP 410 $1287.95 



SMITH-CORONA TP-1 

DAISY WHEEL PRI 

The Smith Corona TP-1 text printer is a microprocessor controlled daisy wheel printer 
which delivers fully formed executive quality printout at a speed of 1 44 words per min- 
ute. The printer is a simple, low cost, and reliable unit which can be utilized with word 
processing systems, microcomputers, personal computers, small business systems, or 
in any environment which requires high quality printing. Its compact size and attractive 
packaqinq will allow it to blend into any environment. 

COMPATIBLE WITH ALMOST ALL COMPUTER SYSTEMS 




•Smith Corona is a registered TRADEMARK 
of SCM Corporation 



$559 




* 







OKIDATA PRINTERS 

Microline 82A $425.00 

1 20CPS, pin feed, paper up to 9.5" wide 

• Microline 84 $1049.00 

Microline 92 $559.00 

160 CPS. 10". pin feed 



Microline 83A 

120CPS. adiustable tractor feed, paper up 



Microline 93 

1 60 CPS, 1 5", adiustable tractor feed 



. . $699.00 p^| 

to 6" wide ; y^j. 

. . $949.00 I 



THESE ARE OUR CASH DISCOUNTED PRICES. COD. AND CHARGE ORDFRS ARE 3% HIGHER. AIL COMPUTERS ARE SHIPPED 
FREIGHT COLLECT PRICES. SPECIFICATIONS. AND AVAILABILITY ARE SUBJECT TO CHANGE WITHOUT NOTICE IBM & IBM PER- 
SONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL BUSINESS MACHINES. INC TRS-80& RADK3 SHACK ARE TRADE- 
MARKS OF TANDY CORPORATION 
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118 SO. MILL ST 
PRYOR, OK 74J61 

(918) 825 4844 
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USINESS 



ED INFO QUICK? 

call our automated TOLL 
answering machines. Leave your n 
dress, and phone number. Requests 
mailed 1 st Class the same day. Only r< 
for product information will be pro> 
all others will be disregarded by 
answering service. 

call 1-800-331 -38" ~ 

In Oklahoma, Call: , 




ARCADE GAMES 
AND GOOD GRAPHICS 

for MODEL II 



These games, only $19.95 each: 

Galactic Invaders Meteors 

Computer Casino Bustout 

Quest for Adventure Wormy 

The Wrath of Ken Chess 

Hang The Butcher Othello 

SPECIAL! $5.00 discount per game 
for orders of two of more games 
sent with this ad. 

Call or write for full game list. 

Mr. Kenneth Kuzel c/o 
KUZEL COMPUTER SERVICES 
8654 W. Berwyn Ave. #3S 
Chicago, Illinois 60656 ^ 354 
(312)399-0273 ' 



MICRO-ECOM™ 



YOU CAN SEND YOUR MESSAGES USING 

~ m 

o 
o 

o 

jj; "We make E-COM® friendly" h 

> > 

5 MICRO-ECOMTM transforms typed massages Into q 
to complex E-COM* formats ready for easy m 
o8 transmission to Serving Post Offices. Draw 2 
j graphics right Into your messages. Use all ^ 

< E-COM* message types In each transmission. ^ 
£ There won't be much to do but type messages In m 
(/) your word processor. Use MICRO-ECOMtm to ° 
to prepare the transmlttable E-COM* fltes. $396 ™ 
_j buys Hie entire package-programs on disk, (150 

O pages of clear documentation.) Direct or on-line j^ 
H support. (For TRS-80 Models 1,2,3,4,12 & 16 plus m 
£. other computers using Microsoft BASIC). c 

E —. 

q Send check or money order to 

£ TODAY'S FUTURE, P.O. BOX 29251 

< San Antonio, TX 78229 
Z 

£3 Office: (512) 684-6505 

£ Computer (512) 684-6216 

O Brochure available; , ,. 

% VISA/MC ]^rj /40^ O 

^dwoo oiNoaioai^oiAdgsTvv 05 




n you wfiGn you go! 
ICRIBBAGE $22.96 

Take a break in your journey for a re- 
laxing hand with your micro. The Cat's 
PaW T Cribbage challenger is a worthy 
opponent for 1 player, or an electron- 
ic scorekeeper for 2. 24K required. 

I EXPENSE REGISTER $24.95 

Keep track of expenses while you 
travel. Supports 15 different accts. 
Save to RAM file or Cassette. Print- 
outs by date or acct. code. Stores re- 
cords of 300 transactions with 32K. 

(Model lll/IV BOTH only $40. 

[Disk Please add $2. ship./hndlg. 

i available. per order. "■"■"I .."■.". 



L/R SOFTWARE 

P.O. Box 39 
Garfield, AR 72732 
(501)443-2257 -268 



Listing 7 continued 

0-.GOSUB4 90 

450 L=160:GOSUB500:L=164:GOSUB500:L=171:GOSUB500:L=17 8:GOSUB500:L=185:GOSUB500:L 

=iy2:GOSUB500:L=199:GOSUB500 

460 L=200:GOSUB500:L=207:GOSUB500:L=214:GOSUB500:L=221:GOSUB500:L=228:GOSUB500:L 

=23 5:GOSUBb00:L=23 9:GOSUB500:RETURN 

47 PRINT@322,"K":PRINT@482,"E":PRINT§642,"N":PRINT§802,"O":PRINT§104 2,"K" : PRINT 

@1202,"E":PRINT@1362,"N":PRINT§15 22,"O" 

480 PRINT9397 , "K" : PRINTS557 , "E" :PRINT@717 , "N" : PRINT@877 , "0" :PRINT@1117 , "K" : PRINT 

§1277 , "E" :PRINT@1437 , "N" : PRINT@1597 , "0" -.RETURN 

490 PRINT@L,STRING$(80,150) :RETURN 

50 FORI=lT01 8 :PRINT@L+I*80,V$: NEXT: RETURN 

510 L=3 28:N=1:GOSUB5 90:L=36 4:N=6:GOSUB590 

520 L=488:N«=11:GOSUB590:L=524:N=16:GOSUB590 

530 L=648:N=21:GOSUB590:L=684:N=26:GOSUB5 90 

540 L=808:N=31:GOSUB590:L=844:N=36:GOSUB5 90 

550 L=1048:N=41:GOSUB5 90:L=10 84:N=46:GOSUB5 90 

560 L=1208:N=51:GOSUB590:L=1244:N=56:GOSUB5 90 

57 L=1368:N=61:GOSUB5 90:L=1404:N=66:GOSUB5 90 

580 L=1528:N=71:GOSUB5 90 :L=1564:N=76 :GOSUB590 : RETURN 

590 F0RI=1T05:PRINT@L-1,USINGU$;N;:M(N) =L: L=L+7 :N=N+1 :NEXT: RETURN 

600 DATA "GOLD" , "SILVER" , "BLACK" , "BROWN" , "RED" , "ORANGE" , "YELLOW" , "GREEN" , "BLUE" , 

"VIOLET" , "ROSE" , "BRONZE" , "LT BLUE" , "COPPER" , "TAN" , "WHITE" 

610 CLS:PRINT@20,"R ULES FOR KEN 0":PRINT 

620 PRINT'KENO IS AN EXCITING, SUSPENSEFUL GAME THAT PAYS HIGH 0DDS1":PRINT 

630 PRINT'TO PLAY KENO, FROM 1 TO 15 NUMBERS ARE SELECTED FROM THE RANGE 0F":PRI 

NT"1 TO 80 AVAILABLE ON THE ' TICKET' .": PRINT 

640 PRINT'TO MARK THE SELECTED NUMBERS, ENTER THE NUMBER AND THEN DEPRESS <ENTER 

> FOR AS":PRINT"MANY NUMBERS (MAX OF 15) AS YOU DESIRE. AS THE NUMBERS ARE 'MAR 

RED' ,":PRINT"TW0 ASTERISKS WILL APPEAR IN THE BOX SPACE WITH THE NUMBER." 

650 PRINT: PRINT'TO BEGIN OVER (WITH A NEW TICKET), ENTER C AND DEPRESS <ENTER>. 

TO PLACE A-:PRINT"BET, ENTER B AND DEPRESS <ENTER>. ": PRINT 
660 PRINT'WHEN THE GAME BEGINS, TWENTY NUMBERS ARE SELECTED AT RANDOM FROM THE": 
PRINT'TOTAL OF EIGHTY AVAILABLE. THESE WINNING NUMBERS ARE INDICATED BY": PRINT" 
THE GRAPHIC 'CROSS' ADJACENT TO EACH NUMBER. ": PRINT 

670 PRINT'THE WINNINGS FOR EACH GAME IS COMPUTED FROM STANDARD TABLES BASED ON T 
HE":PRINT"NUMBER OF SPOTS MARKED AND THE AMOUNT OF THE BET.": PRINT 
680 PRINT"GOOD LUCK, AND HAVE FUN I i 1 " : PRINT 
690 INPUT'WHEN READY TO PLAY, DEPRESS <ENTER>" ; Q$ : GOTO90 



Program Listing 8. Baccarat 

10 REM 07-JAN-83 *BDL MODEL II* 

20 REM - PROGRAM BACCARAT/BAS „„,„_, „r, T „m 

30 CLS-CLEAR1000:DEFDBLG,T:PRINT@20,"BACARRAT SIMULATION PROGRAM" : PRINT:PRINT 

40 DIMM$(416) :V$=CHR$(148) :GA$=CHR$ (128) :GB$=CHR$ ( 131) :GC$=CHR$ ( 129) :GD$=CHR$(13 

0) •LS="<":RS= n >":U?="*»*-**" :U °5="t###*#.«*" .,-„ 

50 MS(1)="A":M$(14)="A":MS(27)="A":MS(40)="A":MS(11)="J":MS(24)="J :MS(37)= J :M 

S(50)="J":MS(12)="Q":M$(25)="Q":MS(38)="Q":MS(51)="Q":MS(13)="K":MS(26)="K":MS(3 

60 = FORI = 2TO107m$(I)=STR$(I) :NEXT:FORI = 15T023:M$(I)=STR$(I-13) -.NEXT: F0RI=28T036:M 
$(I)=STRS(I-26) :NEXT:F0RI = 41T049:MS(D=STR$(I-39) :NEXT 

7 PRINT'THE ANCIENT GAME OF BACCARAT IS PLAYED WITH 8 COMPLETE DECKS OF CARDS. 
: PRINT: PRINT"THE CARDS ARE BEING SHUFFLED BY THE CROUPIER AT THIS TIME :PRIN 

80 F0RI=1T07:F0RJ=1T052:M$(I*52+J)=M$(J) :NEXT:NEXT „„„,„„„. „ nT 

90 PRINT'THIS PROGRAM SIMULATES THE BACCARAT GAMES AS PLAYED IN THE CASINOS : PRI 

NT" IN NEVADA.": PRINT 

100 PRINT" INSTRUCTIONS REQUIRED (Y/N) " 

110 I$=INKEY$ : IFIS="THEN110ELSEIFI$="*"THEN770ELSEIFI$="N"THEN120ELSE110 

120 CLS:PRINT"C ASINO BACCARA T" : PRINTH62 , "G A M E : " :K=K+1 :PRINT@72 

130 PRINTCHR?(2) :GOSUB280:PRINT@414,"P L A Y E R" : PRINTS455 , "B A N K" : L=643 :GOSU 
B340:L=725:GOSUB410:L=655:GOSUB340:L=737:GOSUB410:L=683:GOSUB340:L=765:GOSUB410: 

L=695:GOSUB340:L=777:GOSUB410:PRINTCHR$(U 

140 SE=0-PRINT@240, "PLACE BET (P-PLAYER, B-BANK , T-TIE) ; 

150 I$=INKEY$:IFI$=""THEN150ELSEIFI$="P"THENSE=1:PRINT@1455,L$:PRINT§1462,R$ELSE 

IFI$="B"THENSE=3:PRINT@1497,L$:PRINT@1504,R$ELSEIFI$="T"THENSE=2:PRINTei476,LS:P 

RINT01483 ,RS:PRINT@1477 ," "ELSE150 

160 PRINT@290,SPACE$(25) :PRINT@290, "ENTER AMOUNT OF BET" ; : INPUTM: IFM<0ORM>999 . 99 

170 PRINT@1443,"B E T : " : IFI$="P"THENPRINT@1456 ,USINGU$;MELSEIFI$="B"THENPRINT@1 

498,USINGU$;MELSEIFI$="T"THENPRINT@1477,USINGU$;M 

180 R1=RND(416) :L=725:T$=M?(R1) : RX=R1 :GOSUB290 :GOSUB420:GOSUB330 

190 R2=RND(416) : IFR2=R1THEN190ELSEL=737 : T$=M$ (R2) : RX=R2 :GOSUB290 :GOSUB420 :GOSUB3 

30 

200 GOSUB430:IFFG=0THEN220ELSEL=667:GOSUB340 

210 R3=RND(416) : IFR3=R1ORR3=R2THEN210ELSEL=749: TS=MS (R3) : RX=R3 :GOSUB290 :GOSUB420 

220 S R4=RND(416) : IFR4=R1ORR4=R2ORR4=R3THEN220ELSEL=765 :T$>M$ (R4) :RX=R4 :GOSUB290 :G 

23 B R5=RNDt416) : IFR5=R1ORR5=R2ORR5=R3ORR5=R4THEN230ELSEL=777 :T$=M$ (R5) :RX=R5:G0S 

UB290:GOSUB4 20:GOSUB330 

240 GOSUB520:IFFZ=0THEN260ELSEL=707:GOSUB340 

250 R6=RND(416) : IFR6=R1ORR6=R2ORR6=R3ORR6=R4ORR6=R5THEN250ELSEL=789: T$=M$(R6) : RX 

=R6:GOSUB290:GOSUB420:GOSUB330 

260 GOSUB680 

280 FORI=1TO13:PRINT@480+I*80,V$: NEXT: FORI=1TO13:PRINT@519+I*80,V$: NEXT: F0RI=1T0 
13 :PRINTe520+I*80,V$: NEXT: FORI=lTO13:PRINTg559+I*80,V$: NEXT: PRINTS480, STRINGS (80 

,150) :PRINT@1600,STRING$(80,150) :RETURN „„„„„^,.„ 

290 IFRX>0ANDRX<14ORRX>52ANDRX<66ORRX>104ANDRX<118ORRX>156ANDRX<170ORRX>208ANDRX 
<222ORRX>260ANDRX<27 4ORRX>312ANDRX<326ORRX>364ANDRX<378THENB$="HEARTS": RETURN 
300 IFRX>13ANDRX<270RRX>65ANDRX<7 90RRX>117ANDRX<1310RRX>169ANDRX<1830RRX>221ANDR 
X<2350RRX>273ANDRX<2870RRX>325ANDRX<3390RRX>377ANDRX<391THENB$="DIAMONDS": RETURN 
310 IFRX>26ANDRX<40ORRX>78ANDRX<92ORRX>130ANDRX<144ORRX>182ANDRX<196ORRX>23 4ANDR 
X<248ORRX>286ANDRX<300ORRX>338ANDRX<352ORRX>390ANDRX<404THENBS="CLUBS : RETURN 

320 B$="SPADES": RETURN 

330 PRINT@L,T$:PRINTgL+80,B$:RETURN 

340 LT=L+10:PRINT@L,GA$:FORI=1TO7:PRINT@L+I*80,VS:NEXT:PRINT@L+640,GBS:PRINT@L+1 

0,GC$:FORI=1TO7:PRINT@LT+I*80,VS: NEXT: PRINT3L+650 ,GD$: PRINT0L+1 , STRINGS (9, 150) :P 

RINTgL+641,STRINGS(9,150) :RETURN 

350 TW=TW+GW— DL 

360 PRINT@1760,"G AME WINNINGS : "USINGUU$;GW:PRINT@1800 , "T T A L 

WINNINGS : "USINGUUS;TW 

370 PRINT@240,SPACE$(80) :PRINT@240,"W INNER: "WS: PRINT@300 , "PLAY AGAIN (Y/N 

Listing 8 continues 
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Color Computer Attaches to Any TV 
For Family Fun Et Education 

TRS-80 16K Computer by Radio Shack 

Get started in computing at tremendous savings! Just pop in an instant- 
loading, ready-to-run Program Pak " for fun-filled games, help with your 
youngster's education, or to set up the family budget. Add more memory, a 
printer or joysticks for added fun from video games. #26-3004 



Reg. $399.95 





YOUR 1 st DRIVE 
= $ $ SAVED! 

DRIVE FOR 

TRS-80 COLOR 

COMPUTER 

• 1 56,672 Characters of 
user storage. 

• Quick and Easy Access to 
Programs Ef Data. 

• Plugs into Computer's 
Program Pak Port. 

• Add Up to Four Drives 
for a Total of over 

626,000 characters of storage. 

• Hardware and Software 
Compatible 



SUG RET. 

$599.00 



OUR PRICE 

$399.00 




Commodore 64 

COMPUTER FEATURES: 

• Typewriter Keys 

• Typewriter Feel 

• Color Control Keys 
£F • Graphics on Keys 

• Reverse Letters 
Programmable Function Keys 

• Works with TV or Monitor 

• True Lower Case Letters 



hESE ARE OUR CASH DISCOUNTED PRICES COD- AND CHARGE OROERS ARE 3* HIGHER ALL COMPUTERS ARE SHIPPED 
REIGHT COLLECT PRICES. SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO CHANGE WITHOUT NOTICE IBM&IBMPER- 
0NAL COMPUTERSARE rRADEMARKS Of INTERNATIONA! BUSINESS MACHINES INC TRS-80 6 RADIO SHACK ARE T RAOE- 
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918/825-4844 



Business 



* I 



NEED INFO QUICK? 

Then just call our automated TOLL FREE 
answering machines. Leave your name.ad- 
dress. and phone number. Requests will be 
mailed 1 st Class the same day. Only requests 
for product information will be processed; 
all others will be disregarded by our 
answering service. 

call 1 -800-331 -3886 

f 217 in Oklahoma. Call: 
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THE UNIQUE PERSONAL COMPUTER 
PROGRAM FOR COIN COLLECTORS 

• The program that makes cataloging 
your U.S. coin collection a snapl 

. Data file with latest Market Value for 
all grades of most coins supplied on 
program disk. 

• Quarterly Market Value updates available. 

• Multiple printed reports give Inventory 
Value • Profit A Loss - Tax / Insurance 

Information. 

• Concise Users Manual Included. 

. Available for 48K TRS-80 I/HI 
64K IBM-PC. ^168 

. Write for free brochure or order now. MMM. 



Price - $95 (Calif, residents add 6* Sales Tax) 

plus SI. 50 to cover postage and shipping 

COMPXJ QUOTE Telephone 213/348 3662 



6914 Berqulst Ave. Dept. 80 Canoga Park. CA 91307 




Parallel Printer Switch 
for TRS 80 

Transfers printers, terminals and 
other devices. Model 80-H/16 in- 
stantly transfers parallel devices — 
without risk of damage that can result 
when cables are manually unplugged. 
Contactsaregold platedforminimum 
resistance, automatic cleaning and 
optimum performance. Switch posi- 
tion indicates correct channel selec- 
tion. Beige cabinet, 2" high. $99.95 
plus shipping. ^ 436 

Communication 
Cable Company 

3 1 9 Louella Ave. Wayne, PA 1 9087 
215-964-9404 
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DISK BACKUP 

ONE MEGABYTE ON A C-60 

MODELS I or III 

Includes Disk to Disk Copy. 

Auto Mixed Density Recognition. 

Supports most Double Density Boards. 

Configuration Mode For Your System. 

Hassle Free Cassette Recorder Operation. 

Set Volume Control to Maximum and Forget It. 

Tape Disks at Computer Clock Speeds to 4 MHZ 

Auto Retrieval o! Taped Disk with Formatting 

Will Backup Most Popular Dos Made Disks. 

Includes Cassette Recorder Controller, 

Power Supply, Computer Ribbon Cable. Disk S Manual 

Minimum Requirements: Model I, or III Computer, 

One Drive, Recorder with Cable. 32K of Memory. 

Specify your TRS-80 Computer Model. 

$1 4S 95 Plus :5b 00 for Handling & Shipping 



PLEASE WRITE FOR MORE INFORMATION 

BETA ENTERPRISES INC. 

14049 Settlement Acres Drive 

Cleveland. Ohio 441 42 

(216)362-6191 
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3 80 IS=INKEY$: IFI$=" "THEN3 80ELSEIFI$="Y"THEN3 90ELSEIFI$="N"THEN400ELSE3 80 

390 R3=0:R6=0:RANDOM:GOTO120 

400 CLS:PRINT@480,"T HANK YOU FOR P L A Y I N G ! 1 i - COME 

AGAIN. . ."; PRINT: PRINT: PRINT: END 
410 PRINT3L,"* * * *":PRINT@L+80," * * * " : PRINTgL+160 , " * * * *" : PRINT@L+240 , " * 
* *":PRINT@L+320,"* * * *" : PRINTgL+400 , " * * *" : PRINT@L+480 , "* * * *":RETURN 
420 PRINTSL," ":PRINT@L+80," " : PRINT0L+160 , " " : PRINT0L+240 , " 

":PRINT@L+320," " : PRINT8L+400 , " " : PRINT@L+480 , " ":RETURN 

430 FG=0:FX=0:V1=VAL(M$(R1> ) : V2=VAL (MS (R2) ) 
440 IFM$(R1)="A"THENV1=1 
450 IFM$(R2)="A"THENV2=1 
460 IFV1=10THENV1=0 
470 IFV2=10THENV2=0 
480 V3=V1+V2 

490 IFV3>=0ANDV3<6THENFG=1 
500 IFV3>5ANDV3<8THENFG=0 
510 IFV3>7ANDV3<10THENFX=1: RETURN 

520 FZ=0:VP=VAL(M?(R3) ) : VX=VP: V4=VAL (MS (R4) ) : V5=VAL (MS ( R5) ) 
530 IFM$(R3)="A"THENVP=1 
540 IFM$(R4)="A"THENV4=1 
550 IFM$(R5)="A"THENV5=1 
560 IFVP=10THENVX=0 
570 IFV4=10THENV4=0 
580 IFV5=10THENV5=0 
590 VT=V4+V5 

600 IFVT=3THENIFVP>0ANDVP<11THENFZ=1 
610 IFVT=4THENIFVP>1ANDVP<8THENFZ=1 

6 20 IFVT=5THENIFVP>3ANDVP<8THENFZ=1 
630 IFVT=6THENIFVP>5ANDVP<8THENFZ=1 
640 IFVT=7THENFZ=0 

650 IFVT<3THENFZ=1 

660 IFFX=1THENFZ=0 

67 RETURN 

680 GW=0:V6=VAL(M$(R6) ) : IFMS(R6) ="A"THENV6=1 

690 IFV6=10THENV6=0 

7 00 DP=V3+VX:DB=VT+V6 

710 IFSE=1THENIFDP>DBTHENGW=M:W$="PLAYER" : G0T07 50ELSE740 

720 IFSE=2THENIFDP=DBTHENGW=M*9:W$="PLAYER (TIE) " : G0T07 50ELSE7 40 

730 IFSE=3THENIFDB>DPTHENGW=M*.95:WS="PLAYER" :GOTO750 

740 GW=0:WS="HOUSE" 

7 50 IFGW=0THENDL=MELSEDI, = 

76 RETURN 

770 CLS:PRINT@20,"R U L E S FOR BACCARA T" : PRINT : PRINT 

780 PRINT-THE OBJECT OF THE GAME IS TO WAGER ON THE HAND (BANK OR PLAYER) WHICH 

THE": PRINT"PLAYER FEELS WILL BE CLOSEST TO 9. THE HIGHEST HAND IN BACCARAT IS 9 

.": PRINT"THE LOWEST IS 0. THE CLOSEST HAND TO 9 IS THE WINNER. ": PRINT 

7 90 PRINT-FACE CARDS, TENS, AND ANY COMBINATION OF CARDS TOTALING TEN, HAVE ' ZER 

1 ": PRINT" VALUE. THE ACE IS WORTH 1.": PRINT 

800 PRINT" IN BACCARAT THERE ARE ONLY TWO NORMAL WAYS TO BET, THE PLAYER'S HAND 

R THE": PRINT-BANK'S HAND. EACH HAND IS DEALT TWO CARDS FROM THE DECKS WHICH ARE 

": PRINT-PLACED IN A BOX CALLED THE 'SHOE 1 . THE PLAYER'S HAND IS ACTED UPON FIRS 

T," 

810 PRINT-THEN THE BANK'S HAND. THE PLAYER'S HAND IS EVALUATED FIRST AND IF THE 

RULES" :PRINT"CALL FOR A THIRD CARD IT IS DEALT. ": PRINT 
820 PRINT-THERE ARE NO OPTIONAL CARDS IN BACCARAT. PLAYERS MAY BET ON A 'TIE' H 
AND.":PRINT"TIE BETS ARE DECLARED AT THE START OF BETTING AND PAY 9 FOR l.":PRIN 
T 

830 PRINT"THE HOUSE COLLECTS A 5% COMMISSION ON ALL WINNING BETS ON THE BANK HAN 
D." 
840 PRINT: INPUT-WHEN READY TO PLAY, DEPRESS <ENTER>" ; QS : GOTO120 



Program Listing 9. Draw Poker 



10 REM 25-FEB-83 *BDL MODEL II* 

20 REM PROGRAM DKWPOKER/BAS 

30 CLS:CLEAR500 

40 DIMM$(52) ,H(52) : GAS=CHRS ( 128) : GBS=CHRS ( 129) :GCS=CHRS( 130) : GDS=CHR$ ( 131) :GE$=C 

HRSI148) :GFS=CHR$C150) 

50 MS(l)="A":MS(14)=-A":M$(27)="A":MS(40)="A":M$(ll)="J":M$(24)= n J":M$(37) ,"j":M 

$(50)="J":M$(12)="Q":M$(25)="Q n :M$(38)="Q":M$(51)="Q":M$(13)="K":MS(26)="K":MS(3 
9)="K":M$(52)="K" 

60 FORI=2TO10:MS!I)=STRS(D : NEXT: FORI=15T023 : M$( I ) =STR$ ( 1-13 ) : NEXT : FORI =28T036 : M 
S(I)=STRS(I-26) :NEXT:F0RI=41T049:MS(I)=STRS(I-39) :NEXT 
70 PRINT@20," DRAW-POKER SIMULATION PROGRAM" : PRINT: PRINT 

80 PRINT'THIS PROGRAM IS PATTERNED AFTER THE ELECTRONIC GAMING MACHINES FOUND" :P 
RINT'AT THE CASINOS IN NEVADA. ": PRINT 
90 PRINT-NEED INSTRUCTIONS (Y/N)"; 

100 IS=INKEYS: IFIS=""THEN100ELSEIFI$="Y"THEN1230ELSEIFI$="N"THEN110ELSE10 
110 HX=0:DX=0:CX=0:SX=0:CLS:PRINT@29,"D RAW POKER" 
120 PRINT6348,"- GOOD LUCK-" 

13 GOSUB1070:GOSUB1160:GOSUB1080:GOSUB1170:GOSUB1090:GOSUB1180:GOSUB1100:GOSUB1 
190:GOSUB1110:GOSUB1200 
i4<; PRINTS1665,"* * * 2 5 * * *" 

150 PRINT@1489,"I NSERT COIN (1-5)"; 

160 I$=INKEY$:IFIS=""THEN160ELSEIFI$>="1"ANDI$<="5"THENM=VAL(IS) :GOTO170ELSE160 
170 PRINT@1440,"C I N S":PRINT@1600,"I N -"M"-" 
180 PRINT@1760,"TO DEAL, DEPRESS <ENTER>" ; : INPUTQS; 
190 PRINT@1760,STRING$(32,24) 

200 GOSUB210:GOSUB2 20:GOSUB23 0:GOSUB240:GOSUB25 0:GOTO26 

210 PRINT@722," " ; : PRINT@803 , ' " ; : PRINT@882 , " " ; : PRINT0963 , 

"; :PRINT@1042," " ; : PRINT@1123 , " " ; : PRINT01202 , " " : RETU 



RN 

220 PRINTS739," "j 

";:PRINT@1059," 
N 

230 PRINT@756," ' 

" ";:PRINT@1076," 

RN 

240 PRINT@773," 
," ";:PRINT@1093,' 
URN 

250 PRINT0790," ' 

," ";:PRINT@1110,' 
URN 



i:PRINT@820," 

"; :PRINT@114t 



:PRINT@837," 

"; :PRINT@1157, 



:PRINT@899," " ; : PRINT0980 , " 

"; :PRINT@1219," " : RETUR 



'; :PRINT@916," " ; : PRINT@997 , 

1 "; :PRINT@1236," ":RETU 



:PRINT(d854," " ; : PRINT0933 , " " ; : PRINT@1014 

"; :PRINT@1174," " ; : PRINTS1253 , " ":RET 

:PRINT@871," " ; :PRINT@950," " ; : PRINT81031 

"; :PRINT@1191," " ; : PRINT61270 , " " : RET 

Listing 9 continues 
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RADIO SHACK HARD DRIVES 




5 Meg. Primary for Model III 

Includes Hard Disk Operating Systems 

with Ekisic 

8.4 Meg. Primary for Models II, 12 & 16 

Uses TRS-DOS Commands, Plus 
Specially Designed Enhanced Features 

1 2 Meg. Primary for Models II, 1 2 & 1 6 

NEW from Radio Shack 



$2395 

$3199 
$3495 



COMPLETE MOD III DISK DRIVE 



KIT ONLY $399 r. 



leg. $595.00 

Kit comes complete with power supply, double density disk drive, mounting hard- 
ware and instructions. HURRY 1 This is a limited offer. 

DISK DRIVES for the TRS-80 MODEL III 



DRIVE 

Single Side 40 Track S399 

Double Side. 40 Track S474 

Single Side. 80 Track $474 

Double Side. 80 Track $549 

Drive includes the controller board, power supply, ca 
nons are included for installation li takes 30 mum! 
No soldering is required TRS00S operaling systen 



DRIVE 1 

Single Side. 40 Track $1 99 

Double Side, 40 Track $269 

Single Side. 80 Track $269 

Double Side. 80 Track $319 

)s and all mounting hardware Complete inslruc 
to an hour to install disk drives m a Model III 
5 not included in 



;:'!•:>' 



J^» 



*fe 






5 Ya" 



TEAC: 50A is a full-size Disk Drive 
for use on the MOD I &■ color 
computer. It has a lead screw 
actuator. This means that the read- 
write head is positioned with much 
greater accuracy, but it takes longer. 
The 50A has a stepping rate of 30 
milliseconds as opposed to 5 
milliseconds for the other Drives. 
The TEAC SLIMLINE is exactly 1 / 2 
the size of the other Drives. 



rives 



TANDON: This is the most 
popular 5/2" drive. It has been 
used by Radio Shack, IBM, Osborne 
and many others. Tandon uses a 
split-band type actuator. 

CDC: The CDC also uses a split- 
band type actuator. It is known to 
have excellent quality & has been 
used by IBM Er many others. 



TEAC 





40 Track, 55x1 


® 


Single Sided 


iitfM~'"f 


Slimline 


Wr y 


40 Track, (55b> 




Double Sided 




Slimline 


Ifi 


80 Track, <&5f> 


llBfe 

in 


Double Sided 
Slimline 

180 [ 



$199 
$269 
$319 



180 DAY WARRANTY 



TANDON 

40 Track, noon 

Single Sided $189 

40 Track, poo-2) 

Double Sided $269 

80 Track, ( 100-3) 

Single Sided $269 

80 Track, noo-4) 

Double Sided $319 

90 DAY WARRANTY 



mm- 



CONTROL DATA CORP. 

(CDC) 

40 Track, O408i 

Single Sided $199 

40 Track, 0409, 

Double Sided $309 

80 Track, (9409-tj 

Double Sided $319 

90 DAY WARRANTY 



| THE ABOVE PRICES ARE FOR BARE DISK DRIVES WITHOUT POWER SUPPLY & CABINET. FOR ONLY$50.00, WE WILI 
I ASSEMBLE & TEST DISK DRIVES WITH POWER SUPPLY & CABINET. 



THESE ARE OUR CASH DISCOUNTED PRICES COD- AND CHARGE ORDERS ARE 3-. HIOER A, l cOVPUlrHS ARb SHIPPED 
FREIGHT COLLECT PRICES. SPECIFICATIONS. AND AVAILABIL ITV ARE SUBJECT TO CHANGE WITHOUT NOTICE. IBM 6 IBM PER- 
SONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL BUSINESS MACHINES. INC TRS-80 Er RADIO SHACK ARE TRADE- 
MARKS Of I0NDV CORPORATION 



918 825-4844 SmaU 

BUSJNESS 

&\»,S£5.. COMPUTERS 



answering machines. Leave your na 
dress, and phone number, Requests 
mailed 1 st Class the same day. Only re 
for product information will be proc 
all others will be disregs"*' ' * 
answering service. 

call 1-800-331 - 

>217 .lift"* 

1-91 



mam 



POWER LINE 
PROBLEMS? 




SPIKE-SPIKER® ...THE SOLUTION 

Protects, orgonizes, controls computers & 
sensitive electronic equipment. Helps prevent 
software "glitches", unexplained memory loss, 
and equipment damage. Filter models attenuate 
conducted RF interference. 1 20V, 1 5 Amps. 
Other models available. Ask for free literature. 



DELUXE POWER CONSOLE 

$79.95 

Transient absorber, dual 5-stage 
filter. 8 individually switched 
sockets, fused, main switch, & lite. 

QUAD-II $59.95 

Transient absorber. Dual 3 stage 
filter. 4 sockets, lite. 

QUAD-I $49.95 

Transient absorber, 4 sockets. 

MINIM $44.95 

Transient absorber, 3 stage filter, 
2 sockets. 

MINI-I $34.95 

Tronsient absorber, 2 sockets. 




6584RuchRd., Dept. 80 
Bethlehem, PA 18017 



215-837-0700 

Out of State Order Toll Free 
890-523-9685 
DEALER INQUIRIES INVITED • CODs add S3. 00 + Ship. 



BUSINESS 
SOFTWARE 

It's time to SLASH OVER-PRICED 

Business Software. We have developed 
a Sophisticated General Ledger Package 
with many of the same features found 
in software costing several hundred 
dollars. This friendly program was 
designed with Reliability, Efficiency, 
High Capacity and Ease of Use in Mind. 

Features: 

• Over 20 various Fin. Reports 

• P&L Statement by Department 

• Flexible Report Format 

. Create up to 500 G/L Accts. 

• Over 4000 Transactions/Month 

• Fully Menu-Driven 

• User-Oriented Documentation 

For Model 1 1 1 48K & 2 drives 

General Ledger $99.95 

Also offering ... a Comprehensive 

Loan Amortization Program. 

For Business or Home use. 

Model 1 & II I 48K 1 dr $24.95 

R & S SOFTWARE 

P.O. Box 81 

Hammond, IN 46320 
(312) 862-4531 

Add $3.00 for shipping/handling 
Indiana Residents Add 5% ^200 



Listing 9 continued 

260 R1=RND(52) :L=722:T$=M$(R1) :RX=R1:GOSUB1220:GOSUB1210 

270 R2=RND(52) : IFR2=R1THEN270ELSEL=739:T$=M$(R2) :RX=R2:GOSUB1220 : GOSUB1210 
. 280 R3«=RND(52) :IFR3«R1ORR3=R2THEN280ELSEL=756:T$=M$(R3) :RX=R3:GOSUB1220 :GOSUB121 



290 R4=RND(52) : IFR4=R1ORR4=R2ORR4=R3THEN290ELSKL=773 : T$=M$ (R4) : RX=R4 :GOSUB1220 : G 

OSUB1210 

300 R5=RND(52) : IFR5=R1ORR5=R2ORR5=R3ORR5=R4THEN300ELSEL=7 

B1220:GOSUB1210 

310 PRINT@1760,"TO HOLD CARDS. USE KEYS 1 - 5 : TO CANCEL USE <C> 

<D>"; 

320 K1«0:K2=0:K3=0:K4=0:K5=0:QH$="" 

330 I$=INKEY$:IFI$=""THEN330ELSEPRINTCHR${2) : IFI$="1"THENK1=1 : PRINTS56 2 , "H 

"ELSEIFI$="2"THENK2=1:PRINT@579,"H O L D'ELSEIFI $ = "3"'i'HENK3 = l : PRINT@596 , "H 

n ELSEIFI$ = n 4 n THENK4-l:PRINT@613,"H O L D" L'LSL'IFI $ = " 5 "THENK5 = 1 : PRINT@630 , "H 



l:T$=M$(R5) :RX=R5:GOSU 



TO DRAW USE 



;:, i) 

', D 

r, d 



*C"THENGOSUB3 50:Kl=0:K2=0:K3=0:K4=0:K5= 



: :PRINT@596,' 



":PRINT@613,' 



3 40 IFI$="D"THENGuSUB35 0:GOTO3 6 0ELSEIFI$= 

0:GOTO3 3 0ELSK3 3 

350 PRINT@562," " :PRINT@579, " 

":PRINT@630," *:RETURN 

360 IFK1 = UTHKNGOSUB210:GOTO370EI,SE380 

370 RA=RND(52| : IFRA=R1OKRA=R2ORKA=R3ORRA=R4ORRA=R5THEN370 ELSEL=7 22 : T$=M$ ( RA) : RX = 
RA:GOSUB1220:GOSUB1210 

3 80 IFK2=UTHENGOSUB220:GOTO3 90ELSE40 

390 RB-RND(52) : IFRB=R1ORRB=R2ORRB=R3ORRB=R4ORRB=R5ORRB=RATHEN390ELSEL=739:T$=M$ ( 

RB) :RX=RB:GOSOB1220:GOSOB1210 

40 IFK3=0THENGOSUB23 0:GOTO410ELSE4 20 

410 RC=RND(52) :IFRC=R1ORRC=R2ORRC=R3ORRC=R4ORRC=R5ORRC=RAORRC=RBTHEN410ELSEL=756 

:T$=M$(RC) :RX=RC:GOSUB1220:GOSUB1210 

4 20 IFK4=0THENGOSUB240:GOTO43 0ELSE440 

430 RD=RND( 52) : IFRD = R1ORRD = R2ORRD = R3ORRD = R4ORRD = R5ORRD=RAORRD = RBORRD = RCTHEN430EL 

SEL=773:T$=M$(RD) : RX=RD: GOSUB1 2 20 : GOSUB 1210 

440 IFK5=0THENGOSUB250:GOTO450ELSE460 

450 RE=RND(52) : IFRE=RlORRE=R20RRE=R3ORRE=R4ORRE=R5ORRE=RAORRE=RBORRE=RC0RRE=RDTH 

EN4 5 0ELSEL=7 90:TS=M$(RE) : RX=RE : GOSUB1220 : GOSUB1210 

460 IFK1=0THENM(RA)=1ELSEM(R1)-1 

470 IFK2=0THENM(RB) =1ELSEM (R2) =1 

480 IFK3=0THENM(RC)=1ELSEM(R3) =1 

490 IFK4=BTHENM(RD)=1ELSEM(R4)=1 

500 IFK5=0THENM(RE)=1ELSEM(R5)=1 

510 PRINT@160, "STANDBY EVALUATING HAND!" 

52 IFM(10)=1ANDM( 11 ) =1ANDM ( 1 2) =1ANDM ( 13 ) =1ANDH ( 1 ) =1THEN910ELSEIFM ( 23 ) =1ANDM ( 24) 
=1ANDM (25) =1ANDM ( 26 ) =1ANDM (14) =1THEN910 

53 IFM(36)=1ANDM(37)=1ANDM(3 8)=1ANDM(3 9)=1ANDM(27)=1THEN910ELSEIFM(49)=1ANDM(50 
) =1ANDH(51) = 1ANL)M (52) =1ANDM ( 4 ) =1THEN91 

5 46 FORI=1TO13:IFM(I)=0THENHX=1 :NEXTELSEHX=0 : GOTO5 50 
550 FORI=14T026:IFM(I) =0THENDX=1 : NEXTELSEDX=0 : GOTO560 
560 FORI=27T039: IFM( I) =0THENCX=1 :NEXTELSECX=0 :GOTO570 
570 FORI=40TO52:IFM(I)=0THENSX»1:NEXTELSESX=0 

580 IFHX=1ANDDX=1ANDCX=1THEN6 0ELSEIFHX=1ANDDX=1ANDSX=1THEN6 0ELSEIFHX=1ANDCX=1A 

NDSX=1THEN600ELSEIFDX=1ANDCX=1ANDSX=1THEN6 

590 GOTO650 

600 CT=0: IFHX=0THENFORI=lTO9:FORJ=0TO4: IFM( I+J) =1THENCT=CT+1 : NEXTELSENEXT: CT=0 :N 

EXT: IFCT=5THEN920 

610 CT=0:IFDX=0THENFORI=14TO2 2:FORJ=0TO4:IFM(I+J) =1THENCT=CT+1 : NEXTELSENEXT : CT-0 

:NEXT: IFCT=5THEN920 

6 20 CT=0 : IFCX=0THENFORI=27TO3 5 : FORJ=0TO4 : IFM ( I+J) =1THENCT=CT+1 : NEXTELSENEXT: CT-0 
:NEXT:IFCT=5THEN920 

63 CT=0: I FSX=0THENFORI =4 0TO4 8 :FORJ=0TO4: IFM ( I+J) =1THENCT=CT+1: NEXTELSENEXT :CT=0 

:NEXT: IFCT=5THEN920 

640 GOTO950 

650 CT=0:FORI-1TO9:FORJ-0TO4:IFM(I+J)=1ORM(I+13+J) =10RM ( I+26+J) =10RM ( I+3 9+J) =1TH 

ENCT=CT+1 :NEXTELS ENEXT 

660 IFCT=5THEN960ELSECT=0:NEXT 

670 T1=0:T2=0:T3=0:T4=0:T5=0:IFM(10)=1ORM(23) =10RM ( 36) =10RM ( 49) -1THENT1-1 

6 80 IFM(11)=10RM(24) =10RM(37) =10RM ( 50) =1THENT2=1 

6 90 IFM(12)=10RM(25) -10RM (3 8) =10RM ( 51) =1THENT3=1 
700 IFM(13)=10RH(26)=10RM(3 9)=10RM(52)=1THENT4=1 
710 IFM(1)=10RM(14)=10RH(27) =10RM ( 40) =1THENT5=1 

7 20 IFT1=1ANDT2=1ANDT3=1ANDT4=1ANDT5=1THEN96 

730 F0RI=1T013:IFM(I) =1ANDM ( 1+13) =1ANDM ( 1+26) =lANDM(I+39) =1THEN930ELSENEXT 

7 40 BD=0 : FORI-1T013 : IFM ( I) =1ANDM( 1+13 )«1ANDM( 1+26) =1THENBD=1:G0T07 80 ELS ENEXT 

7 50 FORI = lT013: IFM (I) =1ANDM ( 1+13) =1ANDM ( 1+39) =1THENBD=1 :GOT07 80 ELS ENEXT 

760 FORI = 1T013: IFM (1 + 13) =lANDM(I + 26) =lANDM(I + 39) =1THENBD=1 : GOT07 80 ELS ENEXT 

7 70 FORI=lT013:IFM(I)=lANDM(I+26)=lANDM(I+3 9) =1THENBD=1 :GOTO7 80ELSENEXT 

7 80 BX=0:FORI=1TO13:IFM(I)=1ANDM(I+13)=1ANDM(I+26)=0ANDM(I+39)=0THENBX=BX+1:NEXT 

ELS ENEXT 

7 90 FORI=lT013 : IFM ( I) =1ANDM (1+26) =1ANDM ( 1+13) =0ANDM (1+3 9) =0THENBX=BX+1 : NEXTELSEN 

EXT 

800 FORI-1T013: IFM ( 1+13 )=1ANDM( 1+26) =1ANDM( I) =0ANDM( 1+39) =0THENBX=BX+1: NEXTELSEN 

EXT 

810 FORI=lT013:IFM( I) =1ANDM( 1+39) =1ANDH( 1+13) =0ANDM( 1+26) =0THENBX-BX+1 : NEXTELSEN 

EXT 

820 FORI-1T013: IFM ( 1+26 )=1ANDM( 1+3 9) =1ANDM( I) =0ANDM( 1+13 )=0THENBX=BX+1: NEXTELSEN 

EXT 

830 FORI-1T013! IFM { 1+13) -1ANDM ( 1+39) »1ANDM( I) =0ANDM( 1+26) =0THENBX=BX+1 : NEXTELSEN 

EXT 

840 IPBD=1ANDBX>0THEN9 4 0ELSEIFBD=1THEN97 

850 IFBX>1THEN980 

860 IPM(11)=1ANDM(24)=1ORM(11)»1ANDM(37)=1ORM(11)=1ANDM(50)=1THEN990ELSEIFM(24)= 

1ANDM(37)=10RM(24) =1ANDM ( 50) =10RM ( 37) =1ANDM ( 50) =1THEN990 

870 IFM(12)=1ANDM(25)=1ORM(12)=1ANDM(3 8)=1ORM(12)=1ANDM(51)=1THEN990ELSEIFM(25)= 

1ANDM(38)=10RM(25) =1ANDM ( 51 ) =10RM ( 3 8) =1ANDM ( 51) =1THEN990 

880 IFM(13)=1ANDM(26)=1ORM(13)=1ANDM(39)=1ORM(13)«1ANDM(52)=1THEN990ELSEIFM(26)= 

1ANDM(3 9)=10RM(26) =1ANDM ( 5 2) =10RM ( 3 9) =1ANDM ( 5 2) =1THEN9 90 

890 IFM(1)=1ANDM(14)=1ORM(1)=1ANDM(27)=1ORM(1)=1ANDM(40)=1THEN990ELSEIFM(14)=1AN 

DM(27)=1ORM(14)=1ANDM(40)=1ORM(27)=1ANDM(40)=1THEN990 

900 GOTO1000 

910 W$="ROYAL FLUSH" :GW=M*250 : Z=0 :GOTO1010 

920 W$="STRAIGHT FLUSH" :GW=M*50 : Z=0 :GOTO1010 

930 W$="FOUR OF A KIND" :GW=M*25: Z=0:GOTO1010 

940 W$="FULL HOUSE":GW=M*8:Z=0:GOTO1010 

950 W$="FLUSH":GW=M*5:Z=0:GOTO1010 

960 W$=" STRAIGHT" : GW=M«4 : Z=0 :GOTO1010 

970 WS="THREE OF A KIND" : GW=M*3 : Z=0 : GOTOl 010 

980 W$="TWO PAIR":GW=M*2:Z=0:GOTO1010 

990 W$="RETURN BET" :GW=0 : Z=0 : GOTO1010 

1000 WS="SORRY. . .YOU LOST":GW=0:Z=M 

1010 PRINT@1760,SPACE$(80) ; : PRINT91760 , "G A M E O V E R" ; 

1020 PRINT@1488,STRINGS(32,32) : PRINT@160 , STRINGS ( 40 ,32) :PRINTCHRS ( 1) :PRINT@160,W 

$ 

1030 TW=TW+(GW-Z)/4 

Listing 9 continues 
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BBS DAISY WHEEL 

U U^J New Smith Corona TP-1 

True letter quality printer for less than the cost of an 

office typewriter! Priced $500 less than other popular 
daisy wheel printers! 

SALE PRICE: 
$499. 

*LESS $50 REBATE* 
June.- July 19 S3 

FEATURES: 

+ Friction feed 

if 15 cps, 120 wpm 

if Changeable daisy 

if Parallel or serial 

if Compatible with R 

fig SUNLOCK SYSTEMS 
*^ 4217 Carolina Ave ^456 




Richmond. Va 23222 
AWJT10NAL PRINTER SPECIALS 



Epton 
MX 80 
EX&O 
MX 7 00 



Okldcuta 



CAtoh 



$369 

559 
649 



S?A 
S3A 
92 
93 
OJE WILL MffT OR 



$479 

639 
499 

849 
BEAT 



{pan, 
$399 

699 
1299 
7595 



8510 
7550 

no-4o 

¥10-55 
ANV AVVERTlStV PRICE 



$579 

749 

1299 

1595 



TO ORDER CALL TOLL FREE 800-368-9191 

In Virginia call 804-321-9191 

We accept MasterCard, Visa and CODs 



The Next Generation: 




ADVANCED ELECTRONIC NOTEBOOK 
BY KSoft 

Over the past two years, LOG Electronic Notebook has quietly been creating a revolution in 
personal information management Designed to emulate a familiar pencil and notebook, LOG 
Electronic Notebook can do for random information what a spreadsheet program does for 
numbers 

Now, even the best has been improved! KSoft is pleased to announce SUPERLOG, the next 
generation of the LOG family SUPERLOG is not a patch! It is a totally rewritten version of the 
original LOG concept, fully compatible with the LDOS 5.1.3 operating system currently 
endorsed by Tandy. 

SUPERLOG retains all of the versatile features of LOG while adding many new options 
requested by professional users: Floppy or Hard disk. Any number of LOG files per diskette. 
1 to 32767 pages per file. Password protection and error checking. New text editing com- 
mands include automatic text Wrap-Around, Expand and Delete for entire lines, a Page Copy 
command, and an Undo key to reverse editing changes. Cursor motion is more flexible with 
new key commands plus a Forms simulator. The SEARCH function is greatly enhanced with a 
Wild-Card character, case-independent search, and multiple word search at 1 pages/sec- 
ond 

Also Note: SUPERLOG is now fully interrupt activated: it may be accessed from practically 
any foreground task including LDOS Utilities, LBASIC, LSCRIPT, EDAS, etc. with non- 
destructive return to the foreground program. No other information management program is 
this versatile! 

Write or call Today! We'll be glad to tell you about SUPERLOG and what it can do for you! 



SUPERLOG Specify Model I or III 

LDOS 5.1 .3, 48K, and 2 Drives required 

(Model IV version to be offered soon.) 

LOG TRSDOS versions, Models I, III still available. 

KSoft (601)992-2239 

318 Lakeside Drive 
Brandon, MS 39042 



$119.95 



Mastercard and Visa accepted 

Add $5.00 for shipping and handling 



(TRSDOS is a trademark of Tandy Corporation) 
(LDOS is a trademark of Logical Systems Inc.) 




DISCOUNT 




AND UP 



OFF SUGGESTED LIST 



COMPUTERS 

ALL TRS-80 

MODELS 

CALL for 

COMPETITIVE 
PRICES 



PRINTERS 

• RADIO SHACK 

• EPSON 

• OKIDATA 

• C. ITON 

• SMITH CORONA 

CALL FOR 

COMPETITIVE 
PRICES 





ACCESSORIES 

WE CARRY A FULL LINE OF: 

• SOFTWARE 

• HARD DRIVES 

• MODEMS 

• PRINTER ACCESSORIES 

• TELEPHONES AND 
ANSWERING MACHINES 



GAMES 

• BIG FIVE. 

• ADVENTURE 

• SPECTRAL 
INSTANT SOFTWARE 

TOM MIX SOFTWARE 



FREE 



PLEASE WRITE AND REQUEST . . . 

• CUSTOMER DISCOUNT PRICE LIST 

• MANUFACTURE WARRANTIES 

<- TRS-80 TANDY CORPORATION 



PERRY COMPUTERS 

Dept. No. A-1 137 NORTH MAIN ST PERRY. Ml 48872 

FOR ORDERS CALL 1 -800-248-3823 

FOR INFORMATION CALL (517) 625-4161 *- 124 



wSee List of Advertisers on Page 323 
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ANNOUNCING: CLEANER 80 

The System That Makes 

Your Cleaning Kit Worth 

15 Times The Price 

You Paid For It. 

Cleaner 80 is a software program 
designed to give you your money's 
worth — and more — when it comes 
to cleaning the disk drive head of 
your TRS-80 computer. 

this system, you can get up to 
leanings out of each disk drive 
cleaning kit — instead of the 26 
.ings specified by the manufac- 
turer. That's 15 times the number of 
cleanings you would normally be 
able to achieve. 

Order yours today, piease 

specify whether you need the TRS- 
„„ ....... —.so Model HI 

erao 

eaning 

To order write: 

Cleaner 80, 

d Cleaning System 
stems Software 
P.O. Box 1734 
Wichita, Kansas 67201-1734 
opyright 1983, by J. Russell Jones. 



E Software d\ 



PABSoft 



Excellence in Technical Softv 



LINEAR'CIRCUIT ANALYSIS 

DC Analysis $17 

AC Analysis $17 

S.tate Variable Analysis $17 

All Three $ 40 

LINEAR CONTROL SYSTEMS 

State Variable Analysis $40 

Advanced S. V. Analysis $40 

Transfer Function Analysis .... $40 

All Three $ 1 00 



•Tape or Disk (Specify) 
Tape Assumes Non-Dos Systems 

•For Disk Specify Dos 

•IBM PC, RS Model I or III (Specify) 
Minimum 48K RAM 
Write for Catalog 



MATRIX SUBROUTINES 
These 'callable from BASIC subroutines 
provide an extension to the BASIC ROM. 
Included are MAT *,-,',/, transpose 
inverse and disk S. tape I/O. Min. 16K 
RAM. Available on disk or tape. Specify 
DOS for disk version. 

$24.95 

•Model I or III - On all orders describe 
your system* Model, Dos, RAM, etc. 

I BM PC ( Dos 1.1) 



PAB Software, Inc. 

P.O. Box 15397 

Fort Wayne, Indiana 46885 



PABSoft is 
any of the 



■iy 



'■y 



^321 
connected with 



computer manufacturers. 



Listing 9 continued 

1040 PRINT@320,SPACE$(80) : PRINT@320 ,"G AME WINNING : "USING" §#*#. #*" JGW 

/4:PRINT@362,"T OTAL WINNINGS : "USING"####. »#" ;TW 

1050 PRINT@480,"TO PLAY AGAIN DEPRESS <ENTER>, TO END GAME DEPRESS <E>"; 

106 I$=INKKY$:IFI$=""THEN1060ELSEIFI$=CHR$(13)THENERASEM:DIMM(52) :GOTO110ELSEIF 

I$«"E"THENCLS:PRINT@975,"T HANK YOU- COME AGAIN! I 1":PRIN 

T: PRINT: PRINT: ENDELSE1 060 

1070 GA=640:GB=651:GC»1280:GD=1291:GOSUB1120:RETURN 

1080 GA=6 57:GB=66 8:GC=1297:GD=1308:GOSUB1120:RETURN 

1090 GA=674:GB»»685:GC=1314:GD»1325:GOSUB1120: RETURN 

1100 GA=691:GB=702:GC=1331:GD=1342:GOSUB1120:RETURN 

1110 GA-708:GB=719:GC=1348:GD=1359:GOSUB1120: RETURN 

1120 PRINT@GA,GA$:FORI=lTO8:PRINT@GA+I*8 0,GE$:NEXT:PRINTeGC,GD$ 

1130 PRINT#GB,GB$:FORI=lTO8:PRINT@GB+I*80,GE$:NEXT:PRINTgGD,GC$ 

114 FORI=1TO10:PRINT8GA+1*I,GF$:NEXT 

1150 FORI=1TO10:PRINT8GC+1*I,GF$:NEXT:RETURN 

1160 PRINT0722,"* * * *"; :PRINT8803,"* * * *" ; : PRINT8882, "* * * *" ; : PRINT8963 ,"* 

* * *";:PRINT81042,"* * * *" ; :PRINTS1123 ,"* * * *" ; : PRINT81202, "* * * *":RETURN 
1170 PRINT8739,"* * * *"; :PRINT@820,"* * * *" ; : PRINT8899,"* * * *" ; : PRINT8980 , "* 

* * *";:PKINT@1059,"* * * *" ; : PRINT81140 , "* * * *" ; : PRINT§1219 , "* * * *":RETURN 
1180 PRINT8756,"* * * *";:PRINT8837,"* * * *" ; : PRINT8916, "* * * *" ; : PRINT8997 , "* 

* * *"j!PRINT@1076,"* * * *";:PRINT81157,"* * * *" ; : PRINT81236 ,"* * * *":RETURN 
1190 PRINT8773,"* * * *";:PRINT@854,"* * * *" ; : PRINT8933 ,"* * * *" ; : PRINT81014 ," 

* * * *";:PRINT81093,"* * * *" ; : PRINT81174 , "* * * *" ; : PRINT81253 , "* * * *":RETUR 
N 

1200 PRINT8790,"* * * *";:PRINT8871,"* * * *"; :PRINT@950,"* * * *" ; :PRINT81031," 

* * * *";:PRINT81110,"* * * *"; :PRINT81191 ,"* * * *"; : PRINT81270 , "* * * *":RETUR 
N 

1210 PRINT8L,T$:PRINT@L+160,B$: RETURN 

1220 IFkx>0ANDRX<14THENBS="HEARTS":RETURNELSEIFRX>13ANDRX<27THENB$="DIAMONDS":RE 

turnelse i frx> 26 andrx< 4 0thenb$=*clubs":returnelsebs=" spades": return 

1230 CLS:PRINT@24, "RULES FOR DRAW POKER" : PRINT: PRINT 

1240 PRINT" 1. THIS MACHINE ACCEPTS ONLY QUARTERS. DEPOSIT FROM 1 TO 5.":PRINT 
1250 PRINT"2. THE HOUSE WILL DEAL YOU 5 CARDS, FACE UP. IF YOU WISH TO KEEP AN 
D": PRINT" PLAY ANY OF THE 5 CARDS, 'HOLD' EACH BY DEPRESSING THE NUMBER KEYS 
1 TO 5.": PRINT" ANY CARD NOT SO PROTECTED WILL BE REPLACED AS YOU -DRAW-." 



1260 PRINT" 

INT 

1270 PRINT"3 

LES:":PRINT 

1280 PRINT" 

1290 PRINT" 

;TAB(50)"1250 

13 PRINT" 

";TAB(51)"250 

1310 PRINT" 

(51)"125" 

1320 PRINT" 

)"40" 

1330 PRINT" 

1340 PRINT" 



1350 
"15" 

1360 

137a 

1380 

1390 

1400 
AY ED, 
1410 
1420 
1430 
1440 



PRINT" 



TO RESELECT THE 'HOLD' CARDS YOU MAY -CANCEL- AND START OVER.":PR 

THE PROGRAM WILL EVALUATE THE FINAL HAND ACCORDING TO STANDARD RU 

COINS-";TAB(30)"1";TAB(35)"2";TAB(40)"3";TAB{45)"4";TAB(51)"5" 

ROYAL FLUSH";TAB(29)"250";TAB(34)"500";TAB(39)"750";TAB(44) n 1000" 

STRAIGHT FLUSH" STAB (30) "50";TAB(34) "100" ;TAB( 39) "150" ;TAB( 45) "200 

4 OF A KIND"fTAB(30)"25";TAB(35)"50"jTAB(40)"75";TAB(45)"100"?TAB 

FULL HOUSE" ;TAB(31) "8" jTAB(35) "16";TAB(40) "24";TAB(46) "32";TAB(52 

FLUSH"; TAB (31) "5";TA3(35) "lo" ?T.",B(40) "i5= ;TAB( 46) "20" ;TAB( 52) "25" 
STRAIGHT" ;TAB<31) "4" ;TAB(36) "8»;TAB(40) "12"jTAB(46) "16" ;TAB( 52) "2 

3 OF A KIND"jTAB(31)"3";TAB(36) "6" ;TAB(41) "9" ;TAB(46) "12" ;TAB(52) 



PRINT" 2 PAIR";TAB(31) "2";TAB(36) "4";TAB(41) "6";TAB(47) "8"}TAB(52) "10" 

PRINT: INPUT"WHEN READY TO CONTINUE, DEPRESS <ENTBR>";Q$ 

CLS:F0RI = .1.T07 : PRIST: NEXT 

PRINT: PRINT"4. A PAIR OF JACKS OR HIGHER RETURNS THE BET.": PRINT 

PRINT"5. FOR A HAND WITH NO POINT VALUE, ' SORRY .... YOU LOST' WILL BE DISPL 

" : PRINT 

PRINT"6. THE DECK CONSISTS OF 52 CARDS (NO JOKER) ." :PRINT 

PRINT"7. CHOOSE YOUR CARDS CAREFULLY, AND ENJOY THE GAME!":PRINT 

F0RI=1T06 : PRINT: NEXT 

PRINT: INPUT"HHEN READY TO PLAY, DEPRESS <ENTER>" ;Q$:GOTO110 



Program Listing 10. Four-Card Monte 



10 REM 01-MAR-83 *BDL MODEL II* 

20 REM PROGRAM MONTE/BAS 

30 CLS:PRINT@1 8, "FOUR-CARD-MONTE SIMULATION PROGRAM" : PRINT: PRINT 

40 CLEAR200:V$=CHR$(148) :D$=CHR$ ( 124) :CAS=CHR$(128) :CB$=CHR$ ( 129) : CCS=CHR$ ( 130) : 

CD$=CHR$(131) :CV$="CHIP VALUES: (W)HITE=$1, (0)RANGE=$2, (R)ED=$5, (G)REEN=$25, 

(B)LACK=$100" 

50 DIMM$(52) ,M(52) :P$»"###":UU$«"#####.##":A$="***" 

60 M$(1)="A":M$(14)«="A":M$(27)-"A":M$(40)="A":M$(11)="J":M$(24)="J":M$(37)-"J":M 

S(50)="J":M$(12)=*Q":M$(25)«"Q":M$(38)-"Q":M$(51)="Q":MS(13)-"K":M$(26)="K":M$(3 

9)="K":M$(52)="K" 

70 FORI=2TO10:M$(I)=STR$(I) : NEXT: FORI=15T023 :MS ( I) =STRS ( 1-13) :NEXT: FORI=28T036 :M 

$(I)=STR$(I-26) :NEXT:FORI=41T049:M$(I)=STR$(I-39) :NEXT:M( 8) =1 :M( 21) =1 :M (34) =1 :M( 

47)=1:M(9)=1:M(22)=1:M(35)=1:M(48)=1:M(10)=1:M(23)=1:M(36)=1:M(49)=1 

80 PRINT'THIS GAME IS ONE OF THE MORE FAMOUS OF THE MANY VARIATIONS PLAYED IN TH 

E":PRINT"GAMBLING HALLS AND SALOONS IN THE OLD WEST." 

90 PRINT:PRINT"IN THIS SIMULATION, A SINGLE PERSON PLAYS AGAINST THE HOUSE, USIN 

G THE":PRINT"RULES FROM YEARS GONE BY " 

100 PRINT: PRINT" INSTRUCTIONS REQUIRED (Y/N)"j 

110 I$=INKEY$:IFI$=""THEN110ELSEIFI$="Y"THEN120ELSEIFI$="N"THEN26 0ELSE110 

120 CLS:PRINT814,"R ULES FOR FOUR-CARD MONT E" : PRINT: PRINT 

130 PRINT'THE DECK OF CARDS USED FOR 'FOUR-CARD MONTE', ALSO CALLED THE 'PACK', 

CONSISTS* :PRINT"OF A STANDARD DECK OF 52 WITH THE 8S, 9S, AND 10S REMOVED FOR A 

TOTAL OF 40.": PRINT 

140 PRINT'AFTER SHUFFLING AND CUTTING THE DECK HAVE BEEN COMPLETED, THE DEALER D 

RAWS TWO":PRINT"CARDS FROM THE BOTTOM OF THE PACK AND PLACES THEM FACE-UP ON THE 

TABLE. THESE' 
150 PRINT'TWO ARE CALLED THE 'BOTTOM LAYOUT'. STILL HOLDING THE PACK FACE-DOWN, 

THE":PRINT"DEALER DRAWS TWO CARDS FROM THE TOP OF THE PACK AND PLACES THESE FAC 
E-UP ON THE":PRINT"TABLE FOR THE 'TOP LAYOUT' . ": PRINT 

16 PRINT'THE PLAYER (S) BET ON EITHER LAYOUT BY PLACING CHIPS NEXT TO THE CARD P 
AIRS. THE":PRINT"REMAINDER OF THE PACK IS THEN TURNED FACE-UP AND THE CARD VISIB 
LE IS" 

170 PRINT"CALLED THE 'GATE'. IF THE GATE IS THE SAME SUITE AS EITHER OF THE CARD 
S IN THE":PRINT"BOTTOM LAYOUT, THE DEALER PAYS THE BET. IF THE GATE IS THE SAME 
SUITE AS EITHER" 

180 PRINT"OF THE CARDS IN THE TOP LAYOUT, THE DEALER ALSO PAYS THE BET. THE HOUS 
E WINS":PRINT"ALL BETS ON A LAYOUT WHICH HAS NO CARD OF THE SAME SUITE AS THE GA 
TE.": PRINT 

Listing 10 continues 
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Listing 10 continued 

190 INPUT'WHEN READY TO CONTINUE, DEPRESS <EHTER>">Q$ 

200 CLS:F0RI=1T06: PRINT: NEXT 

210 PRINT'AFTER THE BETS ARE SETTLED, THE FOUR CARDS FROM THE LAYOUTS ARE COLLEC 

TED AND": PRINT-SET ASIDE, THE PACK IS TURNED FACE-DOWN, THE OLD GATE CARD SET AS 

IDE, AND FOUR" 

220 PRINT'CARDS FOR TWO NEW LAYOUTS ARE DRAWN AND DISPLAYED. THE PACK IS THEN TU 

RNED FACE*: PRINT-UP TO SHOW THE NEW GATE, AND NEW BETS ARE MADE. THIS SEQUENCE I 

S CONTINUED" 

230 PRINT'UNTIL ALL CARDS REMAINING IN THE PACK ARE USED.": PRINT 

240 PRINT"ENJOY THE GAME AND GOOD-LUCK ! I i* :PRINT 

250 INPUT'WHBN READY TO PLAY, DEPRESS <ENTER>"?Q$ 

260 H»1:B=0:T»0:CLS: RANDOM :PRINT"C ASINO FOUR-CARD MONTE:": 

PRINT@65,"G A M E : " :K=K+1:PRINT§75,K 

270 PRINTCHR$(2) ; :GOSUB750:L-565:GOSUB760 :L=646 :GOSUB800 : PRINT8327 , "P A C K":PRI 

NT@343,"B OTTOM-LAYOU T" :PRINT8374,"T OP-LAYOUT" 

280 RG=RND(52) : IFM (RG) =1THEN280ELSEM (RG) =1 : E=RG:GOSUB7 90 : TS=M.$ (RG) : B$=E$ : S1S=E$: 

L=583:GOSUB760:L-665:GOSUB770 

290 RH-RND(52) : IFM(RH) -1THEN290ELSEM ( RH) -1 : E=RH : GOSUB7 90 : TS=K$ (RH) : B$=E$:S2$=E$: 

L=5 97:GOSUB7 60:L=67 9:GOSUB7 70 

30 RT=RND(52) : IFM(RT) =1THEN30 0ELSEM (RT) =1 : E=RT:GOSUB7 90 : T$=MS (RT) :B$=E$ :S3$=E$: 

I,=612:GOSUB760:L=694:GOSUB770 

310 RU=RND(52) : IFM (RU) =1THEN310ELSEM (RU) =1 : E=RU : GOSUB790 :T$=M $ (RU) : B$=E$: S4$=E$: 

L»626:GOSUB760:L=708:GOSUB770 

320 GOSUB810:PRINT@1760,CV$:PRINTCHR$(1) ;: PRINT@160 , SPACES ( 80 ) ;: PRINT@160 , "PLACE 
BET ON BOTTOM-LAYOUT OR TOP-LAYOUT (B/T) , <ENTER> TO PLAY"; 

33 I$=INKEYS:IFI$=""THEN330ELSEIFI$="B"THENS$=I$:GOTO340ELSEIFI$="T"THENS$=I$:G 

OTO350ELSEIFI$-CHR$(13)THEN630ELSE330 

340 PRINT@1312,"<":PRINT@1314,AS:PRINT@1318,">":GOTO360 

350 PRINT§1341 , " <" : PRINT@1343 ,A$ : PRINT@1347 , " >" : GOTO410 

360 PRINT§160, SPACES (80) ; :PRINT§160 , "ENTER NUMBER OF CHIPS (1-9)"; 

370 I$=INKEYS:IFI$-""THEN370ELSEIFI$>"0"ANDI$<='9"THENBN«VAL(IS):GOTO380ELSE370 

380 PRINT@160, SPACES (80) ;:PRINTgl60, "ENTER VALUE (COLOR) OF CHIPS (W, 0, R, G, 

R B)"; 

390 IS=INKEY5:IPI$=""THEN3 90ELSEIFI$="W"THENB=1:GOTO4 0ELSEIFI$="O"THENB=2:GOTO4 

00ELSEIFIS="R"THENB=5:GOTO400ELSEIFI$="G"THENB=25:GOTO400ELSEIFIS="B"THENB=100:G 

OTO400ELSEPRINTP208,"USE VALID CHIPS ONLY PLEASE 1 ": G0T03 90 

400 B=B*BN:PRINT81314,USINGPS;B:GOTO460 

410 PRINT@160,SPACE$(80) ;:PRINT@160, "PLACE YOOR BET...ENTER NUMBER OF CHIPS (1-9 

) "f 

420 I$-INKEYS:IFI$=""THEN420ELSEIFI$>"0"ANDI$<="9"THENTN=VAL(I$) :GOTO430ELSE420 

430 PRINT@160,SPACE$(80) ; :PRINTgl60, "ENTER VALUE (COLOR) OF CHIPS (W, 0, R, G, 

R B) "; 

440 I$=INKEY$:IFI$«""THEN440ELSEIFI$="W"THENT=1:GOTO4 50ELSEIFI$-"O"THENT=2:GOTO4 

50ELSEIFI$="R"THENT»5:GOTO450ELSEIFI$-"G"THENT=25:GOTO450ELSEIFI$-"B"THENT»100:G 

OTO450ELSEPRINT§208,"USE VALID CHIPS ONLY. .. .PLEASE! ": GOTO440 

450 T=T*TN:PRINTgl343,USINGPS;T 

460 IFS$="T"THEN470ELSE550 

470 PRINTei60,SPACE$(80) ;:PRINT§160, "PLACE BET ON BOTTOM-LAYOUT <B> OR <ENTER> T 
O PLAY"; 

480 I$=INKEY$:IFI$=""THEN480ELSEIFI$="B"THEN490ELSEIFIS=CHR$(13)THEN630ELSE480 

4 90 PRINT@1312,"<":PRINT@1314,A$:PRINT§1318,">" 

500 PRINTei60,SPACE$(80) ;:PRINT@160, "ENTER NUMBER OF CHIPS (1-9)"; 

510 IS = INKEYS:IFI$=""THEN510ELSEIFI$>"0"ANDI$<="9"THENBN=VAL(IS) .-GOTO520ELSE510 

520 PRINT@160, SPACES (80) ; : PRINT@160 , "ENTER VALUE (COLOR) OF CHIPS (W, 0, R, G, 

R B)"; 

530 I$=INKEY$:IFI$=""THEN530ELSEIFI$-"W"THENB=1:GOTO540ELSEIFI$="O"THENB=2:GOTO5 

40ELSEIFI$="R"THENB=b:GOTO5 40ELSEIFI$="G"THENB=25:GOTO5 40ELSEIFI$="B"THENB=100:G 

OTO540ELSEPRINTe208,"USE VALID CHIPS ONLY. .. .PLEASE! " :GOTO530 

540 B=B*BN:PRINT§1314,USINGP$;B:GOTO630 

550 PRINTei60,SPACES(80);:PRINT@160, "PLACE BET ON TOP-LAYOUT <T> OR <ENTER> TO P 

LAY " ; 

560 IS=INKEYS:IFI$=""THEN560ELSEIFI$=CHR$(13)THEN630ELSEIFIS="T"THEN570ELSE560 

570 PRINT§1341 , " <" : PRINT@1343 , A$: PRINTS1347 , " >" 

580 PRINT§160,SPACE$(80) ;:PRINT9160, "ENTER NUMBER OF CHIPS (1-9)"; 

590 IS=INKEY$:IFI$-""THEN590ELSEIFI$>"0"ANDI$<="9"THENTN=VAL(IS) :GOTO600ELSE590 

600 PRINT@160,SPACE$(80) ;:PRINT@160, "ENTER VALUE (COLOR) OF CHIPS (W, 0, R, G, 

R B ) " ; 

610 IS=INKEY$:IFI$=""THEN610ELSEIFI$="W"THENT=1:GOTO6 2 0ELSEIFIS="O"THENT=2:GOTO6 

20ELSEIFI$-"R"THENT=5:GOTO620ELSEIFI$="G"THENT=25:GOTO620ELSEIFI$="B"THENT=100:G 

OTO620ELSEPRINT@208,"USE VALID CHIPS ONLY. .. .PLEASE!" :GOTO610 

6 20 T=T*TN:PRINT@1343,USINGP$;T 

630 RP»RND(52) : IFM(RP) =1THEN630ELSEM(RP) »1 :L=646:GOSUB780 : E=RP:GOSUB7 90 :T$=M$ (RP 

) :B$=ES:L=647:GOSUB770:PRINT§327,"G ATE" 

640 PRINT@160,SPACE$(80) ; : IFB=0THEN660 

650 IFB$=S1SORB$=S2STHENGW=GW+B:PRINT@160,"(B/L) YOU HAVE WON":PRINTgl80 ,BELSEGW 

=GW-B:PRINTei60,"(B/L) YOU HAVE LOST" : PRINT@180 , B 

660 IFT-0THEN680 

670 IFB$-S3$ORBS=S4$THENGW=GW+T:PRINTg210,"(T/L) YOU HAVE WON " : PRINT@230 , TELSEGW 

=GW-T:PRINT§210,"(T/L) YOU HAVE LOST" : PRINT@230 ,T 

680 IFH=9THEN710 

690 PRINT@1760, SPACES ( 80) ;:PRINT81760, "WHEN READY TO CONTINUE, DEPRESS <ENTER>"; 

:INPUTQ$:PRINTCHRS(2) ; : L=646 : PRINT?327 , "P A C K" : GOSUB780 :GOSUB800 
700 L=664:GOSUB780sL«678sGOSUB780:L=693:GOSUB780:L=7 07:GOSUB780:PRINT@1312,STRIN 
G$(36,32) :B=0:T=0:GOTO280 

710 TW=TW+GW:HH = 80 0-TW:PRINT@160 0, SPACE SI 
PRINT81620 ,USINGUUS; HH : PRINT81760 , SPACES ( { 
G S :":PRINT81788,USINGUU$;GW:PRINT81800,"T OTAL WINNINGS :":PRINT@1 
832,USINGUUS;T 
W; 

720 PRINT81640,"PLAY AGAIN (Y/N)"; 

730 I$=INKEY$:IFI$=""THEN730ELSEIFI$="Y'THENERASEM:DIMM(52) :GW=0 :GOTO260ELSEIFIS 
="N"THEN740ELSE730 
740 CLS:PRINT8640,"G OODBYE.. .THANKS FOR PLAYING MO 

N T E !":PRINT8900,"C OME AGAIN.. ." : PRINT: PRINT: PRINT: END 
750 FORI-1TO12:PRINT8400+I*80,V$:NEXT:PRINT8401, STRINGS (78, 150) :F0RI«1T012: PRINT 
847 9+I*80,VS:NEXT:PRINT814 41,STRINGS(7 8,150) : PRINT84 ,CA$ : PRINT8479,CBS: PRINT81 
519,CC$:PRINT81440,CD$:RETURN 

760 FORI=1TO6:PRINT8L+I*80,V$: NEXT: PRINT8L+1, STRINGS (9, 150) : PRINT8L+561 , STRINGS ( 
9,150) :FORI=lTO6:PRINT8L+10+I*80,V$:NEXT:PRINTeL,CA$:PRINT8L+a0 f CB$:PRINT6L+560 f 
CDS :PRINT8L+570, CCS: RETURN 
770 PRINT8L,T$:PRINT8L+80,B$:RETURN 

780 PRINTgL, STRINGS (9, 32) ;.- PRINT8L+80 , STRINGS ( 9 , 32) ;: PRINT@L+16 , STRINGS ( 9 , 32) ;: 
PRINT8L+240,STRINGS(9,32) ; : PRINT8L+320 , STRINGS ( 9 , 32) ; : PRINT8L+400 .STRINGS ( 9 ,32) ; 
: RETURN 

7 90 IFE>0ANDE<14THENE$="HEARTS":RETURNELSEIFE>13ANDE<27THENE$="DIAMONDS":RETURNE 
LSEIFE>26ANDE<40THENES="CLUBS" : RETURNELSEE$="SPADES" : RETURN 

8H0 PRINT8L,"* * * * *":PRINT@L+80," * * * * " : PRINT@I.+ 160 , " * * * * *":PRINT@L+2 
40," * * * * ":PRINT8L+320,"* * * * *" :PRINT8L+400, " * * * * ":RETURN 
810 PRINT81600, SPACES (80) ; : IFH»1THENHS="INITIAL" :PRINT81600 , "P LAY :":PRINT816 
10,HS:H=H+1:RETURNELSEH$=STRS(H) :PRINT81600,"P LAY : " : PRINT@1610 ,H$ : H=H+1 :RETU 
RN 



;:PRINT81600,"H O U S E 
:PRINT81760,"G A M E W 



HAS:": 

I N N I N 



TRS-80 MODEL III 
ASSEMBLY LANGUAGE 

A complete course in assembly language, 
written for the beginner. Basic concepts, the 
Z-80 instruction set, complete Model III 
ROM and RAM information, programming 
examples, the disk controller, the TRSDOS 
1.3 operating system, RS-232-C interface. 

With the book you can also purchase 
Monitor #5, a comprehensive machine lan- 
guage monitor (specify Model 1 or 3). 

Book only $16.95 

Book and Monitor #5 on disk $29.95 

HOME BUDGET 

Analyzes your income and expenses, 
computes monthly and year-to-date sum- 
maries showing income tax deductions. 

Model 1/3/4 disk version $49.95 

Model 1/3/4 cassette version $29.95 

Model 2/12 or IBM/PC version $59.95 

SMALL BUSINESS 
ACCOUNTING 

Based on Dome Bookkeeping Record 
#612, this program keeps track of income, 
expenses, and payroll (not included in cas- 
sette version) for a small business. 

Model 1/3/4 disk version $59.95 

Model 1/3/4 cassette version $29.95 

Model 2/12 or IBM/PC version $69.95 

FREE Software Catalogue 

Add $3.00 postage & handling. 
New York Residents add'sales tax. 

Howe Software 

14 Lexington Road .,, 

New City, New York 10956 "" 

(914) 634-1821 

Visa and MasterCard accepted. 

'TRS-80 is a trademark of Tandy Corp. 



TRS-80 MODEL II 
DISPLAY MANAGEMENT SYSTEM 




Do you intend to use first generation 

CRT management techniques forever ? 

When for $89.00 you can haves 

• An interactive screen generator 

that requires no progr arming . 

• A runtime screen manager that 
you don't need assembly language 

knowledge to use. 

• A Control panel that lets you run 
the show from your program, in 
'/our language (Cobol/Basic/Assem. ) 

fiHCR8WA¥ES 

Computer Products 

Bridle Road, Antrim N.H. 03440 

Tel. 603-588-6746 



548 



.'See List of Advertisers on Pago 3?3 
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STRIKE 
FORCE 

From Melbourne House 

You are the warrior-savior of cities under relentless alien 
attack. You're armed with rapid-tire missiles, radar and 
incendiary star-shells, but you'll need your fastest thinking 
and instantaneous response to protect yourself and your 
people. Great real-time graphics! 
38809 1 6K Tape $1*95 $1 2.76 
3861 8 32K Disk $+9*5 $1 5.96 



lENTINEL 




From Cornsoft 

A new feature allows two people to play at one time! 

Sentinels on guard for barbarians must repair the brick 

walls and defend the castles. Capture the enemy for extra 

points! 

10012 Tape 
$1*95 $12.76 
14072 Disk 
$1*95 $15.96 

STRATOS 

From Adventure International 

This may be the battle to destroy the universe. Your 
enemies have perfected the dreaded Matte Ravager. 
Wave after wave of the deadly craft attack your planet and 
puncture the energy envelope surrounding it. You are in 
control of the Armageddon Wave, the only weapon capa- 
ble of destroying the alien ships. Exciting challenging 
non-stop action. "Out of this world" sounds and graphics. 1 
or 2 players, requires joystick. 
42635 1 6K Tape $34*5 $1 9.96 
42679 32K Disk $24*5$19.96 





DEFENSE 
COMMAND 

By Hogue & Konyu from Big Five 
You are the lone defender of 10 Krotnium fuel cells essen- 
tial for the survival of the planet. Aliens swoop down from 
above to steal the fuel, it's your job to destroy them. You 
can still save the cells after a raid, but you must shoot the 
alien and simultaneously move under the cell to catch it. If 
things look bad you can set off one of your 4 antimatter 
bombs and destroy all enemies on the screen' Arcade fun 
with action and sound. Joystick compatible. 

1 81 00 1 6K Tape $1*95 $1 2.76 
18177 32K Disk $1*95 $15.96 



THE WILD 
WEST 

By Clifford Abrahams 

from Melbourne House Software Inc. 

Relive the exploits of the notorious outlaw Jesse James as 

lawmen, bounty hunters and renegades gun for you 

through an Indian camp, train hijacking and bank heist. 

Keep your finger on the trigger. 

34771 1 6K Tape $1*95 $1 2.76 

34669 32K Disk $1*95$1 5.96 




From Cornsoft 

One of the most popular arcade games ever made now 
available for your home computer! Just as in the arcade 
game, you must dodge heavy traffic and jump the moving 
logs in the stream to get home. Fantastic graphics! Re- 
quires joystick. 

38247 1 6K Tape $1*95$1 5.96 
38258 32K Disk $22*5$18.36 



■■■■■■■■■■■■■■■■■■■■■■■ 



SEA 
DRAGON 



By Westmoreland & Gilman 

from Adventure International 

Underwater adventure is yours as you command a nuclear 

sub armed with deadly missiles and torpedoes. Guide it 

carefully through sea mines and underwater mountains, 

watch out for depth charges being fired by overhead ships 

. . . and don't run out of air! Scrolling sea bottom for added 

excitement. 

35705 1 6K Tape $1*95$1 5.96 

3571 6 32K Disk $24*5 $1 9.96 




By Westmoreland & Gilman 
from Adventure International 
You'll need all your keyboard manipulative skills to keep up 
with the action in this arcade game. You travel across the 
planet's low-altitude airspace in an effort to prevent the 
marauding enemy from capturing your energizer cells. All 
manner of alien craft await your arrival with destructive 
forces. For 1 or 2 players, with sound. 

16816 16K Tape or $24*5$19.96 
1 7244 32K Disk $24*5 $19.96 



ROBOT 
ATTACK 

By Hogue & Konuy from Big Five 

One of the top names in TRS-80 arcade games adds a 

new dimension, voice sound effects! It's you against the 

robots in this fast-moving shoot-em-up. Electrified Mazes 

and the "Flagship" complicate things as you stalk the evil 

androids. 

The innovations built into ROBOT ATTACK take your 

TRS-80 near the limits of its capabilities. You MUST see 

and hear it! Joystick compatible. 

1 8098 1 6K Tape $1*95$1 2.76 
1 81 66 32K Disk $1*95$1 5.96 



WEERD 




By Arthur Gleckler from Big Five 

Maybe you think you've seen some pretty strange things 
on your computer screen already, but you haven't seen 
ANYTHING until you've tried WEERD. It's you against the 
WEERDEST set of space craft ever. But don't just stare at 
them, get your shields up before they wipe out your planet. 
Desk version has voice sound effects and permanent high 
scores. Both are trisstick compatible. 

43388 16K Tape or $1*95"$15.96 
43399 32K Disk $1*95 $1 5.96 



CRAZY 
PAINTER 

from Cornsoft 

Your assignment is to paint the maze, avoiding everything 

that tries to stop you. If anything walks in the paint, it's 

ruined, and you must go back and repaint it. With sound, 

great graphics. . truly "a-maze-ing." 

37808 1 6K Tape $1*95 $1 2.76 

37819 16K Disk $1*95$15.96 






PENETRATOR 

From Melbourne House 

Armed with missiles and bombs, you must fly your fighter 

to the enemy's cache of neutron bombs and destroy them. 

Your mission is in four stages, involving rugged terrain, 

caverns and manmade obstacles — not to mention enemy 

radar missiles and paratroopers. This new departure in 

arcade gaming allows you to set up your own terrain and 

enemy emplacements then save them for future use. 

Make your mission as hard or easy as you like. Joystick 

compatible. 

21 1 60 1 6K Tape $24*5 $1 9.96 

21 1 82 32K Disk $24*5 $1 9.96 






CATERPILLAR 

From Soft Sector Marketing 

This is the fast-action arcade game you've been waiting to 
play at home! You must hit mushrooms and caterpillars- 
segment by segment — moths and tumble bugs. The chal- 
lenges they are all moving when hit they split into addi- 
tional segments or metamorphose into different shapes, 
when you destroy a caterpillar the new one that replaces it 
is a segment longer than the original. 

21306 16K Tape $1*95 $12.76 
21 373 32K Disk $1*95$1 5.96 



DEVIL'S 
TOWER 

By John Olsen. Jr. from Fantastic Software 
It's up to you to save your planet from the aliens. They've 
reached the other side of DEVIL'S TOWER. Robot Scouts 
come at you from the mountain, their war machines fire 
from the valley and their protector ships put up force fields 
to protect them. Your skill and reflexes may protect you. 
Machine language, good graphics and sound effects. For 
1 or 2 players. 

43366 1 6K Tape $1*95 $1 2.76 
43377 32K Disk $1*95$1 5.96 



DEMON 
SEED 

By Sorensen & MacKensie from Trend 
This arcade style game is only for the strong at heart who 
are persistent enough to try and try again until the De- 
monic Forces have been destroyed Your powerful star 
cruiser has high energy missiles and defensive shields. 
Can you develop the skill to defeat the Demons, and con- 
quer the 3 special challenge levels? 

40183 16K Tape $1*95 $15.96 
37774 32K Disk $24*5 $1 9.96 




Madness Sale <^ c v& ^ 



THe//^Y. 

PROGRflm/nxK 



Don't Miss Out 



APPLE 
PANIC 

by Y. Lempereur from Funsoft 
Trap crazed apples by digging holes in brick floors, beat 
them thru the hole to squash on the floor below, 3 lives are 
extended by points. Has voice and music, freeze action 
saves high score on disk, joystick compatible. Don't let an 
apple get you, 

33433 1 6K Tape 51045 $1 5.96 

37246 32K Disk $3445 $1 9.96 





SNEAK 
THIEF 

By Larry Ashman 

From Soft Sector 

Protect the treasure chest of gold from lurking thieves. 

Capture them, attack them, or put them in jail but beware of 

the protectors who use trickery. Guard the intricate maze 

and keep your eye on the pile of gold— don't blink or the 

treasue may vanish. 

36290 1 6K Tape $4945 $1 5.96 
36379 32K Disk $2445 $1 7.56 



RALLY 




By J. Weaver 
From Soft Sector 
Courage skill and daring are needed to speed through a 
treacherous maze course while pursued by hostile cars. 
Maneuver the wheel away from obstacles and enemies as 
you respond to the ultra modern tracking equiment Joy- 
stick compatible outstanding sound effects and the diver- 
sion talks and saves high scores. All this makes a racing 
Simulation certain to add adventure to your arcade game 
experience. 

42961 1 6K Tape $+945 $1 5.96 
43445 32K Disk $2445 $1 7.56 



T.M. 



TH€ 
PH0GRRm/TQR€ 

Franchise openings available in selected cities 



For Information Call: 
1(202) 363-9797 




SKYSCiM 




JUNGLE 



By Fine from Superior 
3-part maze game for the nimble-fingered. First, you must 
move through maze while avoiding barrels coming at you. 
second, you must look out for fires that break out randomly 
on screen, third, you ride elevators up and down from plat- 
form to platform. The sky's the limit. . how far can you go? 
1 or 2 player game with sound, joystick compatible. 

36098 32K Tape $4045$1 5.96 
36087 32K Disk $2445 $17.56 



THE 
HOLE 

by Y. Lempereur from Funsoft 
Seek out and destroy the Gorfian leader taking refuge in 
the black hole. You have only one ship to reach and elimi- 
nate him— so make it count. Great sound, three phases of 
action, joystick compatible. Survive the perils of the black 
hole. 

37291 16K Tape $4«45"$1 5.96 
37202 32K Disk $2445$19.96 



By Vandewolle from Acorn 

An unusual combination of fast pinball action plus the chal- 
lenges and dangers of an arcade game. Keep the ball in 
play, scoring points as it caroms from obstacle to obstacle, 
while wandering through the jungle searching for the hid- 
den crown. And try to avoid the deadly Cobra. Lots of 
action, sound and fun! Choice of 3 screens. Can be used 
with Trisstick joystick. 

39080 1 6K Tape $4045$1 5.96 
39114 16K 
Disk $1045 
$15.96 





HOOTOU 
THE 
GALA 

From Avalon Hill 
This exciting new game requires fast arcade response and 
well-thought-out stategy. Thirty alien warships have en- 
tered your Patrol Zone — can you handle your defense? 
Are your shields up? Have you checked your energy level? 
Is your azimuth set? OK then — Good Luck! 

37088 1 6K Tape $1045 $1 5.96 







The Program Store 
NOW OPEN IN 
Greensburg, PA 

Sheraton 

Route 30 



Business 
District 



PANIK 

By Demas from Fantastic 
An arcade style game of a fascinating future world with 
high-res graphics and voice. Filled with action and excite- 
ment, in machine language. 
37370 16K Tape $4045$15.96 
37022 32K Disk $2445 $19.96 




Rte. 30 East Greensburg, PA 15601 
(412)838-1604 



'rograms for TRS-80, ATARI 400/800, APPLE, IBM & VK 



4200 Wisconsin Ave., N.W., Dept. 14-03-3 Box 9582 
Washington, D.C. • 20016 

Visit our other stores: 829 Bethel Rd.. Columbus OH • White Flint Mall, Rockville, MD 
Seven Corners Center, Falls Church, VA • W. Bell Plaza, 6600 Security Blvd., Baltimore. MD 
Westmoreland Mall, Rt. 30 East, Greensburg, PA 15601 
Harvard Square, 13 Dunster St., Cambridge, MA 02138 






Opening soon in Philadelphia 



To Order Call Toil-Free: 800-424-2738 



© 1983 The Program Store, Inc. 



MAIL ORDERS: Send check or money order for total purchase price, plus $2.00 postage & handling. VA.: add sales tax. 
Charge Cards: Include all embossed information. 

| THE PROGRAM STORE • Dept. 14-08-3 • Box 9582 • 4200 Wisconsin Avenue, NW • Washington, D.C. 20016 



I ltem# Title 

I 

I 



Tape/Disk/Rom/Book Price Postage $2.00 
Total 



Name . 



Address 

□ CHECK □ VISA City 

D MASTERCARD Card #_ 
Computer 



State . 



.Zip. 



Exp. 



. For TRS-80 Models I, III unless otherwise indicated 
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LOAD 80 




elodies 



by Jef Bell 



Micro-Melodies is a matching game 
based on the games Concentration and 
Memory. Instead of matching prizes or 
picture parts, however, Micro-Melodies 
uses the sound capability of a Model 1 
or III to match the opening notes from 
familiar songs. 

The Game 

The Micro-Melodies display features 
a four-by-six-block grid (see Program 
Listing 1). Each of the 24 blocks con- 
tains a letter. Two players alternate 
turns. The first player chooses a letter 
and listens to the music played. Then, 
either by luck or by memory, that player 
chooses a second letter and another 
song plays. 

If two songs match, the player re- 
ceives points and the blocks, taken out of 
play, display "MATCH." If the songs 



icro-Melodies is a Concentration-style game 
that tests your recall in a unique way — you 
have to match tunes instead of pictures. 




10001 


Happy Birthday 


10002 


Yankee Doodle 


10003 


Row, Row, Row Your Boat 


10004 


Mary Had a Little Lamb 


10005 


Fifth of Beethoven 


10006 


National Anthem 


10007 


Sound of Silence 


10008 


Silent Night 


10009 


Big Ben (Westminster chimes) 


10010 


Funeral dirge 


10011 


Charge!! 


10012 


Entertainer 


Table I. Song titles and their corresponding 


line numbers. 




The Key Box 




Model I & III 




16K RAM 




Basic 



A 


Used to read data for songs. 


B 


For reading data to scramble squares. 


CI 


Your choice. 


CIS 


INKEYS for choices. 


cc 


Storage for first choice. 


CP 


Cursor position for inputting names. 


DD(l-30) 


Holds scrambled data for the squares, later 




the point value of each square. 


DI 


Helps in determining Print at position of 




squares. 


EC 


Number of matched squares. 


11. 


Flag set if not first game. 


1 


Loop variable. 


1N$ 


Used for INKEYS. 


J 


Timer loop variable. 


MAS 


The "MATCH" square. 


N$ 


Name of player (used to input names). 


N1S 


Player one's name. 


N2$ 


Player two's name. 


NO$ 


The note (graphics characters). 


PA 


Print at position of chosen square. 


PL 


Loop (1 to 2) for player one or player two. 


PP 


Temporary storage of PA of the first 




choice. 


R 


Random number for scrambling. 


SI 


Score of player one. 


S2 


Score of player two. 


SC(l-24) 


The song numbers (1-12) for each of the 




24 squares. 


SO(l-12, 1-12, 


1-2) Data for the 12 songs. 


SQS 


The squares. 


TU 


Loop (1 to 2) for each turn. 


TUS 


"1st" or "2nd." 


W$ 


Name of the winner. 


X 


Dummy variable for counting. 


XX 


Used to call sound routine. 


xx$ 


Stores the sound routine. 


YN$ 


INKEYS for yes/no questions. 




Table 2. Variables List. 
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NO YOU'RE NOT SEEING THINGS, THAT'S FOUR INTERNAL DRIVES IN 
A MODEL 4 WITH UP TO 4 MEG. DISK STORAGE AVAILABLE NOW, 
ONLY FROM DISPLAYED VIDEOir 



DISPLAYED VI 



DRIVING DO' 



DISPLAYED VIDEO is now offering TRS-80* MODEL IV with TANDOK disk drives, one of the most reliable disk drive systems on the 
market, for INCREDIBLY low prices. 



MODEL IV with 64K, dual 40 track double density disk drives, complete systems with TRSDOS 6.0 

PLUG IT IN AND GO $1,699.00 

MODEL IV with 64K, dual 40/40 track double density disk^rt#s, complete systems with TRSDOS 6.0 

PLUG JJ IN AND GO $1,999.00 

MODEL IV with 64K, dual 80 trac k double density disk drives, complete systems with TRSDOS 6.0 

PLVG % rt^mglp&. *. . .$1,999.00 

MODEL IV with 64K, dual 80/80 track ddfflfcdfensity disjirfves, complete systems with TRSDOS 6.0 

PWCMWm AND GO.,... $2,299.00 

MODEL IV with 64K, 40/40 track cfcffe density internal disk drives, complete systems with TRSDOS 6.0 

PLUG IT IN AND GO..... $2,399.00 

MODEL IV with 64K, four internal drives of any configuration available to achieve up to 4 meg of disk storage CALL 

MODEL III Internal Drive Kit: Includes controller board, dual drive mounting bracket, 

dual power supply, all hardware cables and connectors (gold plated) $299.00 -«**?—- — -- «— — • 

MODEL 16 w/1 drive $4,450.00 w/2 drives $4,850.00 



Visit our retail 
location at: 

111 Marshall Street 
Litchfield, MI 49252 
(313) 482-4424 
(313) 426-5086 
(517) 542-3280 

Authorized Dealership at: 

111 Marshall Street, Litchfield, Michigan 49252 PI 42 

To Order Call (31 3)426-5086/0 13)482.4424/(5 17)542 3280/(517)542-3939/(51 7)542-3947 



We cany a fuU hnc of EM, EPSON and FRANKLIN Personal Computers IMMEDIATE DELIVERY 

DV's 120 Days Parts and Labor Warranty 

_^*«% Free Shipping in the U.S. 

D ' SPLAY E D r^^T^ ^ Contic ^ ous states 



IDEO 




Displayed Video, 111 Marshall St., Litchfield, Michigan 49252 

•TRS-80 is a trademark of the Tandy Corporation Prices subject to change without notice 




10 


General Housekeeping. 


610-630 


More processing of choice. 


20-60 


Instructions. 


1000-1070 


Name input subroutine. 


100-120 


Variable initialization. 


2000-2010 


Plays songs. 


130-140 


Machine language routine initialization. 


3000-3020 


Process routine for matches. 


150-170 


Data reading for songs. 


4000-4020 


End of game. 


180 230 


Scrambling the board. 


4030 4060 


Winner. 


240-250 


Name input. 


4070-4080 


Scores. 


260-310 


Screen set up for game. 


4090-4130 


Play again. 


500-540 


Choice input. 


10000 


Data for sound routine. 


550-590 


Process choice. 


10001-10012 


Data for songs. 


600 


Check for finish. 


10013 


Data for scrambling the board. 




Table 3. Micro-Melodies line descriptions. 





don't match, the blocks revert to letters 
and the turn passes to the next player. 
The player with the most points wins. 

Micro-Melodies has an unusual scor- 
ing system. Each square is worth five 



points at the beginning of the game. 
Once a player chooses a square, its 
value decreases by one point, and con- 
tinues decreasing each time that square 
is selected. The minimum value of a 



Program Listing 1. Micro-Melodies 



1 ' 



****************************************************** 

*** MICRO-MELODIES *** 

** * *** 

*** gy *** 

*** JEFFREY BELL *** 

*** 2150 MARGARETT ST. NW *** 

*** SALEM, OR 97304 *** 

****************************************************** 



10 CLS:CLEAR1000:DIMSO(12,12,2) ,SC(24) ,DD(30) 

20 PRINTTAB(19) ; "MICRO-MELODIES: BY JEF BELL" : PRINT" THIS G 

AME IS MUCH LIKE THE POPULAR ";CHR$(34); "CONCENTRATION" ; CHR$ ( 34 

);"GAME.": PRINT"THE PLAYING BOARD CONSISTS OF 24 SQUARES, BEHIN 

D WHICH LIE 12" 

30 PRINT-PAIRS OF MATCHES. THE TWO PLAYERS TAKE TURNS UNCOVERIN 

G TWO" : PRINT" SQUARES AT A TIME. THE BASIC IDEA OF THE GAME IS T 

O REVEAL MORE PAIRS THAN YOUR OPPONENT REVEALS .": PRINT 

40 PRINT" THE DIFFERENCE BETWEEN MICRO-MELODIES AND OTHER GA 

MES OF n :PRINT n THIS NATURE IS THAT THERE ARE NO WORDS OR OBJECTS 

BEHIND THE":PRINT"SQUARES. INSTEAD, EACH SQUARE HOUSES A SHORT 

MUSICAL TUNE. " 

50 PRINT: PRINT" EVERY SQUARE IS GIVEN THE VALUE OF 5 AT THE 

BEGINNING OF": PRINT "THE GAME. WHENEVER A SQUARE IS UNCOVERED, 

ITS VALUE DECREASES" :PRINT"BY 1, WITH A MINIMUM VALUE OF 1 POINT 

BECAUSE OF THIS, EACH" 
60 PRINT"MATCH MADE WILL HAVE A VALUE FROM TWO POINTS TO TEN POI 
NTS. ":PRINTTAB( 12) ; "PLEASE WAIT A FEW MOMENTS WHILE I SET UP."; 
100 SQ$=CHR$(191) +STRING$(7,131)+CHR$(191)+CHR$(26) +STRING$ ( 9 , 24 
)+CHR$(191)+" "+CHR$(191)+CHR$(26)+STRING$(9,24)+CHR$(143) 
+STRING$(7,140) +CHR$(143) 

110 NO$ = " "+CHR$(157)+CHR$(144)+" "+CHR$ ( 26 ) +STRING$ ( 9 , 24 
)+" "+STRING$(2,176) +CHR$(149) +" "+CHR$ ( 26) +STRINGS ( 9 , 24) +" 

"+CHR$(13 0)+STRING$(2,143)+CHR$(129)+" " 
120 MAS="*********"+CHR$(26) +STRINGS ( 9 , 24) +" * MATCH *"+CHR$(26)+ 
STRING$(9,24) +"*********" 

130 XX$="":F0RI=1T029:READA:XX$=XX$+CHR$(A) :NEXTI 

140 POKE167 82,201:IFPEEK(16 3 96) =201THENPOKE16 526 , PEEK ( VARPTR ( XX $ 
) +1) :P0KE16527 , PEEK (VARPTR ( XX$) +2) ELSEDEFUSR=PEEK (VARPTR ( XX$) +1) 
+PEEK( VARPTR ( XX $) +2) *256+6 5536* ( PEEK ( VARPTR ( XX $) +2) >127) :CMD"T" 
150 FORI=lTOl2:X=l 

160 READA,B: IFA=0ANDB=0THENNEXTI : GOTOl 80 
170 SO(I f X,l)=A:SO(I,X,2) =B:X=X+1 : GOTOl 60 
180 R=RND(30) :IFDD(R) >0THEN180 
190 READA:IFA<13,DD(R) =A:GOTO180 

2 00 X = l : FORI=lT03 : IFDD ( I ) =0NEXTIELSESC (X) =DD ( I ) :X=X+1 : NEXTI 
210 F0RI=1T02 4:DD(I) =6 : NEXTI : IFFL=lTHEN240 

220 PRINT@971, -******* PRESS <ENTER> TO BEGIN ******* " • 
230 IFPEEK(14400) O1THEN230 

2 40 CLS:PRINTCHR$(23) : PRINT@0 , STRINGS ( 32 , 191) ; : PRINT@ 896 , STRINGS 
(32,191) ; :FORI=64T0832STEP64:PRINT@I,CHR$(191) ; : PRINT@I+6 2 , CHR$ ( 
191) ; :NEXT 

250 N$="":PRINT@262,"WHAT IS PLAYER #1'S NAME?" ; : GOSUB1000 : Nl $=N 
$:N$="":PRINT@598," " ; : PRINT@26 2 , "WHAT IS PLAYER #2'S NA 

ME?"; :GOSUB1000:N2$=N$:CLS 
260 S1=0:S2=0 

270 CLS:PRINT@20,"*** MICRO-MELODIES ***"; 
280 FORI=66TO116STEP10:PRINT@I,SQ$; : PRINTOI+192 ,SQ$ ; :PRINT@I+384 

LiSli'lx I consumes 



square is one point. 

Players' strategy is not only to make 
matches, but to match the squares with 
the greatest number of points remain- 
ing. The point value of a match ranges 
between a high of 10 and a low of two. 

The Program 

The songs for Micro-Melodies come 
from Program Listing 2, Music Maker, 
adapted from sound routines in "Pow- 
Bang-Zap-Crash" (80 Microcomput- 
ing, November 1980, p. 230). Plug the 
Model 1 or III gray AUX cord into an 
amplifier to hear the Micro-Melodies 
songs. 

The first mode of Music Maker, cre- 
ate tones, enters frequency (1 is the 
highest, 255 the lowest) and duration (1 
is the shortest, 255 the longest) for each 
note. The second mode, edit tones, dis- 
plays all frequencies and durations, and 
allows you to change them. The final 
mode, play tones, does just that, dis- 
playing frequencies and durations as it 
goes along. 

Since I am no musical expert, some 
notes may be flat. To modify a note, 
type in the note number, then the new- 
frequency and new duration you desire. 
Hit the enter key to return to the menu 
from the edit mode. 

To modify the songs in Micro-Melo- 
dies, change the data in lines 10001- 
10012. Each line has the data for the 
songs. The data alternates frequency 
and duration to produce a melody. 
Refer to Table 1 for data on specific 
songs. 

Refer to the variable chart (Table 2) 
and the brief program description 
(Table 3) to understand the code more 
clearly. 

Both Micro-Melodies and Music 
Maker make beautiful music on any 
Model 1 or III with 16K or more of 
memory. ■ 



Jef Bell can be reached at 2150 
Margarett St. N. W., Salem, OR 97304. 
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Ebonize Printer Ribbon Ink Spray 
SAVES MONEY by reducing 
ribbon replacement cost. EASY 
TO USE. Open ribbon cassette 
top. Spray on Ebonize. Allow to 
dry and replace top. IT WORKS! 
One can re-inks up to 20 ribbons. 




^»v 



only 
$4495 

y rl (includes shipping 



Dealer 
Inquiries 
Invited t:"i ;;| and handling) 

Illinois residents add 72C (6%) sales tax 



SEND CHECK OR MONEY ORDER TO: 

Upwego Computer Supply, Inc. 

1 20 West Madison St., Chicago, IL 60602 

Phone: 312-372-6692 ^413 




and llMVA£>ION... the 
ultimate in space adventures! 
You control the destiny 
of your planet in a deadly bat- 
tle against extraterrestrials. 
In PSICQNN, your mind 
must overcome the most 
infamous barriers. 
For the 16K Radio Shack 
Color Computer. 
Several precision levels. 
By Simon Reiter 



ONLY S23.95 Ea. 



INVASION y O. V.N.I... Las 
mas excitantes aventuras in- 
tergalacticas.Oefienda el des- 
tine de su planets librando 
sangrientas batallas contra 
los invasores. En PSICONN, 
su merits lucha contra 
crueles barrcr a s. 
Para el Radio Shack Color 
Computer de 1 GK. 
Varios niveles de precision. 
Por Simon Reiter 
EN ESPANOL 
SOLO S23.S5 Cada Uno 



I Save 

I lORb if ordered 
in August. 






y 



Ahorre 

1 0°ki si ordena 

en agosto. 



! 



»-- 41C 



9380 Sunset Drive Suite B-210, Miami, Fl. 33173. 
Tel. (305)279-0-186, 279-0194. 



TRS-80= "CAN YOU BUY DIRECT? 



HAVE YOU GOT OUR PRICES? 

WILL YOU PAY TOO MUCH? 

7 WARRANTY: 



the RADIO SHACK warranty 
accompanies all R. S. 
merchandise sold by us. 




TM: TRADE MARK OF RADIO SHACK 



s See List of Advertisers on Page 355 



377 Plaza • GRANBURY • NR FORT WORTH . TEXAS 76048 

TOLL FREE NUMBER: 1 - 800 - 433-S-A-VrG 

Ai IN TEXAS CALL: 817-573-4111 " 214 



80 Micro, August 1983 • 185 



DliSCI?? 

maXEll VERBATIM 




ADD 2.00 SHIP 
5% TAX IN FLA. 

800-327-1013 



MEGA-BYTE 
DEPT. 80 

4699 S.W. 45lh STREET 

FORT LAUD., FLA 33314 

305-587- 1 130 



— Professional — 

REAL ESTATE SOFTWARE 

lor APPLE. THS-80 It CPM SYSTEMS 

» PROPERTY MANAGEMENT SYSTEM: $450 
Tenant History Operating Stmt. 

Late Rent Report Building Reports 

Vacancy Report 
Income Report 
Auto Late Chan 
Returne 

• PROPERTY USTINGS/COMPARABLES: S325 
— SCREEN BY — •— Max/Min Price 

22 Items/Listing Max Price/Income 

1000 Listing/Disk Max Price/Sq Foot 

Listing Memo Field Min Cashflow 

• REAL ESTATE ANALYSIS MODULES: SSQ/Mod»lt> 

Home Purchase Tax Deferred Exchange 

Income Prop Analysis APR Loan Analysis 



Property Sales 

Construi 

Loan 



Loan Amortization 
Depreeiation/ACRS Analysis 
Loan Wrap Analysis 

WORDSTAR: $295 



•puler Stores Cvenwn 
or Order COD Direct 
Residents add 6'/i% Sales Tax 



UMM 



mm 



jsaaJ 



THE ULTIMATE 
IN SOFTWARE 
UN PROTECTION 

FPS 3 IS A FRONT PANEL SIMULATOR 

FORTHE TANDY CORP. TRS80 MODEL III 

JUSTFLIPA SWITCH AND! ! ! 

THE PROGRAM IN MEMORY IS COPIED 
TO YOUR CHOICE OF DISK OR TAPE. TO 
RUN THE COPY SIMPLY BOOT THE DISK 
FROM RESET OR LOAD THE TAPE WITH 
THE SYSTEM COMMAND.YOU DO NOT 
NEED ANY TECHNICAL KNOWLEDGE 
TO USE THE FPS -3. ALLYOU NEED TO 
INSTALL THE FPS-3 ARE A HALF HOUR 
OF YOUR TIME AND A SCREWDRIVER. 
THE COST FOR A COMPLETE FPS-3 IS 
ONLY S50. 

WHAT THE SOFTWARE GODS 
HAVE HIDDEN 

• 439 

THIS LITTLE (jpy,. 
SHALL REVEAL Ut w IL. 

J.E.S. GRAPHICS. P.O. BOX 2752 > 
TULSA. OK. 74101 CALL 918 742 7104 . 



Listing I continued 

,SQ$; :PRINT@I+576,SQ$; :NEXTI 

290 X=65:FORI=134TO184STEP10:PRINT@I,CHR$(X) ; : PRINT@I+192 ,CHR$ (X 

+6) ; :PRINT@I+384,CHR$(X+12) ; : PRINT@I+576 ,CHR$ (X+18) ; :X=X+1:NEXTI 

3 00 PRINT@897,Nl$; ":"; : PRINT 095 4-LEN (N2 ?) ,N2$; ": "; 

310 PRINT@898+LEN(N1$) ,Sl ; : PRINT0955 ,S2; 

500 FORPL=lT02 : IFPL=lN$=Nl$ELSEN$=N2$ 

510 FOR TU=1T02:IFTU=1TU$="1ST"ELSETU$="2ND" 

520 PRINT@975,STRING$(34,32) ; : PRINT@960+( ( 64- ( 26+LEN (N$) ))/2) ,N$ 

;",WHAT IS YOUR ";TU$;" CHOICE?"; 

530 C1$=INKEY$:IFC1$=""THEN530ELSEIFASC(C1$)<65ORASC(C1$)>88THEN 

530 

540 C1=ASC(C1$)-6 4:IFSC(C1)=0THEN530 

550 IFTU=2ANDCC=C1THEN530 

560 IFCK7PA=66:DI = 0ELSEIFCK13PA=258:DI=6ELSEIFCK19PA=450:DI=1 

2ELSEPA=642:DI=18 

57 PA=PA+(C1-DI)*10-10:PRINT@PA-1,NO$;:DD(C1)=DD(C1)-1:IFDD(C1) 

=0,DD(C1)=1 

580 GOSUB2000:IFTU=1CC=C1:PP=PA 

590 NEXTTU:IFSC(CC) =SC (CI) GOSUB3000 

600 EG=0:FORI=1TO24:EG=EG+SC(I) :NEXTI: IFEG=0THEN4000 

610 IFSC(CC)=SC(C1)THENIFPL=1THEN500ELSEIFPL=2THEN510 

620 PRINT@PA,SQ$; : PRINT@PA+68,CHR$ (Cl+64) ; : PRINT@PP,SQ$; :PRINT@P 

P+68,CHR$(CC+64) ; 

630 NEXTPL:GOTO500 

10 00 FORI=1TO10:IN$=INKEY$:NEXT:CP=598 

1010 PRINTr3CP,CHR$(143) ; : FORI=1TO10 : IN$=INKEY$: IFIN$<>" "THEN1030 

ELSENEXT 

1020 PRINT@CP, " "; : FORI=1TO10 : IN$=INKEY$: IFIN$<>" "THEN1030ELSENE 

XT:GOTO1010 

1030 IFIN$=CHR$(8) ANDCP<>598THENPRINTfaCP," "; :CP=CP-2 :N$=LEFT$ (N 

$,LEN(N$)-1) :GOTO1010 

1040 IFIN$=CHR$(13)THENRETURN 

1050 PRINT@CP,IN$; : CP=CP+2 : IFCP=616CP=614 

1060 IFLEN(N$) <8N$=N$+IN$ 

1070 GOTO1010 

2000 X=l:IFSO(SC(Cl) ,X r l) =0RETURN 

2010 POKE16783 ,S0(SC(C1) ,X,2) :P0KE16784 ,S0(SC(C1) ,X,1) :XX=USR(0) 

:X=X+l:IFSO(SC(Cl) ,X,1) >0THEN2010ELSERETURN 

3000 SC(CC)=0:SC(C1)=0:IFPL=1,S1=S1+DD(C1)+DD(CC)ELSES2=S2+DD(C1 

)+DD(CC) 

3010 PRINT @PA, MA $; : PRINTgPP, MA$; : PRINT@898+LEN(N1$) r Sl; :PRINTr§95 

5,S2; 

3020 RETURN 

4000 PRINT(a975,STRING$(34,32) ; :FORI=1TO1000 :NEXTI :CLS 

4010 IFS1>S2,W$=N1$ELSEIFS2>S1,W$=N2$ELSEW$="N0 ONE !?" 

4020 PRINTCHR$(23) : PRINT@0 r STRING$ ( 32 , "#") ; :FORI=64T0832STEP64:P 

RINT@I,"##"; :PRINTtai+60,"##"; :NEXT:PRINT@896 , STRING$(32, "#") ; 

4030 PRINT@326 ,"AND THE WINNER IS" ; :X=362 :FORI=lT05,: PRINT(?X , " . "; 

: FORJ=1TO200 : NEXTJ : X=X+2 : NEXTI 

4040 PRINT@474,STRING$(9-LEN(W$) ,32) ;W$; : IFS10S2PRINT" ! ! ! !"; 

4050 POKE16783,50:FORI=255TO5STEP-5:POKE16784,I:XX=USR(0) :NEXT:C 

LS:IFS1OS2THEN4080 

4060 PRINT@71, "WE'RE SORRY, BUT THROUGH A BIZZARE TWIST OF FATE, 

"; :PRINT@146,"THE GAME HAS ENDED IN A TIE."; 

4070 PRINTr3192,STRING$(64,140) ; 

4080 PRINT@345,"S CORES ; "; :PRINT@409 ,Nl$; " — "; Si ; : PRINT@473 

,N2$;" — ";S2; 

4090 PRINT@720, "WOULD YOU LIKE TO PLAY AGAIN (Y/N)?"; 

4100 YN$ = INKEY$:IFYN$O"Y"ANDYN$O"N"$THEN4100 

4110 IFYN$="N"THENCLS:END 

4120 PRINT@856 ,"JUST ONE MOMENT. "; :RESTORE:FORI =1T02 41 :READX:NEX 

TI 

413 FL=1:FORI=1TO30:DD(I) =0 : NEXTI :GOT01 80 

100 DATA221, 33, 143, 6 5, 221, 7 8, 0,221, 70, 1,62 ,1,211, 255, 16, 254, 22 

1,70,1,62,2,211,255,16,254,13,32,23 5,201 

10 010 DATA15 0,1 20, 15 0,1 20, 130, 255, 150, 200, 11 0,255, 120, 240, 0,0 

100 20 DATA15 0,1 20, 15 0,1 20, 130, 15 0,1 20, 120, 150, 13 0,1 20, 120, 13 0,20 

0,0,0 

10 030 DATA15 0,2 40, 15 0,240, 150, 10 0,13 0,13 0,1 20, 255, 120 ,100, 13 0,80 

,120,120,110,120,100,205,0,0 

10 040 DATA1 20, 180, 13 0,1 40, 150, 140, 13 0,1 40, 120, 140, 120, 140, 120, 20 

0,0,0 

10 050 DATA110, 100, 11 0,1 00, 110, 10 0,1 40, 255, 125, 10 0,1 25, 100, 125, 10 

0,145,255,0,0 

1006 DATA110, 200, 13 0,1 00, 165, 170, 130, 150, 110, 150, 80, 255, 0,0 

10070 DATA160, 90, 160, 90, 125, 100, 125, 100, 10 5, 120, 105, 120, 115, 255, 

0,0 

10080 DATA13 0,250, 115, 110, 130, 200, 160, 255, 1,255, 130, 250, 115, 110, 

130,200,160,255,0,0 

10090 DATA100, 255, 125, 200, 110, 200, 125, 255, 1,255, 165, 17 0,110, 200, 

100,200,125,255,0,0 

10100 DATA20 0,25 5, 200, 20 0,20 0,1 00, 200, 250, 16 5, 250, 17 5, 120, 17 5, 20 

0,200,100,200,200,210,120,20 0,255,0,0 

10110 DATA220, 7 0,16 5, 80, 13 0,110, 11 0,220, 13 0,1 0, 110, 200, 0,0 

10120 DATA16 0,100, 16 0,100, 150, 10 0,1 10, 250, 150, 100, 11 0,250, 150, 10 

0,110,250,0,0 

10130 DATA1, 1,2, 2, 3, 3, 4, 4, 5 ,5, 6, 6, 7, 7, 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 

13 
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REM MUSIC MAKER PROGRAM BY JEF BELL 

1 REM USED TO WRITE SONGS FOR "MICRO MELODIES" BY JEF BELL 

5 CLEAR200:GOSUB1000:DIMF(20) ,D(20) :X=1 
10 CLS: PRINT" MENU 

1) CREATE TONES 

2) EDIT TONES 

3) PLAY TONES 
YOUR CHOICE?" 

20 CH$=INKEYS:IFVAL(CH$) <10RVAL(CH$) >3THEN20ELSECLS : ONVAL ( CH $) GO 

TO30,40,70 

30 PRINT"FREQUENCY #"; X ;"=";: INPUTF (X) : PRINT"DURATION # " ; X; " =" ; : 

INPUTD(X) :IFF(X) =0ANDD(X) =0THEN10ELSEX=X+1 : GOT03 

40 FORI=lTOX-l:PRINT"FREQUENCY #"; I ;"="; F ( I ), "DURATION #";I;"="; 

D(I) :NEXTI 

50 INPUT"NUMBER, FREQUENCY, DURATION" ; N , FR, DU 

60 IFN=0ANDFR=0ANDDU=0THEN10ELSEF(N) =FR:D(N) =DU:GOTO40 

7 FORI=lTOX-l:PRINTI,"FREQ.=";F(I) , "DUR. =" ; D ( I ) :P0KE167 83 ,D(I) : 

P0KE16784,F(I) :XX=USR(0) :NEXT:GOTO10 

1000 P$="":F0RI=1T029:READJ:P$=P$+CHR$(J) : NEXT : POKE16 7 82 , 201 : IFP 

EEK( 163 96) =201THENPOKE16 526 , PEEK (VARPTR( P$) +1) : POKEl 6 5 27 , PEEK (VA 

RPTR(P$)+2) ELSEDEFUSR=PEEK(VARPTR(P$) +1) +PEEK ( VARPTR ( P$) +2) *256+ 

6 5536*(PEEK(VARPTR(P$)+2) >127) :CMD"T" 
1010 RETURN 

1020 DATA221, 33,143, 65, 221,7 8 ,0,221,70,1, 62, 1,211 ,255, 16, 254, 221 
,70,1,62,2,211,255,16,254,13,32,235,201 

Program Listing 2. Music Maker 



Program of 
Your Choice 
With Order 
Of Any Five 
Programs. 



TRS-80 MOD I or III . . . $19.95 Disk 
HACK AND SLAY . . . $16.95 Cass. 



THE ONLY TRUE 

3-D ACTION GAME! 

INCLUDES 3-D GLASSES! 

COLOR COMPUTER 16K EX. 

STAR EMPIRE $24.95 Cass. 



HOT- LINE 707-869-3420 .37 



SAB 



ENTFRPRISES 



16471 RIO NIDO RD. 
GUERNEVILLE, CA 95446 




TREASURE RUN 

• ARCADE ACTION • SOUND • GAME PAUSE 

. ALPHA JOYSTICK COMPATIBLE 

• TOP TEN SCORES (SAVED IN DISK VERSION) 

REQUIRES MODEL III, LEVEL II. 16K. 
TAPE-15.95 DISK-19.95 



EYEOFMEZRON 

• TEXT-ADVENTURE GAME • EACH GAME 
DIFFERENT • LOTS OF ACTION • SAVE GAMES 
IN PROGRESS 

REQUIRES MODEL III, 48K, DISK 
ON DISK ONLY-27.95 



ADDS! 50 SHIPPING FOR EACH GAME. 
FLORIDA RESIDENTS ADD 5% SALES TAX. 
SEND CHECK OR MONEY ORDER TO: 
JAN PHIL SOFTWARE, P.O. BOX 140 
KATHLEEN, FLORIDA 33849 

DEALER INQUIRIES WELCOME. -15 



A 



55K VisiCalc Storage 

Add 32K more data storsQe to your 
VisiCslc with BIGMEM Model 1 kit and 
VCXM software. BIGMEM features inch 

• 48K internal memory on power-up 

• plus access to 32K E/I memory 

• Run 64K CP/M or your Model 1 DOS 

• 2. 7K protected RAM above ROM 

■ Overlay ROM with your RAM BASIC 

BIGMEM kit includes 64 K RAM chips, 
A&T controller, cable, solder and 
instructions ($180). VCXM disk ($34). 
Utility software disk ($20). Get all 
three ($224). 64K CP/M 2. 2 ($119). 

USA shipping included. NYS add tax. 



HICROHflTCH 
P0 Box 501 

DeWi+T. NY 13214 ""* 
(315)446-8031 after GPM 

VI5ICRLC TK VI5IC0RP. BI6REH TR (IICK0KRICH. 
It/* TH 0I6ITBL ItSEMCH 



* BOOKKEEPER * 

$34.50 

TRS-80 Model III 

'erfect for TIME DOME and 90% 

of other general ledger 

will run on this program 

* SCRIPSIT - MAILER * 

$34.50 

Form Letters Envelopes Labels 

From address list and letter 

made by SCRIPSIT 

* SERVICE BILLING * 

$34.50 
Weekly • Bi-Monthly 

Monthly 



- (714) 774-9383 - 

H. A. K. Workshop 

9791 Orange Ave. 

Anaheim, Calif. 92804 

TRS-80 is a trademark of TANDY 
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100% RS COMP ONENTS, NO FOREIGN DRIVES OR MEMORY 



FULL WARRANTY 






MOD 12 MOD 4 MOD 16 

1 DR 80K $2499 16K Ext. Bas. $ 799 1 DR 128K $3898 

2 DR 80K $3149 64K 2DR RS232 $1579 2DR 128K $4510 

CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALLORDERS 

(817) 825-4027 

NOCONA ELECTRONICS . P.O.Box593 • Nocona,TX 76255 



^See List ot Advertisers on Page 323 
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REVIEW 




by Joseph E. Trojak 



the networking possibilities for your Model 
12, or 16 have always tempted you, read 
his overview of ARCNET and Tandy's ARCDOS. 




• ••• 

ARCDOS 

Tandy /Radio Shack 
Fort Worth, TX 76102 
$499 

In March 1983 Tandy released ARC- 
DOS, its local network operating sys- 
tem for TRS-80 Models II, 12, and 16. 
ARCDOS uses ARCNET, Datapoint's 
local area network. 

First, I want to describe three net- 
work operating systems that use ARC- 
NET: Datapoint's ARC and RMS, and 
Tandy's ARCDOS. Then I'll explain 
the ARCNET protocol and the hard- 
ware necessary to implement the 
system. 

Networks and ARCNET 

A local area network (LAN) is a sys- 
tem that transfers digital information 
among computer resources within a rel- 
atively small geographic area. It's a sys- 
tem of interconnected computers (pro- 
cessors) that share resources (disk 
drives, printers, and so on), programs, 
and possibly data. 

Coaxial cable is the most common 
transmission medium, although net- 
works also use copper wire and fiber- 
optic cable. All LANs require a local 
network operating system (LNOS) to 
allocate resources among users. The de- 
sign of an LNOS depends on the pro- 
cessors, peripheral resources, and net- 
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work structure. 

In 1977 Datapoint introduced the 
hardware to implement the ARCNET 
networking protocol, but the imple- 
mentation required much more than 
ARCNET. A sophisticated network op- 
erating system was necessary to control 
interaction between processors and allo- 
cate resources in the system. 

Datapoint has developed two systems 
that use ARCNET. The first, ARC (At- 
tached Resource Computer), is an ex- 
tension of the disk operating system 
(DOS) used on stand-alone Datapoint 
equipment. 

The second, RMS (Resource Manage- 
ment System), is a much more sophisti- 
cated system that provides multitasking 
(several programs running on one pro- 
cessor at the same time), has a hierar- 
chical file structure, and allows sharing 
nondisk resources by all network mem- 
bers. Tandy's ARCDOS network oper- 
ating system is an extension of 
TRSDOS and is very similar to Data- 
point's ARC. 

ARC 

The basic philosophy behind the 
ARC network operating system is the 
dedication of one or more processors to 
disk file management, thus allowing 
other processors in the network access 
to disk files without attaching each 
computer directly to a disk drive. Also, 
multiple computers can share common 
files. 



Computers in an ARC system are 
either file processors (FPs) or applica- 
tions processors (APs). A file processor 
is attached to ARCNET, has mass stor- 
age disk drives, and runs a special pro- 
gram (ARC/FP) that allows applica- 
tions processors to gain access to disk 
files. 

A file processor is functionally 
dedicated to data management, buffers 
data, optimizes use of its disks, coor- 
dinates data-base updating, provides 
security, services incoming requests, 
and is not capable of performing any 
other task while it is executing the 
ARC/FP program. 

An applications processor is any 
computer attached to ARCNET capable 
of executing program tasks. The two 
types of applications processors include 
those with peripheral disk storage units 
(or with the capability of having attached 
disk drives) and those that you cannot 
attach to peripheral disk drives. 

The latter APs have firmware that 
downloads the ARC system program 
into the processor. APs with locally 
attached disk drives can load the op- 
erating system from the local disk or 
also download the system from a file 
processor. 

A simple ARC system consists of one 
file processor (FP,) and five applica- 
tions processors (see Fig. 1). Applica- 
tions processors AP,, AP ? , AP 4 , and 
AP 5 do not have disk drives and must 
obtain the operating system instructions 
and application programs from the file 
processor disk files. 

When you turn on applications pro- 
cessor AP , , a small ROM program re- 
quests that you download the operating 
system from the disk of FP,. The 
ARC/FP program first requests the 
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LEADER MAIL ORDER PI! 3UNTS! 

Texas 817/274-5625 



IBM Personal Comput 



INTERNAL DISKS FOR IBM 

Tandon Internal Oisk-160K $CALU 

Tandon Internal Disk-320K SCALL 

HARD DISKS FOR IBM 
Complete 5 Meg. Systems from . . . $1550 
Multi-computer Network Systems. 

OUADBOARD FOR IBM 
Includes 64K to 256K additional memory 
Serial & Parallel Port and Calendar Clock 

PRINTERS FOR IBM 

STAR and EPSON SCALi 

NEC 3550 Spinwriter SCALL 

MONITORS 

Med Hi Res-Green Comrex . $69 

High Res-Green BMC from $89 

High Res-Color PGS $CALL 

Matches IBM PC 
Low Res-Color-Taxon Vision 1 . . . $CALL 
High Res-Color-Taxon Vision 1 . SCALL 
High Res-Green-Taxon SCALL 



Firs! DISK DRIVE includes controller DC 

3 3. cables and manual SCAl 

Second DISK DRIVE with cable $CA. 

APPLE to EPSON card and cable 

APPLE TO GEMINI card and cable 

Z 80 CARD SCALLl 

RAM CARD SCALL 

Printer Interlace Cards SCALLl 

Graphic Printer Interlace Card . . $CALL| 

Graphic Spooler Interlace Care 

available with 16K to 64K 



|\ DAVONG 

1# Systems, Inc. 



FOR IBM. APPLE II AND APPLE III 
SPECIFY INTERNAL/EXTERNAL 

5 megabyte hard drive' SCALLl 

12 megabyte hard drive >CALL| 



HARD DISKS from $1889| 

5 Megabyte Hard Drive $CALL 

10 Megabyte Hard Drive $CALL 

20 Megabyte Hard Drive SCALL 

Add 5. 10 or 20 Megabytes of storage to your TRS-80 Model 1. Model II, Model III 
Model 12. IBM. Apple. Atari. Heath. Zenith. Intertec. S100. Osborne, Eagle 
Commodore 64, Xerox. Superbrain. Z89/90, DEC LSI— 11. NEC PC-8001. and more 

(One or several computers can share A HARD DISK 

OMNINET for your Apple or IBM PC. 



Dedicated 

To Being No. 1! 



PBHBB 



FEATURES 



100 CPS 

9X9 Dot Matrix 

True Decenders 

Super Scripsit-Subscript-Underlining 

Friction and Tractor 
Programable Line Spacing 

Extended Six ((,) Months 



99% Compatible with software written 

for No. 1 Printer. 
High Res. Bit Image Block Graphics 
Backspacing-Doublestrike-And More 
5, 6, 8 1/2, 10, 12 and 17 Pitch 
Free 2.3K Buffer 
iftory Warranty-- FREF! 



Gemini 10 (9 inch Carriage) Friction and Tractor SCALL 

Gemini 15 (15 inch Carriage) Friction and Tractor SCALL 

Serial Interface SCALL 

Apple Card and Cable $CALL 

Commodore Interface SCALL 

mm, 

VIC 20--DISK DRIVES-MONITORS 

DATASETTES--SOFTWARE 

ACCESSORIES 



Current Pricing 



RINTERS 



'mation 



TCS has the LOWEST PRICES on IN-STOCK PRINTERS 



MATRIX PRINTERS 

EPSON-MX & FX MODELS 

C.ITOH8510/TEC/PMC 

DMP 100 

DMP 200 

DMP 400 

DMP 500 

DMP 2100 

ANADEX 9501-A 

CENTRONICS 352/353 

OKIDATA PRINTERS 

IPRINTER CABLES AND INTERFACES AVAILABLE. 

>R CURRENT PRICING INFORMATIO 



LETTER QUALITY PRINTERS 

C.ITOH F-10 (40 CPSI 
DAISY WHEEL II (RS) 

NEC 3510-3550 

NEC 7710/7730 
BROTHERCOMREX 



TCS MODEL III 48K 2 DISl 

Systems come with 180 day warranty. 

$1444 $1644 

With standard 40 track With 2 dual headed 40 

double density drives track dbl density drives 

Over 340.000 bytes Over 730.000 bytes 

includes TDOS Includes DOSPLUS 3.4 

(S150 value) 

: ully assembled and tested systems that are software compatible and functionally 
dentical to Radio Shack units sold at computer stores for Shundreds more. 

(□CONTROLLER BOARDS are high quality double sided epoxy boards with gold 

i plated contacts 

loPOWER SUPPLY is the finest switching type available. 
| '-MOUNTING HARDWARE includes power and data cables. 

TDISK DRIVES are Tandon, the same ones used by Radio Shack. 40 track, double] 
density, with a 5 millisecond stepping rate. 

TCS MODEL III DISK EXPANSION KITS 

1 1 Controller, Power Supply. Mounting Hardware & Instruction $279l 

[2 Controller, Power Supply. Mounting Hardware & one 40 track Tandon Drive $4781 
|3 Controller, Power Supply, Mounting Hardware & two 40 track Tandon Drive S677I 

|3A Kit 3 but with two 80 track drives (dual 40's) S879I 

|3B Kit 3 but with two 160 track drives (dual 80's) $1099| 

TCS Model III and Color Computer 

Ask about the Green or Amber CRT for your customized Model III 
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Model III and Color Computer 

With Original 90 day Manufacturer's Limited Warranty 
Call for current pricing information on the 

Model II... Model 16... Model 12.. .Model 4 

All Radio Shack Equipment shipped from our store in 




ITCS DRIVE CABINET is industrial grade heavy guage metal, safely fused, and comes 
|with gold plated external connector with extender cable 

1 DRIVE in Cabinet 

1 40 track single sided S249 

80 track (dual sided 40 track) S329 

1 160 track (dual sided 80 track S449 

1 DRIVE/Double Cabinet 

1 40 track single sided S289 

80 track (dual sided 40 track) S389 

1 160 track (dual sided 80 track) S499 

2 DRIVES/Double Cabinet 

40 track single sided S489 

80 track (dual sided 40 track) S639 

160 track (dual sided 80 track) S849 

Drives in cabinets come assembled/tested with power supply. Order cable separately 



BARE DRIVES ONLY 



I 40 track single sided SCALL 

" '• track (dual sided 40 track) SCALL 

J 160 track (dual sided 80 track) SCALL 

8 inch Slimline sgl/dbl sided . . . SCALL 

Winchester Hard Drives 5-30 Meg . . ...SCALL 



Smith-Corona 8 TP.T 



idilel/Serial 
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TEXAS COMPUTER SYSTEMS 

P.O. Box 1327 Arlington, Texas 76004-1327 

TECHNICAL ASSISTANCE 817/274-9221 

ORDER STATUS 817/277-1913 

TELEX/TWX/Easylink ELN 62100790 



800 433-5184 



S 59 



to tax out of tut* Texan* add 5' 



i aubjact to chanoa at any time 



AP, user's identity and code word, 
then downloads the operating system 
into AP,. 

If the user wants to run a Basic pro- 
gram or edit a letter, the FP loads the 
appropriate program from disk to AP, . 
A user at AP, can sign on to the ARC 
system similarly, have the operating sys- 
tem downloaded, and begin word pro- 
cessing, data processing, or using a sys- 
tem utility. 

If the AP, user wants to create a file 
on drive 1 called "TEXT/TXT" and 
the AP 3 user wants to create a file with 
the same name on drive 1, a conflict 
arises. Assigning each user a different 
disk subdirectory resolves this problem. 

A subdirectory is a logical division of 
a disk that allows multiple users to have 
files with the same name on the same 
disk. When a user signs on at an AP, he 
enters a name and code word that deter- 
mine which subdirectory he uses. 

In addition to individual user subdi- 
rectories, each disk has two subdirec- 
tories called System and Main. The Sys- 
tem subdirectory contains disk system 
files shared by all the users and might 
also have programs and data files that 
every user can share. The Main subdi- 
rectory has information about the name 
and code word of each subdirectory on 
the disk. For security reasons, the infor- 
mation contained in Main is not avail- 
able to AP users. 

Peripheral devices attached to an AP 
can only be used by that processor. 
Only AP, can use the printer attached 
to AP,, and only AP 5 can use the 
magnetic tape drive attached to AP 5 . 
ARC solves the printer problem by ded- 
icating one or more APs to manage the 
printer. 

If the AP, user wants to print a file he 
has just edited, he first stores the docu- 
ment in a print file format on FP, 's disk 
drive using a print spooler that AP , ex- 



ecutes. AP 4 runs a program called the 
unspooler. As print files are created, a 
queue forms to indicate the printing pri- 
ority, printer type, and printer param- 
eters for each print job. The unspooler 
then prints each file. 

With this system, several APs can use 
a common printer. However, at least 
one AP must be dedicated to the task of 
printing. You can use the unspooler AP 
for other applications, but when it is not 
executing the unspooler program, print 
files accumulate and other users must 
wait for the AP to start its task of 
unspooling before they can receive 
printouts. 



"... heavy disk traffic 

can inundate 

a lone FP and result in 

poor system performance. ,; 



No similar mechanism exists for APs 
to share other peripheral devices. If a 
user at AP 2 wants to read a magnetic 
tape file from AP 5 , he must use AP 5 to 
dump the tape file onto a disk file and 
then access the disk file from AP 2 . 

As the number of APs in a system 
grows, users can add additional disk 
drives to a single FP or additional FPs 
to the system. In a network with many 
APs and a single FP, all file transac- 
tions must go through the one FP. 

In systems with very large, infre- 
quently accessed files, adding disk 
drives to a single FP is sufficient. How- 
ever, heavy disk traffic can inundate a 
lone FP and result in poor system per- 
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formance. In such cases, it's best to 
distribute the file transactions among 
several file processors. 

In Fig. 1, adding FP 2 to the system 
would increase system storage and 
speed. AP 2 and AP 4 can access a data 
file from drive 1 on FP, and a utility 
program from drive 2 on FP 2 . The 
ARC/FP program provides both APs 
with access to the common data file and 
prevents the simultaneous addition or 
updating of information to the file. 

For example, if the data file is an in- 
ventory list and the user at AP 2 has just 
removed an item, the user at AP 5 
should be denied access to the inventory 
count until the program on AP 2 has 
properly adjusted it. 

Datapoint currently has two distinct 
and incompatible ARC systems. One 
runs under DOS.G (Disk Operating 
System version G) and is designed for 
minicomputers. The other runs under 
DOS.H for use with the Datapoint 1560 
processor, a Z80-based microcomputer. 

RMS 

ARC's limitations include the re- 
quirement for dedicated FPs and un- 
spooling APs, and the inability to share 
other common resources. After ARC had 
been on the market for several years, 
Datapoint released RMS (Resource 
Management System), a sophisticated 
software system that allows almost 
complete sharing of processor resources 
within a network. 

Although RMS is currently imple- 
mented as an LAN, it can cover very 
large distances. The same processors 
that utilize ARC work in an RMS 
installation. 

Under RMS, each participating pro- 
cessor devotes a certain amount of its 
memory and cycle time to the system. 
The remainder of each processor's 
memory and cycle time is available for 
multiple tasks. Software configuration 
determines the extent to which a pro- 
cessor participates in an RMS system. 
In Fig. 2, two processors have attached 
disk drives, two have no peripheral de- 
vices, and one has a printer. 

Under RMS, file processors perform 
other tasks in addition to file manage- 
ment and are called Data Resource Pro- 
cessors (DRPs). A portion of DRP,'s 
memory performs file management for 
the system. The additional memory is 
used for multiple tasks accessed by the 
processor's console and keyboard and 
three work stations connected by cop- 
per wire. 

Each work station is a video display 
terminal that utilizes DRP,'s memory. 
AP, has an attached disk drive, but the 
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So rouse from your slumber 
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Forum Siily-Kight is the journal for 
Motorol. Microprocessors The forum 
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Color Computer News 

Color Computer News will wake your 

computer 

and open your eyes up wide- 

And soon you'll discover 

from cover to cover 

there's lots of good info inside 



Color Computer News is the ongmaJ 
Color Computer magazine covering 
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Which TRS-80* Accounting Software 

Do I Buy . . . 

That's a tough question. I know, I asked it myself not very long ago. I'm Mike 
Motta. As president of Shawmut Systems, specialists in TRS-80" custom soft- 
ware, my customers were asking me for Model II and 16 Accounting Software 
— GL, AR, AP and Payroll. But I said "Why write the software. There must be a 
good package already available." So I searched for the best I could find. And I 
found it! 

Now, when I tell you that these are the best Accounting programs I've seen on a 
microcomputer, you probably think that you are just listening to another sales 
pitch. But you're not. You're listening to a businessman with over twenty years 
combined experience in sales, management, and programming. So when I say 
that these programs will work for you, it really means something. 

Each program, designed for the Model II or 16, will work with one or more floppy 
or hard disks. With each program, I'll include a 200 page manual written with 
the first time user in mind, and a set of sample data files so you can start using 
the program right away. 

But I won't stop there. If you have a question, or a problem, call me. You won't 
get an operator, or order taker. You'll get me. And if I can't talk to you on the 
spot, I'll call you back. And I'll fix your problem. FAST. 

Now I could say a lot more about these programs, but you really won't know 
how good they are until you try them. So, order the programs you need, and try 
them for 14 days. If you're not convinced that these are the programs for you, 
send them back, and I'll refund your money. 

My price for these programs is only $289.00 each, postpaid. I could charge hun- 
dreds more, but I want you to have the best programs at the best possible price. 
So mail or call your order in today. I'll make sure you'll be satisfied. 



Model 11/16 Accounting Software Packages 



Accounts Receivable 
General Ledger 



Accounts Payable 
Payroll 



SHAWMUT SYSTEMS 

105 Circle Drive • PO Box 324-A 

Somerset, MA 02726 

(617)672-9794 



Ask about our Model I and 
versions. 

"TRS-80 is a Trademark 
of Tandy Corp. 



Send check, money order or 
Visa/MC number 



Mass. residents add 
5% sales tax. 
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REE PROGRA 



SUPER — A program that strips the 
copy protection from Radio Shack 
Visicalc, Scripsit, Time Manager, and 
Desktop/Plan 80. Our program comes 
on a Disk and automatically removes 
the backup protection. 
NO PROGRAMMING NECESSARY. 

REGULAR PRICE $20.00 

Shipped free with any of these Radio 

Shack Mod HI programs 



26-1563 Scripsit I/HI 99.95 

26-1569 Enhanced Visicalc 199.00 

26-1580 Project Manager 99.95 

26-1581 Personnel Manager 99.95 

26-1582 Time Manager 99.95 

26-1585 Business Checkwriter 149.95 

26-1590 Super-Scripsit 199.00 

26-1591 Scripsit Dictionary 149.00 

26-1592 Profile III + 199.00 

26-1594 Desktop/Plan 80 199.00 



OTHER SPECIALS THIS MONTH 

DOS + ver 3.4 (The Friendly DOS) 

Only $99.95 

APPARATS NEWDOS/80 ver 2.0 
Only $119.95 




Top-quality Verbatim® Diskettes 



Use VISA - Mastercard - Money Orders 

No Purchase Orders Please! 
Allow 2 weeks for personal checks 
Kansas Residents add 3.5% Sales Tax. 



CALL TOLL FREE! 

1-800-835-0071 
Dealer Inquiries Invited. 

IN KANSAS: 
316 - 665-3611 

FORUM 80 

316-665-3985 




T 



526 E. 4th 
HUTCHINSON, KANSAS 67501 



sSee List ol Advertisers on Page 323 
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system is configured so the disk drive 
files are available only to AP 2 . In the 
event of a disk drive failure on DRP,, 
users can easily change the system's 
software configuration so AP 2 func- 
tions as a DRP and its disk drive is 
available to all or select users on the 
system. 

AP, has a high-speed dot-matrix 
printer and AP 4 has a letter-quality 
daisy-wheel printer. The system is con- 
figured so that all processors and work 
stations can access both printers. 

ARCDOS 

ARCDOS is Tandy's local area net- 
work operating system for the Model II, 
12, and 16. Each processor must have 
64K of memory and an ARCNET board 
to participate in the network. Model II 
processors also require a 16K expansion 
board. 

TRS-80 processors can only partici- 
pate in ARCDOS while running in 
Model II mode, using the Z80 CPU and 
associated memory boards. Currently 
the Model 16's MC68000 CPU cannot 



use ARCNET. 

ARCDOS is similar to Datapoint's 
ARC. Each network is limited to 255 
processors and must have at least one 
file processor dedicated to file manage- 
ment. Unlike ARC, each FP can have 
one attached printer and any AP can 
use the printer. Like the Datapoint 
system, ARCDOS has two types of ap- 
plications processors: those with disk 
drives (or the capability for attached 
disk drives) and those with no disk 
drives that use firmware to download 
the operating system. 

Calling up ARCDOS is simple. The 
file processor first boots TRSDOS, and 
then executes the program ARC80FP to 
start ARCDOS. Once ARCDOS is run- 
ning, the file processor cannot run other 
programs. While the FP is running 
ARCDOS, you can use the command 
SHOWVOL to show which volumes 
(disks) are on line. 

Applications processors can access 
up to 10 logical disk drives, local (con- 
nected to the AP by the parallel in- 
put/output bus) or remote, attached to 




45CPS DAISY WHEEL 



Figure 2. 




Figure 3. 



an FP. You initially access remote 
volumes by name using the Mount com- 
mand. For example, to access a remote 
disk volume named Account, you 
would sign on, then type MOUNT 
ACCOUNTS. 

After a remote volume is logically 
mounted on an AP, further reference to 
it is by the disk drive number that 
Mount assigns. In our example, any 
disk read or write to drive 5 accesses 
volume Accounts on the file processor. 
When the user is finished, he Dismounts 
the remote volume and signs off the 
ARC system. 

Since ARCDOS operates under 
TRSDOS, it doesn't have subdirectories 
like Datapoint's ARC. Each user must 
take care that his files on any particular 
FP disk have unique names. 

For example, a user at one AP writes 
a Basic program and saves it on FP disk 
drive 1 as PROG01. Later another user 
writes a different program in Fortran 
and saves it on FP disk drive 1 as 
PROG01. The latter user's file will 
overwrite the first and the Basic pro- 
gram is lost. The first user could protect 
his file by assigning it a password, and 
the second user has to choose another 
file name. 

ARCDOS Application 

As an example of how an ARCDOS 
network works, consider its application 
in a large automobile dealership (Fig. 
3). FP, manages files dealing with new 
car inventory and sales. FP 2 manages 
files for mechanic scheduling and parts 
inventory. 

AP, has its own disk drives that store 
sensitive accounting and personnel 
data. AP 2 is used in the showroom to 
match inventory to customer needs, 
enter sales, and place requests for spe- 
cially equipped cars. AP 3 is used in the 
general manager's office as a back-up 
for AP or AP,, 

AP 4 is used in the garage to schedule 
customer service and request parts from 
the stockroom. In the parts stockroom, 
employees enter all parts sales on AP S to 
facilitate inventory control and ac- 
counting procedures. Should FP, or 
FP 2 fail, AP 2 can quickly substitute and 
return the system to normal function 
with a minimum delay. 

ARC-ARCDOS Incompatibilities 

You cannot use TRS-80 processors in 
ARC systems or Datapoint processors 
in ARCDOS systems because of the dif- 
ference in the architecture of Datapoint 
and Tandy computers. ARC DOS.G 
processors are minicomputers that use a 
different instruction set from the Z80 
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'Your Business Computer Headquarters" 



Compare the 
Victor 9000 Desktop 
Business Computer 



TRS-80 



Business 
Computers 

L28K Model 16 




The Victor 9000 Desktop Business 
Computer gives you the Kind of 
memory, storage capacity and soft- 
ware mat Business applications de- 
mand. Just compare the Victor 
9000 with the competition, and 
were confident you'll pIcK Victor. 

VICTOR 

Strvtag America* bw fcw m fe* 65 «i 

victo* business products 



Call For (Quotes!!——— 

Compare and youll pick Victor. 




Call For QUOTES On 
Complete Product Line 

800-351-1580 

In Texas Call Colled: 915-283-2920 
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RelatF 
IVIarmgfeffient for 
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ENB is a true relational database manager. Your data is 
held in ordered sets. You impose structure by creating 
and linking sets in various ways. Prompt screens are 
automatically generated from this underlying structure. 
You define reports ordered by any set, showing directly 
or indirectly linked sets (and enforce a host of further 
conditions on the selected set members). 

What's more, ENB has an integrated data dictionary; 
structural info is carried in the database as data, just like 
everything else. This lets you restructure your database 
at will, without reblocking or reprogramming, using the 
regular editing commands. Also, exchange files contain- 
ing structural data with other ENB databases. Special 
reports on database structure are built in and (like all 
reports) are always current. 

64K data items, spans 4 disk drives (or hard disk). In- 
terfaces to BASIC , file exchange with Scripsit, VisiCalc 
and other ENB data bases. Includes 5 action tutorials, 
150 page manual. 
Developed in England by Southern Software. 

You Owe It To Your Data! 



$140 



$3 Shipping 
CA add 6% 



Van Horn Office Supply 

701 W. Broadway "™ P.O. Box 1060 

Van Horn, Texas 79855 




TRS-80 SCRIPSIT tm Radio Shack; VISICALC tm Visicorp; •" 136 
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chip in TRS-80s. 

Although the Datapoint 1560 pro- 
cessor is a Z80-based microcomputer, it 

has other hardware (ROM, disk drive 
interface, video display, and keyboard 
units) that is different from TRS-80 
microcomputers. A TRS-80 with ap- 
propriately designed software could 
participate in a Datapoint ARC system 
and vice versa, but I doubt that either 
manufacturer has an incentive to de- 
velop the necessary software. It is likely 
that other software vendors will develop 
such programs. 

The most limiting feature of ARC- 
DOS is that, as an extension of 
TRSDOS, it doesn't have multitasking 
capabilities. It seems inevitable that 
Tandy will develop an LNOS based on 
Xenix, the multitasking operating sys- 
tem for the Model 16's 68000 CPU. 
Such a system would have many fea- 
tures of Datapoint 's RMS: multitasking 
at individual processors, hierarchical 
file structure, and complete sharing of 
peripheral resources among the system's 
processors. 

Local Networking Concepts 

Two transmission techniques are in 
general use for local networks: base- 
band and broadband methods. In base- 



band transmission, information is en- 
coded and transmitted directly. Only 
one message is oh the system at a time. 
Baseband systems can usually support 
up to several hundred users. 

Broadband transmission allows mul- 
tiple simultaneous signals on the line. 
Coaxial and fiberoptic cables are the 
most suitable media for this type of 

"Baseband systems can 

usually support up to 

several hundred users. " 



transmission. Broadband systems can 
handle thousands of users, and support 
audio and video signals. However, the 
initial costs of bidirectional signal 
amplifiers and the expense of main- 
tenance are great. 

Two LAN communication protocols 
are common: CSMA/CD and token 
passing. With the Carrier Sense Multi- 
ple Access/Collision Detection (CSMA/ 
CD) methods, each unit that needs to 
transmit first checks to see if any mes- 
sage is being distributed. If a message is 
present, the unit waits until the line is 
clear. 



All units have the capability of de- 
tecting transmission collision (the trans- 
mission of messages over the line by two 
or more units at the same time). If a col- 
lision occurs, all units pause for a pre- 
determined amount of time, then each 
unit waits an additional, randomly deter- 
mined interval before transmitting. 

In the token passing protocols, each 
unit assumes the role of master con- 
troller, transmits if necessary, then 
passes control to the next unit. Figura- 
tively, a token passes from the current 
master unit to the one that will assume 
the role of master unit. When all units 
have had a chance to transmit, the pro- 
cess begins again. 

ARCNET 

ARCNET is a token passing local- 
area network system in which each node 
(ARCNET interface and computer) has 
a unique address and shares control of 
the system. The node that currently con- 
trols the system is called the master node. 

The master node sends information, 
then passes control to the node with the 
next higher address. If that node does 
not accept the attempt to pass control, 
the master node checks for activity. If 
activity is present, the master node re- 
linquishes control; otherwise it waits, 
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Nationally Acclaimed Programs for the 
TRS-80 Computers 

Now from the authors of SUPER UTILITY+ 

a complete line of software to increase the use and 
capabilities of your system. 

While SUPER UTILITY+ won recent honors as 
Utility Program of the year by the 200,000 readers 
of 80 Micro, the quality and consistency carries 
through the complete Powersoft line. 

Professionally written and completely docu- 
mented, Powersoft programs are accepted as 
industry standards among TRS-80 enthusiasts. 

SUffcK UTILITY PUS 74.95 P«tMrl*All.+ 150.00 



SCMPUIX 39.95 

TOOLBOX FOR LOOS 89.95 

MASTER MECHANIC SET FOR LOOS . 39.95 

BASIC/S COMPILER SYSTEM 49.95 

MAKE/80 49.95 

SUrERMOIf XFf.H SYSTEM 700.00 

D0SPLUS II 250.00 



PowsrOBAI* 39.95 

PtwirDOT 49.9S 

PovirORWEII 29.95 

PurirTERM 29.95 

INSIDE SU+ 19.95 

SU+ TECH MANUAL 14.95 

SU+ SPECIAL EDITION 500.00 



BOOT UP WITH POWERSOFT... 
THE WORLD'S MOST POWERFUL SOFTWARE VENDOR! 

WE SUPPORT LDOS' BUY ANY PRODUCT AND 
GET LDOS FOR $99! 

SEND FOR OUR COMPLETE CATALOG TODAY' 

DEALER INQUIRIES INVITED 

AVAILABLE THROUGH SELECTED DEALERS EVERYWHERE 

1 1 500 Stemmons Fwy. 

Suite 125 

'306 Dallas, Texas 75229 

PRODUCTS FROM BREEZE/QSD. INC. In,0: < 214 > 4 84-2976 

Orders Only 800-527-7432 



HAVE THEY EVER ASKED 
Why You Bought A Computer? 

— INFO-SCAN WILL SHOW THEM WHY — 

Combines the Features of a Word Processor, Data Base 
Manager, and Information Retrieval and Display Facility. 

Instantly recall and display information of any sort: sales 
leads; inventories; product data & prices; daily appoint- 
ments & reminders; names & addresses; diaries; lesson 
plans & student lists; recipes; index magazine articles, 
music and program libraries. You create information files 
using a simple word-processing like entry method. A short 
key describes the record. Scan the keys on the screen, select 
one, press a button and the full record displays (or prints). 
Add, delete, change records in a snap. Written in machine 
language. Fully self-contained. Simple to operate, you don't 
need a Ph.D to use it! Mo programming or other technical 
knowledge required. 15 page manual. 
INFOSCAN Model l/lll 48K 1 Drive $49.95 

— OR SHOW THEM STUNNING GRAPHICS --- 

Add the professional touch to your programs. Create com- 
plex graphic and text screens effortlessly. Over 30 com- 
mands for screen manipulation. Built in HELP' facility. 
Enter 1 - 1/2 inch graphic letters with a single keystroke (48K 
required). Save completed screens as a BASIC subroutine, 
merge with your programs. Full screen displays instantly 
from your program with a single GOSCJB. Do animation. 
Load existing screens to make changes. Scores of useful 
features. Written in Machine language. 26 page manual. 
SCREEN ARTIST II Model l/lll 32K 1 Drive $32.95 

Call or write for full brochure, in- 
cluding many educational prod- 
ucts. Full money back guarantee 
VISA, Mastercard, COD wel- 
come. Add $2.50 for shipping. 
Ct. residents add 7.5% sales tax. t-CM TCf S 182 
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Post Office Box 268 New Hartford, CT. 06057 (203) 482-3689 
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Micros: The New Supertoy 



Time was when you could pull any computer magazine 
off the rack and it would suit your purpose. 

Not anymore. Today, you need a magazine that is tailor- 
made for your system, a magazine designed to fit your com- 
puting needs, a magazine that lets you move freely to ex- 
pand your knowledge of computing and to use your com- 
puter to its fullest capacity. 

For users of Radio Shack computers, that magazine is 80 
MICRO. No other computer magazine in the world pro- 
vides more useful information on the TRS-80* than 80 MI- 
CRO. In 1982 alone, 80 MICRO published over 5000 pages 
containing informative articles; useable programs and 
helpful tips; hardware, software, and book reviews; new 
product announcements; science, business, and home-use 
applications; Color Computer* information; tutorials; util- 
ities; and games. 

80 MICRO is the largest single source of information for 
your TRS-80. No one else even comes close— not even 
Radio Shack. Because 80 MICRO is not affiliated with the 
manufacturer, you get unbiased, independent reporting on 
the latest happenings and innovations. 

If you use a TRS-80 you'll want to subscribe to 80 
MICRO. A one year subscription is only $35.97—25% off 
the newsstand price. 

•TRS-80 and TRS-80 Color Computer are trademarks of Radio Shack, a division oj Tandy Corp. 



Send in the attached card today, use the coupon below 

or call toll free 1-800-258-5473. 

Stop buying those ill-fitting computer magazines off the 
rack. Subscribe to 80 MICRO and get the magazine that's 
tailor-made for you. 

i— — — — ■■— — — — — — — —■■——■ — — — - 

I want the magazine that's tailor-made for me. 
Send me 12 issues of 80 MICRO for only $35.97 * 

□ CHECK DMC DVISA DAE □ BILL ME 

CARD# EXP. DATE 



SIGNATURE, 
NAME . 



ADDRESS 
CITY 



STATE. 



.ZIP. 



80 MICRO Subscription Department 338 B8 

PO Box 981, Farmingdale, NY 11737 

* This price voids all previous offers. 

Canada and Mexico $44.97, 1 year only, US funds. Foreign Surface $54.97, 1 year only, 
US funds drawn on US bank. Foreign air, please inquire. Please allow 6-8 weeks for 

ill livery. 
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then repeats the attempt to pass control 
to the node with the next higher 
address. 

Each node remembers the address of 
the node to which it last passed control. 
This avoids polling of nonexistent 
nodes and enhances the speed of the 
system. The master node enquires 
whether the receiving node has a free 
buffer to hold the packet of informa- 
tion to be transmitted before it actually 
sends the packet. 

This avoids sending information to a 
node that cannot accept the message. If 
the receiving node is not able to receive, 
the master node passes control to the 
next node and repeats the attempt to 
send the message when it again gains 
control of the system. 

ARCNET Hardware 

ARCNET uses baseband transmis- 
sion hardware that transmits over RG62 
coaxial cable at 2.5 megabaud. Nodes 
are attached as collections of stars: 
Coaxial cable connects each node to an 
ARCNET hub. Coaxial cable can con- 
nect each hub in turn to other hubs. 

The two types of hubs are passive and 
active. A passive hub is a connector at- 
tached to the coaxial cables from up to 
four nodes. It requires no power and 



sells for $79 at Radio Shack (a high 
price for a small 2 by 2 by 4-inch con- 
nector box). You cannot attach passive 
hubs to other passive hubs, and the 
combined lengths of the longest two 
coaxial cables attached to a hub must be 
less than 200 feet. 



'. . . the maximum distance 
between the two nodes 
farthest apart should be 
four or less miles. " 



Active hubs have separate power sup- 
plies and transceivers to condition the 
ARCNET signal for improved reliabil- 
ity. They sell for $799 at Radio Shack. 
You can attach up to eight (16 as an op- 
tion on Datapoint hubs) nodes to an ac- 
tive hub and use up to 2,000 feet of 
coaxial cable between an active hub and 
a directly connected node. 

To increase the number of nodes in a 
system or increase the distance the net- 
work covers, you can connect two ac- 
tive hubs with up to 2,000 feet of cable. 
All nodes must be close enough so the 
maximum time delay between a message 



being sent and received is 31 microsec- 
onds (^s). In practice, the maximum dis- 
tance between the two nodes farthest 
apart should be four or less miles. You 
cannot attach passive hubs to active hubs. 

The ARCNET interface between the 
coaxial cable and processor is called a 
RIM (Resource Interface Module) or 
ARCNET board. It consists of a paral- 
lel interface to the processor, a variable 
number of 256-byte memory buffers, a 
controller, a transmitter, a receiver, and 
a line interface. You can make data 
transfers to or from the processor at any 
time, whether or not the transmitter 
is busy. 

The RIM handles all ARCNET pro- 
tocol procedures. You do not need to 
involve the attached processor in the 
details of token passing or data transfer 
among RIMs. Each RIM in the network 
has a unique address ranging from 1 
to 255. 

ARCNET Protocol 

ARCNET is a serial, asynchronous 
system. A 200 nanosecond (ns) dipulse 
(a 100 ns positive pulse followed by a 
100 ns negative pulse) is transmitted as a 
mark, and no pulse is transmitted as a 
space. Information transmits through 
1 1 bit units at 2.5 megabaud. 



CIRCLE COMPUTERS ^ 

15% DISCOUNT ON MOD l/lll SOFTWARE 
FROM BIG FIVE & SOFT SECTOR MARKETING 

DISK DRIVES WITH POWER SUPPLIES AND CASES 

TANDON TM100-1 40TRK SINGLE SIDE 199 00 

TANDON TM100-2 40TRK DOUBLE SIDE 279 00 

TANDON TM100-3 80TRK SINGLE SIDE 299 00 

TANDON TM100-4 80TRK DOUBLE SIDE 379 00 

TEAC DUAL SIDED 40TRK 259 00 

REMEX 40TRK SINGLE SIDED 299 00 

WE ALSO HAVE 2 DRIVES IN A DOUBLE CASE CALL FOR PRICES 
BARE DISK DRIVES 

TANDON TM 100-1 40TRK SINGLE SIDE 16900 

TANDON TM100-2 40TRK DOUBLE SIDE 24900 

TANDON TM100-3 80TRK SINGLE SIDE 249 00 

TANDON TM1 00-4 80TRK DOUBLE SIDE 339 00 

TEAC DUAL SIDED 40TRK 22000 

REMEX 40TRK " 2 6000 

HARD DRIVES 

5 MEGABYTE HARD DRIVE (FORMATTED) 1395 00 

10 MEGABYTE HARD DRIVE (FORMATTED) 1695 00 

DMA OPTION 25000 

MODEL 3 COMPUTERS AND DRIVE KITS 

MODEL 3 INTERNAL DRIVE KIT/NO DRIVES 254 00 

MODEL 3 INTERNAL DRIVE KIT/1 DRIVE 399 00 

MODEL 3 INTERNAL DRIVE KIT/2 DRIVES 574 00 

MODEL 3 LEVEL 14K 649 00 

MODEL 3 LEVEL 2 16K 79900 

MODEL 3 LEVEL 2 48K .' 850 00 

MODEL 3 LEVEL 2 48K 1 DISK DRIVE 1395 00 

MODEL 3 LEVEL 2 48K 2 DISK DRIVES 1695 00 

CABLES, CASES AND POWER SUPPLIES 

2 DRIVE CABLES 25 00 

4 DRIVE CABLES 3500 

EXTENDER CABLES 13 00 

SINGLE POWER SUPPLY AND CASE 4995 

DOUBLE POWER SUPPLY AND CASE 7995 

4116 200NS MEMORY CHIPS 8/16 00 

LOWERCASE MOD FOR MODEL 1 n 00 

REVERSE VIDEO MOD FOR MODEL 1 ' 16 00 

ALL HARDWARE ITEMS ARE WARRANTED FOR 120 DAYS 

MON-FRI 8AM-5PM 

SAT-SUN 9 AM-7 PM 

SEND FOR FREE HARDWARE AND SOFTWARE CATALOG 

CIRCLE COMPUTERS P.O. BOX 108 LOWELL, MA 01853(617)453-4953 

CERTIFIED CK/MO/COD ACCEPTED. SHIPPING CHARGES ARE ACTUAL 

PERSONAL CHECKS WILL DELAY ORDER UP TO 2 WEEKS 



FLURP- 



Mainframe Accuracy with a Micro 

If you need a multilinear regresssion package with the accuracy of a 
number-cruncher, you need FLURP (Flynn Laboratory's Ultimate 
Regression Package). FLURP has easy data input, disk file archiving, 
and outputs a complete set of statistics. These include;mulitcollinear- 
ity diagnostics, hypothesis testing, an analysis and plot of the 
residuals, and more. FLURP is available for 8" CP/M (requires 
MBASIC), TRS-80 I and III, and soon for the IBM PC. 

□ My $99.95 is enclosed rush me FLURP (add $5.00 for foreign 
shipping) 

□ Enclosed is $29.95 for the manual (credit to the purchase of 
FLURP) 

□ Bill company (include purchase order) 

□ Charge my fj Visa □ MasterCard 



Card Number 
Name 

Address 

City 



Expires^. 



State . 



Zip 



Signature (credit card orders) 

Mail to: LEDS Publishing Co., Inc., PO Box 12847, Research Triangle 
Park, NC 27709 (919) 477-3690. 

-155 
Trademarks. IBM-IBM Corp. FLURP-LEDS Publishing Co.; CP/M-Digita' Research. 

TRS-80-Tandy. MBASIC-Microsof! 
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The line idles with no signal present. 
A transmission starts with an alert burst 
of six unit-intervals of mark. Data is 
transmitted as 8 bit characters preceded 
by two unit-intervals of mark and one 
unit-interval of space. The five types of 
transmission include: 

• Invitations To Transmit (ITT) is an 
alert burst followed by one EOT (end of 
transmission) and two DID (destination 
identification) characters. This trans- 
mission passes control of the line from 
one unit to another. 

• Free buffer enquiry (FBE) is one alert 
burst followed by one ENQ (enquiry) 
and two DID characters. It determines 
whether a unit is ready to receive a 
transmission. 

• Packet is one alert burst followed by 
one SOH (start of header), one SID 
(source identification), two DIDs, the 
character Count (number of characters 
in packet: 1-253) and two CRCs 
(cyclical redundancy checks). It con- 
tains data transmitted from one node to 
another. 

• Acknowledgement is one alert burst 
followed by one ACK (acknowledge- 
ment). It acknowledges reception of 
packet or free buffer enquiry. 

• Negative Acknowledgement is one 
alert burst followed by one NAK (neg- 



ative acknowledgement) character. 
When you first turn on ARCNET, 

system reconfiguration occurs. When 
any node determines that no token is 
circulating (the line is idle for 78 /js), it 
begins a time-out sequence equal to 146 
x (255 - ID) p& where ID is the iden- 
tification number of the unit (1-255). 
When the time-out is complete, the unit 
begins to send invitations to transmit 
unless there is activity on the line. 

The node with the highest ID begins 
sending invitations to transmit first. 
After sending an invitation to transmit, 
the node waits for the receiving node to 
respond with an FBE, packet, or ITT. 
If there is no line activity for 78 lis, the 
node increments NID by one and sends 
an ITT. 

When a new node joins an active net- 
work, it is bypassed repeatedly (since 
each active node remembers the next 
highest ID and passes the token to that 
node), without the following network 
entering protocol. The new node (or a 
node that has not received the token for 
more than 840 ms) enters the network 
by destroying the token and causing re- 
configuration. A reconfiguration burst 
(consisting of eight marks and one 
space repeated 765 times) is longer than 
any other transmission and interface 



with the master node's invitation to 

transmit. Since the reconfiguration 
burst is activity on the line, the master 
node relinquishes control. The line then 
remains quiet for 78 lis before system re- 
configuration occurs. 

When a node leaves the system, there 
is no need for network reconfiguration. 
The node that had been passing the 
token to the now silent node does not 
receive a response to its ITT, so it in- 
crements NID and sends another ITT. 
This process continues until the master 
node's NID corresponds to the ID of 
the next highest node. 

Summary 

ARCNET has been an efficient token 
passing local-area network in over five 
years of use in Datapoint systems. Its 
application to TRS-80 based networks 
is straightforward and ARCNET pro- 
vides a reliable network at a relatively 
low cost. Extension to 68000 based pro- 
cessors such as the Model 16 should 
help Tandy keep ahead of the competi- 
tion in the business microcomputer 
market. ■ 

Contact Joseph Trojak at Johns 
Hopkins Hospital, 600 North Wolfe 
St., Baltimore, MD 21205. 




LNW SEMI-KITS can save you hundreds of dollars. By obtaining your own parts at the lowest 

possible cost and assembling the LNW SEMI-KITS, you can have the most highly acclaimed 

microcomputer in the industry- the LNW80. The LNW SEMI-KITS are affordable modules. You 

can start with a modest cassette system and expand to a full 4Mhz TRS-80 compatible system with 

5 or 8 inch double density disks and color at any time. 

A. LNW80 CPU - Made of high quality FR4 glass epoxy double sided circuit material, with plated- 

through holes and gold edge connector. It is fully solder-masked and silk screened. Here are just 

some of the outstanding features you will have when your . LNW80 CPU board is fully assembled: 

• 1 6K RAM • Color and black and white video • 480 x 1 92 high resolution graphics • 64 and 80 

column video • 4 MhzZ80ACPU • Upper and lowercase display • 500 and 1 000 baud cassette 

I/0-S89.95 

B SYSTEMEXPANSION-Expandthe LNW80 computer board. TRS-80and PMC-80 computer 

with the following features: • 32K memory • Serial RS232C and 20Ma port • Real time clock • 

Parallel printer port • 5 inch single density disk controller • Expansion bus(screen printer port) • 

Onboard power supply • Solder-masked and silk screened legend- $69. 95 (tin plated contacts)- 

$84.95 (gold plated contacts) 

C KEYBOARD- 74 key expanded professional keyboard- includes 1 2 key numeric keypad. Fully 

assembled and tested. - $99.95 

D. COMPUTER CASE- This stylish instrument-quality solid steel case and hardware kit gives your 
LNW80 that professional factory-built appearance. - $84.95 Add S12.00 for shipping. 

E. SYSTEM EXPANSION CASE- Thisstylish instrument-quality solid steel case and hardware kit 
gives your SYSTEM EXPANSION interface that professional factory-built appearance. - $59.95 
Add S10.00 for shipping. 

F. LNW80 CPU - HARD TO FIND PARTS KIT- $82.00 

G. LNW80 VIDEO- HARD TO FIND PARTS KIT- $31 .00 

H. SYSTEM EXPANSION - HARD TO FIND PARTS KIT - $27.50 
I. LEVEL II ROM set. (6 chip set) - $1 20.00 

VISA and MasterCard accepted. Add $3.00 for shipping plus $1.00 for each additional item. All 
shipmentsvia UPS surface. Add $2.00 for U.S. Mail. Shipments outside continental U.S.: fundsmust 
be U.S. dollars. Sufficient shipping costs must be included with payment. 

ORDERS & INFORMATION - (714) 544-5744 
SERVICE - (71 4) 641 -8850 



LNW Research Corp. 

2620 WALNUT Tustin, CA. 92680 



■ See List of Advertisers on Page 323 
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Best-By Test! 
The 



ii 







fi«Mm ! An^,5!?A ensit v controller for Model I with higher probability of data recovery than with any othfp 

R£mc L ^ D ! N i? ITY C0NTR0LLER 0N THE MA RKET TODAY! The "DDC" from Aerocomp No neec I to worry about the oro 

blems that keep cropping up on existing products. AEROCOMP'S new analog design phase lock loop data seSarSfor 

R?n T^ d , er ca , ptur ^ ? ndow than tne digital tvpes currently on the market This allows high re^ 

ing The finest resolution available with digital circuitry is 125 ns (nano seconds) The "DDC" analog crcuit allows in- 

finately variable tuning. Attack and settling times are optimum for 5-1/4 inch diskettes 

;«i«r U -«H ? /« s ? ntlv °. n th ^ market use a wr 'te precompensation circuit that is very "sloppy Board to board 

tolerance is extremely wide - in the order of +■ 100 ns. The "DDC" is accurate to within +20 ns 

The bottom line is state of the art reliability! " - 

• Test Proven 

Te n st i w -.re ^cjucted on AEROCOMP'S "DDC", Percom s "Doubler A"* and "Doubler II"* and lnws "LNDoubler"** usina 
?cS?mL° S m C h T , R o S ?? n- . M «2 del '■ Level 2 ' 48 K with TRS80 E ><Pansion Interface and a Percom tfdioo * disk drive 
(Siemens Model 82). Diskette was Memorex 3401. The test diskette chosen was a well used piece of media to deter- 

2 1 Jnfncort orniance under adverse conditions. The various double density adapters were installed sequentially in the 
expansion interface. 

The test consisted of formatting 40 tracks on the diskette and writing a 6DB6 data pattern on all tracks The 6DB6 
pattern was chosen because it is recommended as a "worst case" test by manufacturers of drives and diskettes An 
attempt was then made to read each sector on the disk once - no retrys. Operating system was Newdos/80 Version 
1.0 with Double zap, version 2.0. Unreadable sectors were totalled and recorded. The test was run ten times with 
each double density controller and the data averaged. Test results are shown in the table. 



• Features 



TRS80 Model I owners who are ready for reliable double 
density operation will get (1) 80% more storage per 
diskette, (2) single and double density data separation 
with far fewer disk I/O errors, (3) single density com- 
patibility and (4) simple plug-in installation. Compatible 
with all existing double density software. 

* Value $119.95 

for the Best DD Controller on the market. 



• TEST RESULTS • 



MFR & PRODUCT 


SECTORS LOCKED OUTiavo 


AEROCOMP "DDC" 





PERCOM "DOUBLER II" 


18 


PERCOM "DOUBLER A" 


250 


LNW "LNDOUBLER" 


202 



SPRING SPECIAL 
"DDC" and LDOS 



$169.95 



$ 149.95 for -DDC" with DOSPLUS 3. 3D (limited quar 

Data Separators 

The advances that make the "DDC" great are incorporated in the new AEROCOMP Single 
and Double Density Data Separator ("DDS"). 

• "DDS" $49.95 

(Use 1791 chip from your dd Con- 
troller) 

"W L/L/O with disk controller 

chip included $79.95 

• Disk controller 
chip $34.95 

(Shipping $2.00 Cont. US - see opposite 
page for details) 



Note: test results available upon written request. All tests conducted prior to 8-25-81 

Aerocomp's 14 day money back guarantee applies to hardware only. 

Specials will be prorated. Shipping $2.00 in Cont. US. See opposite page for details. 



Density Data Separator ("SDS") 



* Has your original manufac- 
turer left you holding the bag? 

If you already own a Percom -'Doubler A". "Doubler II" or LNW 
■LNDoubler" or Superbrain, the AEROCOMP "DDS" will make it right 
Look at the test results: 



MFR. & PRODUCT 


SECTORS LOCKED OUT 


WITHOUT "DDS" 


WITH "DDS" 


PERCOM "DOUBLER II" 


18 


1 


PERCOM "DOUBLER A" 


250 





LNW "LNDOUBLER" 


202 






Note: Same test procedures as "DDC 
Trademark of Percom Data Co 

* Trademark of LNW 

* * Trademark of Tandy Corporation 
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Plugs directly into your existing 
Double Density Controller. 



Do you need a 
Single Density Data 
Separator? 

The internal data separator in the 
WD1771 chip (R/s Expansion interface) 
is NOT recommended Dy WD for 
reliable data transfer. Do you have any 
of these problems: Lost data, tracks 
locked out, CRC errors, disk retry? you 
NEED ONE! 

* "SDS" $29.95 

(For Mod. I; shipping $2.00) 



See opposite 
paget»m 





RIVES 



PACESETTERS 

Aerocomp leads the way to the BEST value in 
disk drives on the market Quality, performance, 
reliability, warranty, service plus free trial - 
that's what you get from the leader. 
AEROCOMP! 

BEST FEATURES 



Fast 5 ms. track-track access 

Single or double density 

Easy entry door 

"Flippy" feature allows read-write to the 

back of the diskette to cut media cost in 

half! 

Disk ejector (MPI) 

External drive cable connection 

(no need to remove the cover to hook up 

the cable) 



NEW! 




SINGLE & 



as low as 



COMPLETE DRIVES 

TRS80 Mod. I & III, IBM PC & Tl 99/4A. Power 
supply & enclosure. Specify silver or almond M PI or 
Tandon. 5.25 in. 

• 40 track single side Si99 

• 40 track SS "Flippy $239 

• 40 track Dual Head $279 

• 80 track SS $299 

• 80 track SS "Flippy" $329 

• 80 track Dual Head $379 

• APPLE compatible w/cable (Shugart). . . $279 

• APPLE compatible disk controller $89 

Shipping & Handling S5.00 Per Drive 

BARE DRIVES 

Internal drives for TRS80 Mod. Ill, IBM PC, Tl 
99/4A, 5.25 in. (controller required) 

• 40 track Single Side $169 

• 40 track Dual Head $249 

• 80 track SS $269 

• 80 track Dual Head $339 

(add $30 for "Flippy modification) 

• 8 inch Single Side Thinline $399 

• 8 inch Dual Head Thinline $499 

Shipping & Handling $4.00 Per Drive 

MODEL III DRIVES 

Convert your cassette Mod. Ill to disk. Complete 
internal drive kits with 40 track SS drives, disk 
controller, power supply, mounting towers, hard- 
ware & cables. 

• Drive Kit Only (no drives) $1 99 

• One Drive System Kit $369 

• Two Drive System Kit $539 

Shipping & Handling S8.00 Per System 



HALF-HIGH DRIVES 

Two complete drives in the space of one. 
Complete with power supply & enclosure. 

• Two 40 track SS $389 

• Two 40 track Dual Head .... $539 

• Two 80 track SS $419 

• Two 80 track Dual Head .... $579 



MODEL I STARTER PACKAGE 

One 40 track SS drive, 2-drive cable. 
TRSDOS 2.3 disk & manual, freight & 
insurance. 



$249 




MISCELLANEOUS GOODIES 

• TRSDOS 2.3 disk & manual $20 

• LDOSfMod. I or III) $119 

• NEWDOS/80, 2.0 (Mod. I or III) $129 

• DOSPLUS3.5 $129 

• Diskettes (1 in library box) $23 

• MX80 ribbons $9 

• 5.25" Drive Power Supply & case $59 

• 2-Drive Cable $24 

• 4-Drive Cable $34 

• Extender Cable $13 

Shippings Handling $2.00 



TRS80 Color Computer Drives 

First Drive $399 

Includes controller, cable (2-D) 
and Book 

Additional Drives $1 99 



FREE TRIAL OFFER 

Use your AEROCOMP drive for up to 1 4 days. If you 
are not satisfied for ANY REASON (except misuse 
or improper handling), return in the original shipping 
container for a full purchase price refund. Applies to 
hardware only. Sorry, we cannot refund on software. 
We have confidence in our products and we know 
you will be satisfied. 

WARRANTY 

We offer a six months warranty on parts and labor 
against defects in materials and workmanship. In 
the evenf service becomes necessary for any 
reason, our service department is fast friendly and 
cooperative. Our goal is 48 hour turnaround on all 
warranty or repair drives! 

100% TESTED 

AEROCOMP disk drives are 100% subjected to 
burn-in and bench test We even enclose a copy of 
the test check list, signed by the test technician, 
with each drive. AEROCOMP means reliability! 

ORDER NOW! 

Order by mail or call TOtt FREE TO THE 
NUMBERS BELOW. Please note toll free lines will 
accept orders only. We accept VISA or MASTER- 
CARD. Be sure to include card number and expiration 
date. We will not charge your card until the day we 
ship. Order by mail with credit card or send check or 
money order. Please allow 2 weeks for personal 
checks to clear our bank Order COD. No deposit 
required but all COD's will arrive cash, certified 
check or money order only. We'll send a card 
showing the exact COD amount before your 
shipment arrives. Shipping is not included in the 
prices shown. Texas residents add 5% sales tax. 
NEXT DAY SHIPMENT on all in stock items. 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7888, OPERATOR 24 

FOR VISA/MASTERCHARGE/C.O.D. ORDERS 

California dial (800) 852-7777, Operator 24. Alaska 
and Hawaii dial (800) 824-7919. Operator 24. 
TOLL FREE LINES WILL ACCEPT ORDERS ONLYI 

For Applications and Technical information, call 
(214) 337-4346 or drop us a card. 



Dealer inquiries invited 



AIRGCGIilP 

Redbird Airport, Bldg. 8 



P.O. Box 24829 
Dallas, TX 75224 



S 82 



sSee List of Advertisers on Page 323 
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for the Model 100 



Five 




Foxfighter. 



by Brad Dixon 

80 Micro Technical Editor 

The Model 100 is fast proving itself a powerful computer 
with great potential in business and home environments. 
However, there are times when the drudgery of computing 
must be replaced with some fast-paced entertainment. Fox- 
fighter (Program Listing 1) is a Model 100 game that uses a 
meager 3K of memory, yet provides plenty of action. 

At the game's start you're given the option of receiving 
flight instructions or moving directly to your mission. The in- 
structions are provided in lines 390-440. As pilot of a Fox- 
fighter aircraft, your mission is to clear the sky of deadly air- 
mines over an enemy city. To operate the Foxfighter, use the 
O key to move your aircraft up, the P key to move down, and 
the space bar to Fire the fighter's laser cannon. An INKEY 
function in line 80 scans the keyboard for these flight instruc- 
tions. Upward flight is performed in line 90 while downward 
flight and laser fire are controlled in lines 110 and 190, respec- 
tively. 

Foxfighter's position is guided by the PRINT® values pro- 
duced by the loop in line 70. Once in flight, the fighter moves 
to the beginning of the next line on the screen when it reaches 
the end of the previous line. When the fighter reaches number 
198 in the loop, it is recycled back to the top left corner of the 
screen. 

If you have little interest in guiding the fighter, but would 
rather obtain a high score, this feature pilots the craft while 
you sit back and fire at the appropriate time. 

This feature produces an interesting characteristic during 
laser fire called "wrap around, zap around." If you fire the 
laser cannon within eight spaces of the end of a row, part of 
the laser fire wraps around to the beginning of the next row. In 
effect, you are able to shoot around corners. 

Another feature makes the game even more challenging. If 
an airmine is brushed by the nose or tail of your Foxfighter, 
the airmine becomes invisible on the screen. Don't let this fool 



The Key Box 

Foxfighter and Intel require 4K RAM, The Year in 
Review needs 8K RAM, and Subterra and Renumber 
100 take 24K RAM. 



Program Listing 1. Foxfighter. 

10 DIM X(6) :V=3:SCR=0:CLS:PRINT@92,"<< 
FOXFIGHTER >>": PRINT: PRINT: INPUT"DO YOU 
NEED INSTRUCTIONS (Y OR N )";A$:IF A$ = "Y 
"THEN390 ELSE20 

20 DATA 45,79,115,95,102,124,19,83,58,23 
,150,128,51,73,140,113,102,31,16,118,88, 
67,81,75,100,12,68,95,64,28,116,147,15 9, 
48,95,114,149,140,119,57,107,30 
30 FORM=lT06:READX(M) : IFX (M) =30THENRESTO 
RE20ELSENEXT 
40 P=0:CLS 
50 GOSUB220 

60 Z$=CHR$ ( 237) +CHR$ ( 232) +CHR$ ( 254) 
70 FORB=7T0198:FORM=1T06:IFB<198ANDBOX( 
M)THENNEXTELSEIFB=198THEN180ELSEIFB=X(M) 
THEN380 

80 C$=INKEY$: IFC$=""THEN120ELSEIFC$=CHR$ 
(32)THENl90ELSEIFC$="O n THEN90ELSEIFC$="P 
"THEN110ELSE120 

90 PRINT@(B-1) ," ":B=B-3 9:IFB<0THENB=B 
+40ELSE120 
100 GOTO120 

110 PRINT@(B-1) , n n :B=B+41:IFB>198THEN 
B=B-40 

120 PRINT@B,Z$ 
130 S0UND12538,1 
140 IFB=0THEN170ELSEC=B-1 

15 IFSCR=500ORSCR=10 00ORSCR=20 00THENPRI 
NT@0,V+1 
160 PRINT@C," " 
17 NEXTB 
180 PRINT@(B-1) ," ":GOTO70 

190 PRINT@(B-1) ,Z$:PRINT@(B+2) , " 

n :FORT=lT08:SOUNDl479,l:NEXT:PRINT@(B+2) 

n n 

l 

200 FORM=lT06:IFX(M) >(B+2) ANDX(M) <(B+10) 

THEN370ELSENEXT 

210 GOTO140 

220 PRINT@200,CHR$(237) : PRINT@203 ,CHR$ ( 2 

39) :PRINT@208,CHR$(234)+CHR$(233)+CHR$(2 

28)+CHR$(233)+CHR$(228) 

230 PRINT@216,CHR$(234) : PRINT@225 ,CHR$ ( 2 

32) +CHR$ (233) +CHR$ (23 8) +CHR$ (238) +CHR$ ( 2 

39)+CHR$(239) 

240 PRINT@233,CHR$(233)+CHR$(238) :PRINT@ 

238,CHR$(237) 

250 PRINT@240,CHR$(239) : PRINT@242 ,CHR$ ( 2 

27)+CHR$(23 9)+CHR$(227) : PRINT§248 ,CHR$ ( 2 

3 9)+CHR$(23 9)+CHR$(23 9) 

260 PRINT@251,CHR$(237)+CHR$(238) :PRINT@ 

Listing 1 continues 



200 • 80 Micro, August 1983 






you. The airmine is still there and will destroy you if you crash 
into it. Airmines also disappear if the sensor field around each 
is disturbed by laser fire aimed at nearby airmines. 

Crashes and airmine hits provide similar explosions with 
flashing asterisks and sounds. In each case, the scoreboard is 
updated in the upper left corner of the screen. When you ex- 
haust all your fighters, the screen clears and your final score is 
posted. You can play again or exit the program. Each airmine 
is worth 10 points and additional fighters are awarded at 500, 
1000, and 2000 points. 

Enhancements 

The cityscape in the program is more for visual effect than 
for increasing the game's difficulty. Crashes into buildings are 



not difficult to add, but in Basic the checks for crashes might 
inhibit fast game play. Moving targets or anti-aircraft missiles 
from the surface would also add to the excitement of the 
game, but, again, the limitations of Basic programming make 
such refinements impractical. 

The available RAM in the Model 100 limits the level of 
game modification. One nice addition that doesn't sacrifice 
speed is incorporating a time limit on the game so that a player 
has to shoot all the airmines within a specified time. If this is 
not accomplished, points are deducted from the player's 
score. 

I think you'll find Foxfighter a fast and challenging game 
that's a nice alternative to the Model 100's more serious appli- 
cations. ■ 



/ \stinti I continued 

254 f CHR$(238) : PRINT@256 , CHR$ ( 239) :PRINT@ 

260,CHR$(23 8)+CHR$(23 9) 

270 PRINT@262,CHR$(237)+CHR$(232) :PRINT@ 

26 5,CHR$(239)+CHR$(239)+CHR$(23 9)+CHR$(2 

3 9)+CHR$(23 9)+CHR$(239) 

280 PRINT@271 , CHR$ ( 232) +CHR$ ( 23 8) +CHR$ ( 2 

39) +CHR$ (239) +CHR$ (23 2) +CHR$ (232) +CHR$ ( 2 

32)+CHR$(239) 

290 PRINT@280 , CHR$ ( 23 9) +CHR$ ( 239) +CHR$ ( 2 

3 9) +CHR$ (239) +CHR$ (23 9) +CHR$ (239) +CHR$ ( 2 

39)+CHR$(239)+CHR$(239) ;: 

300 PRINT@288,CHR$(239)+CHR$(239)+CHR$(2 

39) +CHR$ ( 239) +CHR$ (239) +CHR$ ( 23 9) +CHR$ ( 2 

39)+CHR$(239)+CHR$(239) ;: 

310 PRINT@297,CHR$(239)+CHR$(239)+CHR$(2 

39) +CHR$ (23 9) +CHR$ ( 23 9) +CHR$ (239) +CHR$ ( 2 

39)+CHR$(239)+CHR$(239) ; 

320 PRINT@306,CHR$(239)+CHR$(239)+CHR$(2 

39)+CHR$(239)+CHR$(239)+CHR$(23 9)+CHR$(2 

3 9)+CHR$(239)+CHR$(23 9) ; 

330 PRINT@315 , CHR$ (239) +CHR$ ( 23 9) +CHR$ (2 

39)+CHR$(239) ; 

340 FORM=lT06:PRINT@X(M) ,CHR$(169) :NEXT 

350 PRINT@0,V":":PRINT@3,SCR 

360 RETURN 

370 FORT=lT05:PRINT@X(M) , "*** n : SOUND9394 

,2:NEXTT:PRINT@X(M) ," " :SCR=SCR+10 : PRI 

NT@3 ,SCR:P=P+1 : IFP=6THEN30ELSEX (M) =290 :G 

OTO140 

380 F0RT=1T05: PRINTS (B-l) ,"***": SOUND995 

2 , 2 :NEXTT: V=V-1 : PRINT@0 , V: IFV=0THEN450EL 

SE30 

3 90 CLS:PRINT@52," FOXFIGHTER": PRINT" YOUR 

MISSION IS TO DESTROY THE AIRMINE" : PRINT 

"FIELDS ABOVE THE ENEMY CAPITOL." 

400 PRINT"YOUR FIGHTERS ARE GUIDED USING 

THE 'O 1 KEY TO GO UP AND THE 'P' KEY TO 

GO DOWN. THE SPACEBAR FIRES THE FIGHTER'S 

LASER CANNON." 

410 FORT=1TO4000:NEXTT 

420 CLS:PRINT@52,"*** WARNING ***":PRINT 

:PRINT"IF LASER FIRE OR PART OF YOUR FIG 

HTER":PRINT"BRUSHES THE SENSOR FIELD ARO 

UND" 

430 PRINT" EACH AIRMINE, IT WILL BECOME I 

NVISIBLE YET REMAINS ARMED. GOOD LUCK!" 

440 FORT=1TO4000:NEXT:GOTO20 
450 CLS:PRINT@82,"YOU HAVE RUN OUT OF FI 
GHTERS! l":PRINT@122,"YOUR FINAL SCORE IS 
";SCR:PRINT:V=3:SCR=0:INPUT"PLAY AGAIN ( 
Y OR N)";A$:IF A$O"Y n THENENDELSE20 





Variable Description 




V Number of Foxfighters 




SCR Score 




B Foxfighter screen position 




P Score counter 




Z$ Foxfighter graphics 




Table 1. Foxfighter variables list. 


Line 


Description 


10 


Initialization and title page 


20-30 


Data for airmine placements 


60-70 


Foxfighter setup and screen definitions 


80 130 


INKEY routine to check steering and laser fire 


150 


Check score for extra fighter 


190-200 


Firing routine and check for airmine hits 


220-350 


City graphics and scoreboard 


370 


Airmine hit routine and scoreboard update 


380 


Crash routine and fighter count update 


390-440 


Instructions for play 


450 


Final score and replay option 




Table 2. Foxfighter line descriptions. 


Intel 



Conversion by Beve Woodbury 
80 Micro Technical Editor 

"4K Intelligence," a game by William M. Lopez, (80 
Micro, March 1980, p. 55) was designed so that a computer 
would "learn" from its mistakes; when it is defeated, it 
doesn't repeat its last move again. Thus the first few games are 
easy to win, but as play continues, the computer becomes 
unbeatable. 

"4K Intelligence" is played with chess pawns on a 3- by 
3-block matrix. Pawns can move one space forward to an 
empty space, or diagonally to capture an opponent. That 
player whose pawn reaches the opposite side first, or who 
blocks his opponent from moving, wins. 

When you start the game, you are given the opportunity to 
see the game instructions. Type and enter a Y for instructions, 
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or an N to begin the game. Before the game starts, there is a 
brief pause while arrays are set up. 

You always get the first move. Move a pawn forward one 
space to a blank space, or diagonally to an occupied space to 
capture the opponent's pawn. When the screen prompts 
FROM, choose the pawn to be moved, type the pawn location 
and press the enter key. When the screen prompts TO, type the 
desired destination and press enter. If you make an invalid 
move (move forward to occupied space, move diagonally to 
unoccupied space, skip a space), the computer is unforgiving. 
You lose the game! 

The Program 

Program Listing 2 sets up four arrays. Array M contains val- 
ues for each board configuration. When a move results in a loss, 
that move is changed to zero, so that the next time the configu- 
ration comes up, the computer uses the next possible move. A 
15 appears on the display if the computer cannot make a 
move. If the computer loses in that way, it changes its 
previous move to zero. If all three possible moves become 
zero, column 2 changes to 15 so that next time around the 
previous move is changed. 

Array B contains all possible computer block configura- 
tions—those with which the computer has won by blocking all 
your possible moves. 

Array C contains the possible computer moves using the 
matrix locations. Column 1 has the FROM matrix location 
and column 2 has the TO matrix location. 

Array G contains a summary of the game matrix. The 
screen location for the pawn is in column 0, the matrix loca- 
tion of the computer pawn in column 1 , and your pawn in col- 
umn 3. A 1 indicates a pawn in that location and zero indicates 
an empty space. Column 2 contains specific values for the cor- 
responding matrix location for computer pawns, and column 
4 has the values for your pawns. 

The program occupies almost 4K and contains several REM 
statements for program clarity. If you have limited memory 
space, remove all remark lines. ■ 



Arrays 




B() 


Computer block configurations 


Q) 


Possible computer moves 


G() 


Game matrix summary 


MO 


Board configurations and possible moves 


(General 




A 


Row location of computer move 


BL 


Human blocked if 1 


C 


Computer configuration value 


F 


Matrix location to move computer pawn from 


H 


Human configuration value 


I 


For . . . Next loop counter 


J 


Matrix location to move human pawn from 


K 


Matrix location to move human pawn to 


L 


Number of human losses 


LC 


Column number of previous computer move 


LR 


Row number of previous computer move 


M 


Computer move 


N$ 


? Flay again? 


T 


Matrix location to move computer pawn to 


W 


Number of human wins 


X 


Value to check for invalid move 


Y$ 


? Instructions wanted? 




Table 3. "4K Intelligence" variables list. 



Program Listing 2. Intel. 

10 DIMG(8,4) ,M(38,4) ,0(15,1) ,B(14,1) 
20 CLS:PRINT@12, "INTEL" :PRINT:W=0 :L=0 

3 INPUT"DO YOU WANT INSTRUCTIONS? Y/ 
N";Y$ 

40 IFY$="Y"THEN1170ELSEIFY$="N"THEN70 
50 GOTO30 

60 'set up possible moves 

70 DATA4, 3 ,7,5,4,1,2, 1,0,6,8,2,11, 7 ,3 
80 DATA7, 6, 2, 5, 4, 3, 11, 10, 5, 6, 5, 0,9, 8,0 
90 DATA3, 2, 0,5, 4 ,3, 7, 6, 0,7, 6, 0,7, 0,0 
100 DATA11, 8, 0,2, 0,0, 8, 5, 0,3, 14, 0,8, 11,0 
110 DATA15,0,0,15,0,0,11,14,0,8,7,6 
120 DATA3, 11, 0,5, 11, 0,2, 8, 0,6, 14, 0,2, 0,0 
130 DATA1, 2, 6, 15, 0,0, 15, 0,0, 6, 0,0, 6, 7,0 
140 DATA7, 0,0, 1,0, 0,1, 2, 14, 14, 0,0, 11, 5,0 
150 FORI=0TO3 8:READM(I,2) ,M(I,3) ,M(I,4) 
:NEXT 

160 'set up computer model table 

170 DATA3 92, 7, 224, 7, 336, 7, 272, 13, 264, 22 

180 DATA152,5,296,3,96,22,112,14,160,13 

190 DATA280,35,104,6,144,6,80,6,136,5 

200 DATA32, 28, 56, 1,4 8, 10, 24, 34, 32, 25 

210 DATA40,5,136,17,8,52,16,12,8,18 

220 DATA16,10,8,5,16,36,24,1,176,5 

230 DATA16,2,168,21,56,4,272,6,264,5 

240 DATA96,5,80,37,136,37,32,18 

250 FORI=0TO3 8:READM(I,0) ,M(I,1) :NEXT 

260 'blocked human move table 

270 DATA1, 8, 2, 16, 4, 32, 8, 64, 16, 128 

280 DATA12,96,33,264,32,256,5,40 

290 DATA40, 320, 21, 168, 17, 136, 20, 160 

3 00 DATA3 4,27 2,9,80 

310 FORI = 0TO14:READB(I,0) ,B(I,1) .-NEXT 

320 'possible computer moves 

330 DATA0, 3, 0,4, 1,3, 1,4, 1,5, 2, 4, 2, 5 

340 DATA3,6,3,7,4,6,4,7,4,8,5,7,5,8 

350 FORI=1TO14:READC(I,0) ,C(I,1) :NEXT 

360 ' set up graphic array 

370 DATA67,1,1,0,0,72,1,2,0,0 

380 DATA77,1,4,0,0,147,0,8,0,8 

3 90 DATA152, 0,16, 0,16, 157, 0,32, 0,32 

400 DATA227, 0,0, 1,64, 232, 0,0, 1,128 

410 DATA237, 0,0, 1,256 

420 FORI=0TO8:READ G( I ,0) ,G( I ,1) ,G( I ,2) ,G 

(1,3) ,G(I,4) :NEXT 

430 C LS ' setup board graphic 

440 LINE(146,4)-(234,50) , 1 ,B:LINE ( 145 ,3) - 

(235,51) ,1,B 

450 LINE(174,5)-(174,50) :LINE ( 205 ,5) -( 
205,50) 

460 LINE(147,20)-(233,20) :LINE(147,35) -( 
233,35) 

470 PRINT@65,"0":PRINT@67,CHR$(128) 

480 PRINT@70,"l n :PRINT@7 2,CHR$(128) 

490 PRINT@75, n 2":PRINT@77,CHR$(128) 

500 PRINT@145,"3":PRINT@150,"4" 

:PRINT@155,"5" 

510 PRINT@225,"6":PRINT@227,CHR$(14 8) 

520 PRINT@23 0,"7":PRINT@232,CHR$(148) 

53 PRINT@235,"8":PRINT@237,CHR$(148) 

540 ' get human move 

550 GOSUB1300 

560 GOSUB750 

5 ?0 ' get model table value. 

580 IFH=0THEN970 

590 FORI=0TO14 

600 IFC=B(I,0)AND H=B(I,1)THENBL=1 

610 NEXT 

620 IFBL=1THENPRINT@200, "BLOCKED! I 

WIN!":BL=0:GOTO990 

630 PRINT@200,"YOUR MOVE HUMAN!" 

Listing 2 continues 



202 • 80 Micro, August 1983 



Listing 2 continued 

6 40 INPUT "FROM" ; J: PRINT@250 , "TO" ; : INPUTK 

6 50 X=J-K 

660 IFX<2ORX>4THEN1090 

670 IFX=3ANDG(K,1)=1THEN1090 

680 IFX=4ANDG(K,1)=0THEN1090 

690 IFX=2ANDG(K,1)=0THEN1090 

700 G(K,3)=1:G(K,1)=0:G(J,3)=0 

710 PRINT@G(K,0) ,CHR$(148) : PRINT@G( J , 0) ," 

720 IFKOTHEN1120 

730 GOSUB740:GOTO810 

740 'get array values for comp. move 

750 C=0:H=0 

760 FORI=0TO8 

770 IFG(I,1)=1THENC=C+G(I,2) 

780 IFG(I,3)=1THENH=H+G(I,4) 

790 NEXT 

800 RETURN 

810 ' get computer move # 

82 FORI=0TO3 8 

830 IFH=M(I,0)ANDC=M(I r l)THENA=I:GOTO860 
840 NEXT 

850 ' get and make computer move 

860 FORI=2T04 

870 IFM(A,I) >0THENM=M(A,I) :GOTO900 

880 NEXT 

890 IFM=0THENM(A,2)=15 

900 IFM=15THEN1140 

910 F=C(M,0) :T=C(M,1) 

920 G(F,1)=0:G(T,3)=0:G(T,1)=1 

930 PRINT@G(F,0) ," ":PRINT@G(T,0) ,CHR$( 

128) 

940 IFT>5THEN980 

950 LR=A:LC=I 

960 GOTO550 

970 ' computer win routine 

980 GOSUB1300:PRINT@200,"I WIN, HUMAN!" 

990 ' ending routine 

1000 L=L+1 

1010 PRINT"YOU'VE WON";W; "AND LOST";L 



1020 INPUT"DO YOU WANT TO PLAY AGAIN? (Y/ 

N) ";N$ 

103 FORI=0TO2:G(I,1)=1:G(I,3)=0:NEXTI 

1040 FORI=3TO5:G(I,1)=0:G(I,3)=0:NEXTI 

1050 FORI=6TO8:G(I,1)=0:G(I,3)=1:NEXTI 

1060 M=0:IFN$="Y"THEN430 

1070 END 

1080 ' invalid move routine 

1090 GOSUB1300:PRINT(a200, "INVALID MOVE 1 

I WIN!" 

1100 GOTO990 

1110 ' human win routine 

1120 PRINT@200, "YOU'VE WON , HUMAN!" 

1130 W=W+1:M(A,B) =0:GOTO1010 

1140 PRINT@200, "YOU'VE WON, HUMAN! " 

1150 W=W+1:M(LR,LC) =0:GOTO1010 

1160 ' game instructions 

117 CLS: PRINT: PRINT" INTEL IS PLAYED ON A 

3 BY 3 MATRIX." 

1180 PRINT"THE PAWNS ARE MOVED ONE SPACE 

FORWARD" 

1190 PRINT"OR ONE SPACE DIAGONALLY TO 

CAPTURE." 

1200 PRINT"MY PAWNS ARE " ;CHR$ ( 128) ; " 

YOURS ARE ";CHR$(148) 

1210 INPUT Y$: CLS: PRINT 

1220 PRINT"WIN OCCURS WHEN YOU REACH THE 

OPPOSITE" 

1230 PRINT"SIDE OF THE BOARD OR" 

1240 PRINT"WHEN ALL OPPONENTS PAWNS ARE 

BLOCKED." 

1250 PRINT"AN INVALID MOVE RESULTS IN A 

LOSS." 

126 PRINT"TO MAKE A MOVE, ENTER PRESENT 
PAWN" 

127 PRINT"POSITION, THEN ENTER NEW PAWN 
POSITION." 

1280 INPUT Y$:GOTO70 

1290 ' blank screen text 

1300 FORI=0TO16:PRINT@(200+I) , " ":PRINT@( 
240+1)," ":NEXT:RETURN 



Subterra 



Conversion by Mare-Anne Jarvela 
80 Micro Technical Editor 

Subterra, an adventure game by Richard Ramella, first ap- 
peared in our Fun House column (80 Micro, November 1982, 
p. 488). It requires a 24K Model 100. 



Variable 


Description 


AS 


Data from data statements 


B 


Array counter 


T 


For . . . Next counter 


X$ 


Input variable 


C$ 


Input variable 


K$ 


Input variable 


I 


For . . . Next counter 


Z 


Random number 


M 


Random number 


K 


Found key flag 


H 


Going in or out Hag 


P 


Mile counter 


Table 4. Subterra variables list. 



Program Listing 3. Subterra. 

10 REM SUBTERRA 

20 CLS 

30 DATA NORTH, SOUTH, EAST f WEST, KEY ,NOTE-S 

OMETIMES EMPTY 

40 DATA DESERT, HOME, LOCATION, DO YOU WALK 

INTO WALLS A LOT? 
50 DATA WALL, CAVE ENTRANCE, TUNNEL OF MIC 
A, CRAWL SPACE, VESTIBULE OF EVIL 
60 DATA TRIANGLE TUNNEL, ENDLESS PASSAGE, 
GROTTO OF GRIEF, DRAGON, WELL 
70 DATA FOUR CORNERS , TROLL WAY, ROCK TUNN 
EL, THREE CORNERS, ECHO CAVERN 
80 DATA RIVER, THREE DOORWAYS , SULPHUR LAN 
E, WATERY ELBOW, DARKLING WAY 
90 DATA COBWEBBED HALLWAY, CIRCLE CHAMBER 
, WHITE WATER, RIVER ROCK, ABYSMAL WATERFAL 
L 

10 DATA SACRIFICIAL ALTAR, SHORT HALL,SN 
AKE CITY, POISON HALL, RAT CHAMBER 
110 DATA IT'S ENDLESS SO GO BACK II 
120 DATA I'M SORRY.. YOU WILL NEVER RETU 
RN. 

13 DATA HER FIERY BREATH DRIVES YOU BAC 
K,A DOORWAY, RIVER BANK 

140 DATA LIMBO JAUNT, CAVE- IN NOW BLOCKS 
ENTRANCE, A ROUND PORTAL 

Listing 3 continues 
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In Subterra, you must traverse underground caves and 
passages in search of a precious idol. Travel in any direction, 
but tread cautiously — many hidden traps await you. And 
don't assume you're through when you find the idol — you are 
in danger until you and the idol are safely above ground. 

Pictures add to the fun, and show off some of the Model 
100's graphics. I used CHR$(27);"p" to make the background 
dark and CHR$(27);"q" to make it light. Lines 2230-2730 
contain all the graphics. (See Program Listing 3.) 

Subterra produces sound in conjunction with the graphics. 



Change line 2310 to compose a different tune for the key, line 
2390 for the doors, line 2500 for the dragon, line 2620 for the 
well, and line 2700 for the idol. 

The Model 100's random function (RND) gives you num- 
bers between zero and one. I used INT(10*RND(1)) for an in- 
teger between zero and nine. RND always gives the same order 
of random numbers; to avoid that, 1 used the clock to pick up 
a different sequence each time (see p. 175 of the Model 100 
manual). 

Enjoy Subterra — but don't get lost. ■ 



Listing 3 continued 


590 REM FOUR CORNERS 




600 L=21: N=22: W=16: S=17: E=23 


150 CLEAR 500 


610 GOSUB 2000 


160 DIM A$(48) 


620 IF X$="N n GOTO 480 


170 FOR B=l TO 48 


630 IF X$="W" GOTO 370 


180 READ A$(B) 


640 IF X$="E" GOTO 1170 


190 NEXT B 


650 IF X$="S" GOTO 660 


200 PRINT @ 50, "HAVE FUN FINDING THE IDOL1 


660 P=2 


11" 


670 REM ENDLESS PASSAGE 


210 PRINT@90,"HOLD YOUR EYES OPEN FOR... 


680 L=17: W=ll: S=17: E=ll 


..":FOR T=l TO 1200:NEXT T:CLS 


690 GOSUB 2000 


220 GOSUB 2350: CLS: GOSUB 2240: CLS: GO 


700 IF P=2 AND X$="N" THEN PRINT "YOU LE 


SUB 2420: CLS: GOSUB 2530: CLS: GOSUB 26 


AVE ";A$(17): P=0:GOTO600 


40: CLS 


710 IF X$="S" THEN P=P+2 


23 REM CAVE 


720 IF X$="N" THEN P=P-2 


240 L=12: N=7: W=7 : S=8: E=13 


730 IF P=10 THEN GOSUB 2100 


250 GOSUB 2000 


740 PRINT "DISTANCE INTO " ; A$ ( 17) ; " : " ;P; 


260 IF X$="N" OR X$="W" THEN PRINT "LOST 


"MILES" 


...NEVER HEARD OF AGAIN.": END 


750 GOTO 680 


270 IF X$="S" THEN PRINT "WENT HOME AND 


760 REM WELL 


DIDN'T EVEN TRY.": END 


770 GOSUB2530:CLS 


280 IF X$="E" GOTO 300 


780 L=20: N=ll: W=ll: S=ll: E=ll 


290 REM TUNNEL OF MICA 


790 GOSUB 2000 


300 L=13: N=ll: W=13: S=14: E=13 


800 IF X$="N" OR X$="S"THEN PRINT"YOU CA 


310 GOSUB 2000 


N'T GET OUT! ! 1 " : END 


320 IF X$="N" THEN PRINT A$ ( 10) :GOTO300 


810 IF X$="W"THEN PRINT"THAT HURT!":FOR 


330 IF X$="W" THEN PRINT A$ ( 47) :GOTO300 


T=l TO 500:NEXT T:GOTO 770 


340 IF X$="S" GOTO 370 


820 IF X$="E"THEN PRINT"A WALL AGAIN ?": 


350 IF X$="E" GOTO 480 


FOR T=l TO 500: NEXT T:GOTO 770 


360 REM VESTIBULE OF EVIL 


830 N=ll: W=ll: S=25: E=ll 


370 L=15: N=14: W=ll: S=ll: E=16 


840 IF Z=l THEN L=38 


380 SEC = VAL(RIGHT$(TIME$,2) ) 


850 IF Z=2 THEN L=39 


390 FOR 1=1 TO SEC 


860 IF Z=3 THEN L=40: E=37 


400 Z=INT(10*RND(1) ) 


870 SEC = VAL(RIGHT$(TIME$,2) ) 


410 NEXT I 


880 FOR 1=1 TO SEC 


420 IF Z<6 THEN GOSUB 2100 


890 M=INT(10*RND(1) ) 


430 GOSUB 2000 


900 NEXT I 


440 IF X$="W" OR X$="S" THEN PRINT A$(10 


910 IF M<6 THEN PRINT"FOUND-CHEST WITH A 


) :GOTO 370 


i 


450 IF X$="N" GOTO 300 


920 IF M>5 GOTO 1000 


460 IF X$="E" GOTO 600 


930 SEC = VAL(RIGHT$(TIME$ f 2) ) 


470 REM GROTTO OF GRIEF 


940 FOR 1=1 TO SEC 


480 L=18: W=13: S=22: E=20 


950 M=INT(10*RND(2) ) 


490 IF H=2 THEN N=14 ELSE N=19 


960 NEXT I 


500 GOSUB 2000 


970 IF M<6 THEN PRINT A$(5):FOR T=l TO 5 


510 IF X$="W"THEN GOTO 300 


00:NEXT T:GOSUB 2230:CLS 


520 IF X$="E" THEN GOTO 770 


980 IF M>5 THEN PRINT A$(6) 


530 IF X$="S"GOTO 600 


990 IF M<6 THEN K=l 


540 IF X$="N" AND H<>2 THEN GOSUB 2420:C 


1000 GOSUB 2000 


LS 


1010 IF X$="N" OR X$="W" GOTO 1000 


550 IF X$="N" AND H<>2 THEN SEC=VAL(RIGH 


1020 IF X$="E" AND Z=3 GOTO 1450 


T$(TIME$,2) ) :FOR 1=1 TO SEC: Z=INT(10*RND 


1030 IF X$="E" GOTO 1000 


(1) ) :NEXT I 


1040 IF X$="S" GOTO 1060 


560 IF X$="N n AND H=2 THEN PRINT "YOU EX 


1050 REM ECHO CAVERN 


IT TO SUNLIGHT. THE IDOL IS YOURS": END 


1060 L=25: N=27: W=20: S=28: E=44 


570 IF Z<6 THEN PRINT A$(42): END 


1070 GOSUB 2000 


580 IF Z>5 THEN PRINT A$(43): Z=0: GOTO 


1080 IF X$="W" GOTO 770 


480 


Listing 3 continues 
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Listing 3 continued . 


CTION?" 








1090 IF X$="S" GOTO 1170 


1700 PRINT "IF YOU DON'T KNOW, GUESS QUI 


1100 IF X$="E" AND KOI THEN PRINT "NO " 


CKLY1" 


;A$(5) : GOTO 1060 


1710 PRINT"THE CEILING WILL START TO LOW 


1110 IF X$="E" AND K=l THEN PRINT A$(5) 


ER. .." 


;" DOESN'T WORK.": GOTO 1060 


1720 FOR T=l TO 1000 


1120 GOSUB2350 


1730 NEXT T 


1130 PRINT@42, "WHICH DOOR - 1,2 OR 3";: 


1740 PRINT "PRESS ANY KEY IF YOU KNOW." 


INPUT Z:CLS 


1750 PRINT 


1140 IF ZOl AND Z<>2 AND Z<>3 GOTO 1130 


1760 FOR T=l TO 500 


1150 GOTO 830 


1770 NEXT T 


1160 REM RIVER BANK 


1780 FOR M=10 TO 1 STEP -1 


1170 L=45: N=28: W=23: S=ll: E=26 


1790 CLS 


1180 GOSUB 2000 


1800 PRINT M; "SECONDS TO GO" 


1190 IF X$="N" GOTO 1060 


1810 C$=INKEY$ 


1200 IF X$="W" GOTO 600 


1820 IF C$O""G0T0 1860 


1210 IF X$="S" THEN PRINT "HURT YOUR HEA 


1830 FOR T=l TO 200 


D?":GOTO 1170 


1840 NEXT T 


1220 REM WATERY ELBOW 


1850 NEXT M 


1230 L=29: N=26: W=26: S=46: E=ll 


1860 PRINT "THE MAGIC DIRECTION IS " 


1240 GOSUB 2000 


1870 INPUT" (NORTH-EAST-SOUTH-WEST) ";C$ 


1250 IF X$="N" GOTO 1390 


1880 IF C$=K$ GOTO 1900 


1260 IF X$="W" GOTO 1170 


1890 PRINT "BAD GUESSING, A CRUSHING DEF 


1270 IF X$="E" THEN PRINT "OOPS , ANOTHER 


EAT, EH?": END 


WALL EH?": GOTO 1230 


1900 CLS:GOSUB 2640:CLS 


1280 REM LIMBO JAUNT 


1910 PRINT "YOU FOUND THE GOLDEN IDOL IN 


1290 L=46: N=29: W=ll: S=46: E=ll 


TIME." 


1300 PRINT "DISTANCE IN: " ;P; "MILES" 


1920 PRINT "YOUR WORRIES ARE OVER..." 


1310 GOSUB 2000 


1930 PRINT "EXCEPT YOU HAVE TO FIND YOUR 


1320 IF X$="S" THEN P=P+2 


WAY OUT." 


1330 IF X$="N" THEN P=P-2 


1940 PRINT"YOU EXIT WITH TREASURE IN HAN 


1340 IF P<2 THEN PRINT "YOU'RE OUT": GOTO 


D. " 


1230 


1950 H=2 


1350 IF P=10 THEN PRINT A$(41) 


1960 FOR T=l TO 1500 


1360 IF P=12 THEN PRINT "TOO LATE . LOST 


1970 NEXT T 


IN THE DARK. THAT'S ALL": END 


1980 CLS 


1370 GOTO 1290 


1990 GOTO 1390 


13 80 REM RIVER ROCK 


2000 PRINT A$(9) 


n 


n 


A$(L) 


1390 L=34: N=33: W=44: S=26: E=31 


2010 PRINT A$(l) 


« 


n 


A$(N) 


1400 GOSUB2000 


2020 PRINT A$(4) 


m 


n 


A$(W) 


1410 IF X$="W" GOTO 1060 


2030 PRINT A$(2) 


H 


n 


A$(S) 


1420 IF X$="S" GOTO 1230 


2040 PRINT A$(3) 


■ 


R 


A$(E) 


1430 IF X$="E" GOTO 1610 


2050 PRINT"DIRECTION - (N-W-S-E)"; 


1440 REM SACRIFICIAL ALTAR 


2060 INPUT X$ 


1450 L=36: N=35: W=40: S=33: E=ll 


2070 IF X$<>"N" AND X$<>"W" AND X$<>"S" 


1460 GOSUB 2000 


AND X$O n E" GOTO 2050 


1470 IF X$="W" THEN Z=3: GOTO 830 


2080 CLS 


1480 IF X$="S" GOTO 1390 


2090 RETURN 


1490 IF X$="E" THEN PRINT"ANOTHER BRUISE 


2100 IF K$<>""THEN RETURN 


": GOTO 1450 


2110 SEC = VAL(RIGHT$(TIME$,2) ) 


1500 IF X$="N" THEN PRINT "YOU KNOW WHAT 


2120 FOR 1=1 TO SEC 


AN ";A$(35); n IS AND STILL WANT TO GO?" 


2130 Z=INT(10*RND(1) ) 


1510 INPUT "ANSWER YES OR NO";X$ 


2140 NEXT I 


1520 IF X$<>"YES" AND X$O"N0" GOTO 1510 


2150 IF Z<3 AND Z>0 THEN K$=A$ ( 1) :GOTO 2 


1530 IF X$="NO" GOTO 1450 


190 


1540 PRINT 


2160 IF Z<5 THEN K$=A$ ( 2) :GOTO 2190 


15 50 PRINT "NOW YOU FALL FOREVER ";:GOTO 


2170 IF Z<8 THEN K$=A$ ( 3) :GOTO 2190 


1590 


2180 IF Z<10 THEN K$=A$(4) 


1560 PRINT "AND EVER "; 


2190 Z=0 


1570 FOR T=l TO 200 


2200 PRINT "A WALL OPENS. A MESSAGE SCRO 


1580 NEXT T 


LL APPEARS:" 


1590 GOTO 1560 


2210 PRINT "REMEMBER THE MAGIC DIRECTION 


1600 REM COBWEBBED HALLWAY 




1610 L=31: N=ll: W=34: S=ll: E=48 


2220 RETURN 


1620 PRINT "YOU STAND AT ";A$(48) 


2230 REM KEY 


1630 IF KOI THEN PRINT "NO ";A$(5);" TO 


2240 PRINT@59,CHR$(230) ;CHR$(231) ;CHR$(2 


ENTER": GOTO 1390 


31) ;CHR$(229) 


1640 IF K=l THEN PRINT "YOUR ";A$(5) n WO 


2250 PRINT@99,CHR$(229) ;CHR$(232) ;CHR$(2 


RKSI" 


32) ;CHR$(230) 


1650 GOSUB 2000 


2260 PRINT@141,CHR$(233) 


1660 PRINT "YOU NOW ENTER THE n ;A$(32) 


2270 PRINT@181,CHR$(233) 


1670 FOR T=l TO 500 


2280 PRINT@220,CHR$(232) ;CHR$(233) 


1680 NEXT T 


2290 PRINT@259,CHR$(232) ;CHR$(232) ;CHR$( 


16 90 PRINT "DO YOU RECALL THE MAGIC DIRE 






Listing 3 continues 
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Listing 3 continued 



233) 

2300 PRINT@301,CHR$(225) 

2310 SOUND 2348,25: SOUND 1864,25: SOUND 

7456,25: SOUND11172, 25 
2320 FOR T=l TO 500:NEXT T 
233 RETURN 
23 40 REM DOORS 
2350 PRINT@282,CHR$(234) ;" " ;CHR$ ( 233) ; " 

";CHR$(234) ;" " ;CHR$ ( 233) ; " ";CHR$(234 
\ • " "•CHR$(233) 

2360 PRINT@242,CHR$(233) ; "1" ;CHR$ ( 234) ; " 
n ;CHR$(233) ; "2" ;CHR$ ( 234) ; n "CHR$(233 
) ;"3";CHR$(234) 

2370 PRINT@202,CHR$(233) ;" " ; CHR$ ( 234) ; " 
";CHR$(233) ;" " ;CHR$ ( 234) ; " ";CHR$(23 
3) ;" ";CHR$(234) 

2380 PRINT@162,CHR$(235) ;CHR$(231) ;CHR$( 
236) ;" ";CHR$(235) ;CHR$(231) ;CHR$(236) ; 
" ";CHR$(235) ;CHR$(231) ;CHR$(236) 
2390 SOUND 3134,25: SOUND 12538,25: SOUN 
D 2348,25: SOUND 9394,25: SOUND 1660,25: 

SOUND 6642,25 
2400 FOR T=l TO 500:NEXT T 
2410 RETURN 
2420 REM DRAGON 

2430 PRINT@59,CHR$(229) ; n " ;CHR$ ( 230) 
2440 PRINT@100,CHR$(229) ;CHR$(228) ;CHR$( 
227) ;CHR$(230) 

2450 PRINT@139,CHR$(228) ;CHR$(238) ;CHR$( 
239) ;CHR$(239) ;CHR$(237) ;CHR$(227) 
2460 PRINT@178,CHR$(228) ;CHR$(238) ;CHR$( 
232) ;CHR$(239) ;CHR$(239) ;CHR$(232) ;CHR$( 
237) ;CHR$(227) 

2470 PRINT@218,CHR$(239) ;CHR$(239) ;CHR$( 
239) ;CHR$(254) ;CHR$(252) ;CHR$(239) ;CHR$( 
239) ;CHR$(239) 

2480 PRINT@258,CHR$(236) ;CHR$(167) ;CHR$( 
167) ;CHR$(167) ;CHR$(167) ;CHR$(167) ;CHR$( 
167) ;CHR$(235) 

2490 PRINT@299,CHR$(229) ;CHR$(232) ;CHR$( 
232) ;CHR$(232) ;CHR$(232) ;CHR$(230) 
2500 SOUND 15000,50: SOUND 16383,50: SOU 
ND 15000,50 



2510 FOR T=l 

2520 RETURN 

253 REM WELL 

2540 PRINT@59,CHR$(252) ;CHR$(239) ;CHR$(2 

39) ;CHR$(239) ;CHR$(239) ;CHR$(239) ;CHR$(2 

39) ;CHR$(254) 

2550 PRINT@100,CHR$(233) ;" H ;CHR$(234 

) 

2560 PRINT@140,CHR$(237) ;CHR$(232) ;CHR$( 

232) ;CHR${232) ;CHR$(232) ;CHR$(238) ;CHR$( 

238) 

2570 PRINT@180,CHR$(235) ;CHR$(231) ;CHR$( 

231) ;CHR$(231) ;CHR$(231) ;CHR$(236) 

2580 PRINT@219,CHR$(239) ;CHR$(255) ;CHR$( 

239) ;CHR$(255) ;CHR$(239) ;CHR$(255) ;CHR$( 

239) ;CHR$(255) 

2590 PRINT@259,CHR$(255) ;CHR$(239) ;CHR$( 

255) ;CHR$(239) ;CHR$(255) ;CHR$(239) ;CHR$( 

255) ;CHR$(239) 

2600 PRINT@299,CHR$(239) ;CHR$(255) ;CHR$( 

239) ;CHR$(255) ;CHR$(239) ;CHR$(255) ;CHR$( 

239) ;CHR$(255) 

2610 FOR T=l TO 500:NEXT T 

2620 SOUND 1567,25: SOUND 3134,20: SOUND 

6269,25: SOUND 12538,25 
2630 RETURN 
2640 REM IDOL 

2650 PRINT@99,CHR$(252) ;CHR$(239) ;CHR$(2 
39) ;CHR$(239) ;CHR$(239) ;CHR$(239) ;CHR$(2 
39) ;CHR$(254) 

2660 PRINT@139,CHR$(253) ;CHR$(239) ;CHR$( 
27) ;"p";CHR$(92) ;CHR$(245) ;CHR$(245) ;CHR 
$(47) ;CHR$(27) ; "q n ;CHR$ (239) ;CHR$(251) 
2670 PRINT@180,CHR$(253) ;CHR$(239) ;CHR$( 
27) ;"p";CHR$(92) ;CHR$(47) ;CHR$(27) ;"q";C 
HR$(239) ;CHR$(251) 

2680 PRINT@221,CHR$(253) ;CHR$(27) ;"p";CH 
R$(92) ,-CHR$(47) ;CHR$(27) ; "q" ;CHR$ ( 251) 
2690 PRINT@262,CHR$(253) ;CHR$(251) 
2700 SOUND 932,25: SOUND 2793,50: SOUND 
7456,25: SOUND 1174,25 
2710 FOR T=l TO 500:NEXT T 
2720 RETURN 
2730 END 



Renumber 100. 



by Beve Woodbury 7 

80 Micro Technical Editor 

Running out of room to insert additional line numbers in a 
program is frustrating. This renumber utility solves that prob- 
lem. It lets you choose line increments and then renumbers the 
entire program, including all GOTO, GOSUB, Then, and Else 
lines. (See Program Listing 4.) 

The program first reads a Do file (ASCII), then writes a file 
(NWNUMB.DO) with the corrected line numbers. Because of 
these file requirements, the number of bytes available to 
renumber a program must at least equal the number of bytes 
in the Do file plus 500 bytes for string space and 4 bytes for 
each line (array). I can renumber a file of approximately 7,000 
bytes on a 24K Model 100 with no other files. 

When you run the program, it requests the name of the file 
you want renumbered. Enter the file name, including the .DO 
extension. The computer pauses while it determines the 
number of lines in the file and dimensions an array to store the 
old and new program line numbers. 

The program then requests the desired line increments. 
After you enter this figure, there is another pause while the 
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Line 


Description 


10 


Clear S space for old and renumbered line 


20 


Title 


30 


Get name of file to renumber 


40-70 


Read file to count lines and dimension array 


80-120 


Set up array of old and new line numbers 


130-140 


Open files for input and output 


150-190 


Read old line and replace line number 


200-230 


Search for GOTO in line 


240-270 


Search for GOSUB in line 


280-310 


Search for THEN followed by line number in line 


320-360 


Search for ELSE followed by line number in line 


370 


Get next line 


380-390 


Sound "beep" and end program 


400-520 


Replace old line number reference with new 




Table 5. Renumber line descriptions. 



old/new line-number array is set up. 

When the program starts to number lines, "Processing, 
Please Wait" appears on the screen each time a new line is 
read. If the program is quite long and a line has several line 



references, the processing notice remains steady while all the 
line changes are checked through the array. 

It took approximately one minute to renumber the 
7,000-byte program mentioned above. This is a long time by 
computer standards, but it beats renumbering manually. 
When the program finishes writing the renumber file, it beeps. 



10 CLEAR500 


20 CLS:PRINT@50, "RENUMBER UTILITY": 


PRINT 


30 INPUT"NAME OF FILE TO RENUMBER: ";F§ 


40 FF$="RAM: "+F$ :OPENFF$FORINPUTASl 


50 IF EOF(1)THENCLOSE:GOTO70 


60 LINEINPUT#1,A$:D=D+1:GOTO50 


70 D=D-1:DIMT(D,1) 


80 OPENFF$FORINPUTASl: PRINT 


90 ] 


[NPUT" LINE INCREMENT DESIRED: ";I 


100 


FORK=0TOD: LINEINPUT#1 , A$ : N=N+I 


110 


V=VAL(LEFT$(A$,5) ) : T (K, 0) =V: T (K , 1) =N 


120 


NEXT 


130 


CLOSE :OPENFF$FORINPUTASl 


140 


OPEN"RAM:NWNUMB.DO"FOROUTPUTAS2 


15 


FORK=0TOD:CLS 


160 


PRINT@125, "PROCESSING, PLEASE WAIT" 


170 


LINEINPUT#1,A$:V=VAL(LEFT$(A$,5) ) 


180 


Y=LEN(A$) :H=LEN(STR$(V) ) 


190 


A$=STR$(T(K,1) )+MID$(A$,H) 


200 


X-l 


210 


X=INSTR(X,A$,"GOTO") 


220 


IFX>0THENGOSUB410ELSE240 


230 


GOTO210 


240 


X=l 


250 


X=INSTR(X,A$,"GOSUB") 


260 


IFX>0THENGOSUB40 0ELSE280 


270 


GOTO250 


280 


X=l 


290 


X=INSTR(X,A$,"THEN") : IFX=0THEN320 


300 


IFVAL(MID$(A$,X+4) ) > 


0THENGOSUB410ELSEX=X+4 


310 


GOTO290 


320 


X = l 


330 


X=INSTR(X,A$,"ELSE") : IFX=0THEN360 


340 


IFVAL(MID$(A$,X+4) ) > 


0THENGOSUB410ELSEX=X+4 


350 


GOTO33 


360 


PRINT#2,A$ 


370 


NEXT 


380 


CLOSE: SOUND 


4697,75: IFUD=1THENPRINT"UNLISTED LINE 


390 


END 


400 


X=X+1 


410 


X=X+3:Y=Y+1 


420 


M=VAL(MID$(A$,X+1) ) 


430 


R=-l 


440 


R=R+1 


450 


IFR>DTHENP$=" ****": UD=1 : GOTO480 


460 


IFM=T(R,0)THENPP$=STR$(T{R,1) ) 


:P$= 


=MID$(PP$,2) :GOTO480 


470 


GOTO440 


480 


IFY<X+4THEN520 


490 


C$=RIGHT$(STR$(M) ,2) :LC=LEN(C$) 


:Q=INSTR(X,A$ f C$) :C=Q+LC 


500 


A$=LEFT$(A$,X)+P$+MID$(A$,C) 


510 


RETURN 


520 


A$=LEFT$(A$,X)+P$ 


530 


RETURN 




Program Listing 4. Renumber utility. 



This lets you do other tasks while your program is 
renumbered. 

If there is an undefined line number ("Line number is not in 
program") referenced in a line, the number is replaced with 
asterisks. 

When the program ends, "Unlisted Line" appears on the 
screen. 

The renumbered file is in NWNUMB.DO. The original file 
is unchanged. ■ 



Variable 


Description 


AS 


Old file line input 


C 


Location to put remainder of line 


c$ 


Remainder of line 


D 


Number of lines in program 


F$ 


Name of file to renumber 


FF$ 


Proper file name format to open file 


H 


Length of new line number 


I 


Increment amount 


J 


Length of old line number reference 


K 


Loop counter 


I.C 


Length of remainder of line 


M 


Value of MIDS 


N 


New line number 


PP$ 


New line number reference 


PS 


Formatted new line number 


Q$ 


Location of remainder of line 


R 


Array row number 


T() 


Table (array) of old and new line numbers 


UD 


Indicate presence of undefined line number 


V 


Value of old line number 


X 


Location in line 


Y 


Length of old line 


Z$ 


New file line output 




Table 6. Renumber variables list. 



The Year in Review. 



by Richard Ramella 

This program produces a bar graph that displays data for a 
12-month period on the X axis and accommodates up to 10 
million units on the Y axis. It requires an 8K Model 100. The 
display fits comfortably on the screen. 

The Program 

When you run the program, you'll see the prompt "Enter 
title in 40 or fewer characters." It can be anything: 1983 Births 
at Enloe Hospital, Sales of the South Pacific, and so on. If 
you exceed the 40-character limit, you're told so and given 
another try. 

Then you are asked to enter data for each month, from 
January to December. For each prompt in this section, type 
the number of units for that month and hit the enter key to see 
the next prompt. If you enter a number higher than 10 million, 
the program politely ends its participation in your scheme. 

After you enter the December figure, the screen blanks and 
the program draws the bar graph. 

At the left of the screen the prompt "Month?" appears. 
Answer it by typing the first three letters of any month in low- 
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ercase and the program displays the number for that month. 
To see a figure for another month, press the enter key. The 

screen goes blank and another prompt appears. 

The strange letter groupings in lines 370-390 of Pro- 
gram Listing 5 turn into three -letter month abbreviations dis- 
played vertically. The bar for each month builds upward to the 
right of the month. 

The Y axis has 10 divisions on it. At the bottom left of the 
screen is a notation telling you what each of these 10 incre- 
ments represents. The abbreviation "incr." is followed by 
either "tens," "hundreds," "thousands," "lOthous," "100 



thous.," or "millions." 

The program notes the largest number you enter and then 
scales down all the other numbers so the bars displayed are in 
proportion to each other. 

I arbitrarily set a limit of 10 million units. If you have more 
than 10 million of something in any one month, you might 
represent your figures with decimals, for example, 300.200000 
representing three hundred million, two hundred thousand. ■ 

Write to Richard Ramella at 1493 Mountain View Ave., 
Chico, CA 95926. 





350 C=l 


Program Listing 5. The Year in Review. 


360 PRINT @ 0,A$ 




370 PRINT @ 216, "j fmamjjasond 
n . 


100 REM * Bar Graph * TRS-80 Model 100 


380 PRINT @ 256, "a eapauuuecoe 


8K * Richard Ramella 


" . 


110 CLS 


390 PRINT @ 296, "n brrynlgptvc 


120 CLEAR 200 


n , 


130 DIM B(12) ,B$(12) 


400 T=92 


140 DATA Jan., Feb., Mar., Apr., May., 


410 F=13 


June., July., Aug., Sept., Oct., Nov., 


420 FOR W=92 TO 238 STEP 2 


Dec. 


430 PSET(W,F) 


150 FOR A=l TO 12 


440 NEXT W 


160 READ B$(A) 


450 FOR W=13 TO 63 


170 NEXT A 


460 PSET(T,W) 


180 M$= 


47 IF L=0 OR L/5=INT(L/5) THEN FOR Q=T 


" janf ebmaraprmayjun julaugsepoctnovdec" 


TO T-3 STEP -1: PSET(Q,W): NEXT Q 


190 PRINT "Enter title in 40 or fewer 


480 L=L+1 


characters" 


490 NEXT W 


200 INPUT A$ 


500 C=l 


210 IF LEN(A$)>40 THEN PRINT "Title"LEN( 


510 FOR A=102 TO 242 STEP 12 


A$)-40"character too long. Try again?": 


520 FOR B=63 TO 63-B(C) STEP -1 


GOTO 190 


53 FOR D=A TO A+4 


220 CLS 


540 PSET(D,B) 


230 FOR A=l TO 12 


550 NEXT D 


240 PRINT B$(A)" figure"; 


560 NEXT B 


250 INPUT B(A) 


570 C=C+1 


260 IF B(A) >10000000 THEN PRINT "I'm 


580 NEXT A 


sorry. I only accept numbers up to 10 


590 PRINT @ 80,SPACE$(14) ; 


million (10000000)...": END 


600 PRINT @ 80,""; 


270 IF B(A)>Z THEN Z=B(A) 


610 PRINT "month..." 


280 NEXT A 


620 L=0 


290 CLS 


630 INPUT R$ 


300 IF Z>1000000 THEN G=200000: 


640 PRINT @ 80,SPACE$(14) ; 


Z$="millions": ELSE IF Z>100000 THEN 


650 PRINT @ 120,SPACE$(14) ; 


G=20000: Z$="100 thous." ELSE IF Z>10000 


660 FOR A=l TO 34 STEP 3 


THEN G=2000: Z$="10 thous." ELSE IF Z> 


67 L=L+1 


1000 THEN G=200: Z$="thousands" ELSE IF 


680 IF R$=MID$(M$,A,3) THEN PRINT @ 


Z>100 THEN G=20: Z $="hundreds " ELSE G=2: 


80, R$;: PRINT @ 120,B(L)*G;: GOTO 700 


Z$="tens n 


690 NEXT A 


310 FOR A=l TO 12 


700 IF INKEY$<>"" THEN PRINT @ 80,SPACE$ 


320 B(A)=B(A)/G 


(14);: PRINT @ 120,SPACE$(14) ; : GOTO 590 


330 NEXT A 


ELSE 700 


340 PRINT @ 240,"incr:"Z$; 


710 END 
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Nothing's Pe 




by Ken Barbier 



Ah, the benefits of the Model 100: optional 24K bytes of 
battery back-up RAM, RS-232 serial port, built-in text editor, 
built-in modem, ability to upload into a larger computer, full- 
size keyboard, and so easy to carry. But does the computer 
have any flaws? 

Run Speed 

I keyed a little benchmark program calculating the cosine of 
one 240 times (Program Listing 6) into the 100, and got what I 
thought was a dead computer. It wasn't dead, but it was slow. 
It took 28 seconds to run a benchmark that takes less than four 
seconds on my 4 MHz Z80 homebuilt computer, and seven 
seconds on a TRS-80 Model I. 

The 100 Basic computer functions in 14-digit double-preci- 
sion calculations, and while that provides precise answers, it 
does not provide speed. Patching the benchmark program to 
force the variable X to single precision, and the counter I to in- 
teger produced a result 28 seconds later with six digits, not 14. 

Manual Oversights 

I spotted a couple of weaknesses in the generally excellent 
100 user's manual. The Call statements in the sample pro- 
grams on pp. 149, 199, and 201 reference machine-language 
subroutines contained in the Model 100 PROM. Call is 
documented, but PROM isn't. 

The manual doesn't mention that the maximum number 
of files is limited to the 20 files displayed at sign-on. If you 
ask Text to create a twenty- first file, you get a beep and an- 
other "File to Edit?" prompt, not a warning that the directory 
is full. 

The sample program on p. 199 uses the Basic PRINT @ 
function without fully explaining it. The inference you must 
draw is that PRINT 40 causes the next display to start 40 posi- 
tions from the screen's first character spot. 

The Basic initial program load function (IPL) lets you pre- 
set the computer to load and execute a program the next time 
you turn on the computer. But if you don't have Basic loaded 
when you turn the computer off, it powers up the menu in- 
stead of your IPL program. 

If you ever turn the microcomputer off during the execution 



10 PRINT "Rickard Cosine Benchmark" 


20 PRINT "START 


';TIME$ 


30 BEEP 




40 FOR I = 1 TO 240 




50 X = COS(1.0) 




60 NEXT 




70 BEEP 




80 PRINT "STOP ' 


';TIME$ 


90 PRINT X 




100 INPUT A$ 




110 MENU 




Program Listing 6. Benchmark program. 



of a program, the program resumes once you restore power. 
This is handy if you use the 100 with an unattended controller 
of data-acquisition device powered from the optional ac 
adapter, but the user's manual unfortunately doesn't ever tell 
you this happens. 

Terminal Hang-ups 

Don't use shortcuts with Telecom in the TERM mode. If 
you try to step through the procedures for calling another 
computer on the telephone without actually connecting the 
modem cable to the phone, you end up in limbo as soon as you 
press the TERM mode key. The computer is waiting to hear 
the modem tone from the other end of the phone link before it 
updates the function key display to that shown on p. 81 of 
the manual. 

Try a dry run before you call another computer. Switch 
your Model 100 from ORIG to ANS (find the switch on the 
left) before stepping through the TERM procedures. This 
makes your computer act like the called machine instead of the 
caller, and you hear the modem tone as soon as you enter 
TERM. The computer hangs up at this point, since it's waiting 
for a call. 

Use STAT to change from the modem operation to the 
RS-232 port to make a dry run all the way through the TERM 
mode. Enter STAT and key in 88NID. You can then fake an 
upload of a file from your computer through the serial port, 
even though there's nothing at the other end. 

The computer remembers the STAT assignment, and won't 
revert to the modem port the next time you power up. Use 
STAT and the manual's table on p. 85 to restore modem 
operation. 

The RS-232 Port 

You can't connect a standard RS-232 data cable to the 100 
because the cutout in the computer's case is too small to ac- 
commodate the connector shell. Worse, the serial port doesn't 
conform to RS-232 standard. 

A table on p. 205 of the documentation implies that the 
Model 100 serial port uses the data send and receive signals on 
pins 2 and 3, and the handshaking signals on RS-232 connec- 
tor pins 4, 5, 6, and 20. Unfortunately, the computer ignores 
the handshaking signals. 

The Model 100 is configured as a terminal device (DTE) to 
be connected to a communications device (DCE). A DTE 
should assert the handshake line Data Terminal Ready (DTR, 
pin 20) when it is powered up, and Ready To Send (RTS, pin 
4) when it wants to talk to the DCE. 

Similarly, the communications device on the other end of 
the RS-232 cable (such as a modem), asserts Data Set Ready 
(DSR, pin 6) when the machine is turned on, and Clear To 
Send (CTS, pin 5) when it is ready to accept data. The DTE 
(Model 100, in this case), should stop sending data if the DCE 
is not ready (DSR, Not True), or is busy (CTS, Not Ready). 
The Model 100, however, ignores both DSR and CTS. 

The 100 always asserts DTR when in the TERM mode, and 
does not use RTS at all. When the computer is used to upload 
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files to, or to download files from, another computer at higher 
baud rates, data can be lost. 

I can connect the serial port to my big computer and upload 
text files to it at 9600 baud (see Sidebar: "Uploading Text to 
WordStar"), or I can use the Model 100 as a full duplex termi- 
nal on the other computer if I don't exceed a 300 baud rate. If 
I run at higher data rates, the Model 100 screen scroll takes too 
long, and data from my big computer to Model 100-as- 
terminal is lost. 

If I hook up my Olympia daisy wheel typewriter/printer to 
the serial port of the Model 100 to use it as a 300 baud letter- 
quality printer, the 100 ignores the DSR signal, and sends data 
faster than the printer can print, garbaging the printout. 



The Up-Side 

The Model 100 is perfect for remote sites: programmers 
working in any language can use the 100 to key in, edit, and 
store their source programs wherever they are. The 14 digits of 
double-precision accuracy top the accuracy of the single- 
precision functions of other computers. 

If you live in an area with power interruptions, you can 
avoid computer glitching by keying in text with the 100 run- 
ning on batteries. The built-in calendar clock and modem pro- 
vide numerous remote controller possibilities. ■ 

Ken Barbier can be reached at P.O. Box 1253, Borrego 
Springs, CA 92004. 



Uploading Text to WordStar 

The TRS-80 Model 100 built-in text editor, Text, stores 
data in document files (.DO) in a format incompatible 
with larger microcomputers running WordStar under 
CP/M. I had to find a simple method to upload Text files 
to WordStar. 

If the Model 100 Telcom facility is used to upload files, 
it demands that you tell it how long a text line should be, 
and inserts hard carriage return (CR) characters into the 
text at the end of each line as the data is uploaded to the 
target computer (or modem, or printer). 

WordStar, on the other hand, inserts soft end-of-lines 
consisting of a carriage return character (0DH in hexadec- 
imal) with the eighth bit set on (8DH), followed by a line 
feed (LF) character (0AH). Only paragraph ends are 
marked with standard CR, LF (0DH, 0AH) sequences in 
WordStar. 

Since WordStar gets confused by plain text with a CR 
at the end of each line, but no LF, it can't be used to re- 
format such files. Therefore, the Model 100 Telcom pro- 
gram can't upload files to WordStar. To upload text from 
the Model 100 to my WordStar-CP/M system, I had to 
write UPLOAD. BA, shown in Program Listing 7. 

This program takes a Text document file named by 
the operator and sends it out through the serial port to a 
host computer without inserting CRs at line ends. Para- 
graph breaks are sent as they exist within a Text file, 
with a CR and LF, which is already WordStar-compat- 
ible. The end of the text file is signaled to the host com- 



10 PRINT "TRS-80 Model 100 TEXT to WordStar" 

20 MAXFILES = 2 

30 EF$ = CHR$(26) 

40 INPUT "File to send:";FI$ 

50 OPEN FI$ FOR INPUT AS 1 

60 OPEN "COM:88N2D" FOR OUTPUT AS 2 
100 A$ = INPUTS 1,1) 
110 PRINT #2,A$; 
120 IF EOF(l) THEN GOTO 1000 
130 GOTO 100 
1000 PRINT #2,EF$ 
1010 MENU 

Program Listing 7. This program permits uploading Mod- 
el 100 Text files to a host computer running WordStar 
under CP/M. 



puter by the CTRL Z character (1AH). 

This last special character is defined in the program 
(see Listing 7) in line 30. Line 40 prompts the operator 
for the name of the file to send, which should be entered 
in the form FILE. DO without quotation marks. Line 50 
then opens this file as input. 

Output to the serial port is established in line 60 with 
the baud rate set at 9600, 8 data bits, no parity, 2 stop 
bits, and XON/XOFF disabled (see the manual for de- 
tails on setting up the serial port). 

The document file is then transmitted character by 
character by the program loop starting at line 100. When 
the end of the document file is reached, a CP/M-com- 
patible terminator (EF$, 1AH, CTRL Z) is sent to the 
host computer, and the Model 100 returns to the menu 
display. 

For this output to be properly received by a CP/M 
computer, the Model 100 serial port has to be connected 
to the host computer reader device (RDR:) serial port. 
Since no serial port handshaking signals are recognized 
by the Model 100, the text has to be sent in a continuous 
block. 

To receive an uninterruptible input through the 
RDR:, the host computer inputs and buffers the text 
from the start to the end-of-file character, before writing 
it to the disk. This is accomplished under CP/M by in- 
structing the Peripheral Interchange Program (PIP) to 
create a disk file consisting of reader device input buf- 
fered in memory until the end-of-file is received: 

PIP TEXT. DOC = RDR: [B] 

Once Text. DOC (or whatever file name you chose on 
the receive end) has been written to the disk by PIP, 
WordStar can then reformat the file and insert its own 
soft end-of-line characters. Invoke WordStar, select 
Text. DOC as a document file, and execute the Word- 
Star global reformat with the command sequence: 

CTRL Q, Q, CTRL B 

What started as a Model 100 Text file is now a Word- 
Star-compatible document file. 

A similar technique can be used to upload Text files to 
other word processors running under other operating 
systems. ■ 
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IT HAD TO GO 

There's no reason to deprive you of solid microcomput- 
ing information just because it wouldn't fit between the 
covers of 80 Micro. But even 80, as thick as it is, can hold 
just so much. Here's the answer— The Rest of 80—3 1 
of the best tutorials and utilities, hand-picked from the 
overflowing files at 80 Micro. These never-before-pub- 
lished articles for the Model I and Model III were just too 
good to let them get away. 

SOMETHING FOR EVERYONE 



Whatever your programming skills, 
The Rest of 80 can help you learn 
more and save time and effort. Here are 
just a few of the chapters you'll find: 
An Unlistable, Unbreakable Program 
Adding Commands to BASIC 
Programming in Tiny Pascal 
Line Drawing 

Automatic Master Disk Directory 
Faster Loading for the Model I 
ASCII Converter 

A Better LDOS KSM 
And more on BASIC, 




Pascal, and assembly language! 
Every program is of the same high qual- 
ity you wait for every month in 80 
Micro. Now try The Rest of 80— a wel- 
come addition to your computer library. 

ISBN 0-88006-062-X, softcover with spiral bind- 
ing, 7x9, approx. 300 pp. BK7392 $9.97 

Call TOLL-FREE 1-800-258-5473 for 

credit card orders. Or mail your order with pay- 
ment or complete credit card information. In- 
clude $1.50 per order for shipping and handl- 
ing. Send to: Wayne Green Inc., Attn: Book 
Sales, Peterborough, NH 03458. 



Eft** 




A 

WAYNE 

GREEN 

PUBLICATION 

nnsssBmN 



copies of 

THE REST OF 80. Enclosed is $9.97 
(BK7392) per copy plus $1.50 per order .: ^ 
shipping and handling. 

D MasterCard Bank* fJVISA DAMEX 

Card # Expires 

Signature . 

Name 





337B8RB 
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GAME 



LOAD 80 



Collegiate Capers 



by Christopher Skapura 



I 



f you miss your undergraduate days, buy some 
new notebooks and dust off your mortarboard- 
here's your chance to go back to college. 



Variable 


Function 


AB 


Psychology lab (lag 


AL 


Amount of alcohol in system 


BA 


Check if given psychology magazine 


BO 


Paid tuition flag 


CM 


Chemistry pass/fail check 


CT 


Count of items carried 


C2 


Item sort counter 


DH 


Frat house check 


DN 


College dean's mood 


EX 


Exchange book for I.D. 


EN 


English pass/ fail check 


E2 


Exchange I.D. for book 


FA 


Financial aid flag 


FM 


Financial aid form complete 


GT 


Grade transcript check 


IB 


Inkblot check 


MF 


Manila folder/dean check 


\i N 


Amount of money left 


NM$ 


Character's name 


NU 


Concatenated input 


PE 


Phys. ed. pass/fail check 


RR$(37) 


herns in university 


P$(26) 


Location 


PL 


I ocation flag 


Pi $(26) 


Obvious exits 


PR 


Opponent 


Q 


For . . . Next counter 


QQ 


Temporary variable 


QS 


Temporary variable 


RES 


Input response 


RG 


Registration table flag 


RS%(37,26) 


Item, place array 


sc 


Present score 


SI 


Registered student flag 


ST 


Equipment theft check 


TR$(8) 


Array of items 


TT 


Specific item flag 


U 


For. . .Next counter 


YN 


Yes/No response 


Table 1. Variables List 



Are your college memories fading? 
Have you forgotten about freshman ori- 
entation, good frat parties, and English 
pop quizzes? 

This Model I/III adventure game 
takes you back. Beginning as an inno- 
cent freshman, you battle the admini- 
stration, professors, and other students 
for four years. A bachelor's degree is 
your goal— good luck! 

Playing Instructions 

Commands in the form of short sen- 
tences are accepted. You can enter "Get 
I.D.," or "Throw biology book," or 
simply type a direction of you want to 
walk (N, for example, moves you 
north). 

Type "Look around" to get a de- 
scription of your surroundings. "Inven- 
tory" or "Inv" produces a list of your 
supplies, and tells you if you're a fresh- 
man, sophomore, junior, or senior. 

A few red herrings are included in the 
game. As in life, not everything is im- 
portant to your goals. 

How It Works 

A 37- by 26-element array manipu- 
lates objects in the program. Specifical- 
ly, 37 objects are spread out over 26 
locations. If you get an object in loca- 
tion 10 (PL = 10) and drop it in location 
12 (PL =12), the array is changed to 
make the elements RS(36,10) equal zero 



The Key Box 

Model I or III 
48KRAM 
Disk Basic 
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DATA SELECTION 
BY JOB OR CLIENT 

INSTANT ACCESS TO 
CLIENT FILES 

PASSWORD 
PROTECTION 

PERSONALIZED 
DISK SYSTEM 

KEEP FAST, 
ACCURATE RECORDS 



Data-Timer is the brand new computer program that manages 
your billable time and resources more accurately and more 
profitably. And it's so simple to use. Used in conjunction with 
your Day-Timer™ Diary, Data-Timer is the ideal package for: 

advertising execs 
physii ians (either 
individual or 

group practice] 




net MIL.LIf 



Radio Shack 

CP/M 

IBM 



ATA TIMER C0MPUT6B PROGRAM 
ROW CHART FOR IWTIAt MTUP 



wHSLJHSw 



business executives accountants engineers medical therapists or 
consultants attorneys architects anyone who bills on 

an hourly basis 




Each Data-Timer Package comes complete with a Program Diskette; easy-to-follow Program Document, Day-Timer' 1 M one 
full year desk scheduler, and User's Manual; a Quick Reference Guide; and a pad of 350 Data Entry forms. And Data- 
Timers works on your Radio Shack™ TRS-80 Models II, 12 and 16; IBM™ Personal Computer and System 23 Datamaster; 
and CP/M. Minimum requirements: 64K of memory, 225K of disk storage total. And every Data-Timer Package is backed 
by our 100% Guarantee of Satisfaction. 

Data-Timer is marketed nationally through Day-Timer Corporation, Wayne Green Inc., and Data- Systems Company. 
Regional Customizing Centers are available for unique personalized requirements. 

*See Your Local Software Dealer for Software Contest Information 




DAY-TIMERS, Inc. 

SubtkJtary of BEATRICE FOODS CO. 

LENTOWN, PA 18001 



To order CALL: 1-21 5-395-5884 

or use coupon below || 



' ,1 WAYNE GREEN INC. 

I I PETERBOROUGH NiWHAMPS"l«EC3456 USA 



DATA SYSTEMS COMPANY 
HARRISBURG, PA. 17105 



IZlPlease send me_ 
$295.00 for my 



Data-Timers 
computer 



Company 

Nunif 

Address 
State 



Zip_ 



f Please send additional information 



Dealer inquiries invite 



Program Listing 

CLS: INPUT "DO YOU WANT DIRECTIONS?" ; RE$ : IFLEFT$ (RE$ , 1 ) ="Y"THENG 

1 CLS:PRINT"INTITIALIZING ...": CLEAR ( 250) : RANDOM : CT=1 : DIMRR$ ( 37) 
,P$(26) ,P1$(26) ,P2${26) ,RS% (37,26) ,TR$(8) :PL=l:GOT032 

2 FORQ=1TO750:NEXT:RETURN 

3 FORQ=1TO1500:NEXT:RETURN 

6 GEN=RND(6)+RND(6) +RND(6) : RETURN 

32 F0RQ=1T02:RS% (Q,2) =1 :NEXT: FORQ=3T05 : RS% (Q,3) =1 :NEXT: FORQ=5T06 
:RS% (6,Q) =1:NEXT:FORQ=10TO11:RS% (6,Q) =1:NEXT:RS% (6,14) =1:RS% (6,1 
5)=1:RS% (6,18) =1:RS% (6,21) =1:RS% (6 , 24) =1 :RS% (7 ,7) =1:RS% (8,8) =1 

33 FORQ=9T011:RS% ( Q, 11) =1 : NEXT: FORQ=12TOl4 : RS% (Q,12) =1:NEXT:RS% ( 
15,13)=1 

34 RS% (34,17) =1:RS% ( 26 , 23) =1 : F0RQ=16T018: RS% (Q,16) =1:NEXTQ:RS% (1 
9,17) =1:FORQ=20TO22:RS%(Q,19)=1:NEXTQ:RS%(23,20)=1:RS% (24,22) =1: 
RS% (25,23) =1:RS% ( 27 ,25) =1 : RS% ( 28 ,25) =1 : FORQ=29T031 : RS% (Q,26) =1:N 
EXTQ 

36 F0RQ=1T037:READRR$(Q) :NEXTQ 

37 DATAI.D. CARD TABLE REGISTRATION TABLE, HAM SANDWICH , BUTCHER K 
NIFE, NAPKIN, NOTHING, SECRETARY, BURSAR, ODDBALL PSYCHOLOGIST, MANILL 
A FOLDER, INKBLOT PAPER, ROOMFULL OF STUDENTS , DESKS AND CHAIRS, CLA 
SS PROCTOR, TOILET 

SINK, RECEPTIONIST 

38 DATADESK, BOOK, LIBRARIAN, ENGLISH PROFESSOR, CHALK , EXAM BOOKLET, 
TRASH CONTAINER, RECORDS KEEPER, COLLEGE DEAN, SHEEP SKIN,PHYS ED I 
NSTRUCTOR, TRACK FOR JOGGING, BLUTO , BOTTLE OF GRAIN ALCOHOL , PLEDGE 

PIN,I.D. CARD, BURSAR'S RECEIPT 

39 DATAPSYCHOLOGY TODAY , PAPER, GRADE TRANSCRIPT, TRANSCRIPT RECEIP 
T 

40 F0RQ=1T026:READP$(Q) :READPl$(Q) :NEXTQ 

50 DATAEDGE OF FOREST, N S , REGISTRATION HALL,N W E , CAFETERIA, W 
55 DATASTAIRWELL,UP DOWN E, STAIRWELL, DOWN E, HALLWAY, N S W,FINANC 
IAL AID OFFICE, W, BURSAR'S OFFICE ,N, STAIRWELL, E UP DOWN , HALLWAY , N 

E S W, PSYCHOLOGY LAB , S 
6 DATACHEMESTRY LAB , N , LAVATORY , S , STAIRWELL , E UP DOWN 
65 DATAHALLWAY,N E S W, STUDENT UNION ROOM , S , LIBRARY ,N , HALLWAY, N 
W S, ENGLISH CLASSROOM, S, STAIRWELL, UP DOWN E 
70 DATAHALLWAY,W E S, RECORDS OFFICE ,N, COLLEGE DEAN'S OFFICE, W, ST 

/ isling continues 



and RS(36,12) equal one. The one in- 
dicates that object 36 is present in loca- 
tion 10, and the zero indicates object 36 
is not present at location 10. 

The subroutine in lines 500-510 
checks what is or is not in each location. 
Lines 32-34 set up the initial objects and 
locations throughout the university. 

The workhorse of the program be- 
gins at line 5700. Starting here, execu- 
tion goes to a subroutine at line 3000 to 
check certain flags, returns to line 5700, 
makes sure that the values of certain 
variables are zero, and then prompts you 
for a two- word command. 

Depending upon the input, your lo- 
cation in the program, and the value of 
variables that you set as you proceed 
through the game, the program branches 
outward. 

A list of variables is included in Table 
1. Because of the program's length, I 
used no remark statements, and includ- 
ed many multi-statement lines. ■ 



Contact Christopher Skapura at 3105 
Oak St., Murrysville, PA 15668. 



Don't Leave Your Good 

FORTRAN Up To Chance 

Model II Direct Screen Input/Output With Pull Editing. $49.95 



For Free Brochure. . . 

The Proper Touch 
PO. Box 13760. 202 
Houston, Texas 77219 
^■423 




J ■ •: 





Vanguard 
Technologies 

R.R.t6 Box 113 Muncie, IN 47302 (317)759-812 8 ^166 



Tired of — 
Typing ? ' ■ Y 




Two 
Printers? 

Get 



vT 



The Smartest 
Printer Switch 
for Your Mo ney! 



Switch Wit $94.95 



• Centronics compatible parallel 
printer switch for MOD I, II or III. 

' Printer selection Automatic (CHR${2) 
and CHRSI3)) or Manual (switch). 
Lights indicate selected printer and 
automatic or manual operation. 
All data and control lines buffered. 



• Gold plated edge connectors. 

" No exposed circuit board connectors. 

• Power ON/OFF switch. 

' No MOD II cable modifications. 

• Comes complete with power supply, 
manual and demonstration program. 

• Specify computer type when ordering. 



Give Your Fingers 
a Break. $19.95 

Keyboard enhancement program 

* Compatible with both MOD I and III. 

* Only one keystroke needed to enter 
complete BASIC or DOS command. 

* Keyboard and One stroke commands 
easily redefin&d from keyboard. 

•Quick keyboard graphics entry. 

* Input line editor: Over type, Insert, 
Delete, Nondestructive cursor control. 

* Keybeep audio feedback via cassette 
port (amplifier required). 

* Complete with manual and users guide. 

* Specify DOS when ordering. 




. L 



AN OPTIMIZING COMPILER 
AND ASSEMBLER 

J,BWTBy 




"EMS 



FAST LOAD UBRARD3S: 

COMPILED CODE CAN BE STORED IN 
RELOCATABLE FILES 

INTERPRETER: 



DOCUMENTATION: 

THE MANUAL IS OVER 100 PAGES COVERING 
ALL A8PECTS OF THE SYSTEM. NUMEROUS 
EXAMPLES OF EACH FACILITY ARE INCLUDED. 

SUPPORT SOFTWARE: 

LITTLE META- TRANSLATOR WRITING 8Y8TEM 
« A LI8P PROGRAM WHICH PERMITS YOU 
TO SPECIFY THE 8YNTAX OF A PROGRAMING 
LANGUAGE AND HOW IT 18 TO BE INTERPRETED. 

REQUIREMENTS: 



ORDERING: 



SYSTEM MANUAL. ...»20. 

COMPLETE SYSTEM. .»ISO. 

LITTLE META MANUAL ONLY ...♦«. 

LITTLE META TRANSLATOR. ...*40. 
VISA and MASTERCARD 
PLEASE INCLUDE EXPIRATION DATE and CARD No. 



(fW) 



FAR WE8T SYSTEMS. SOFTWARE. INC. 
PO BOX 3301 EUGENE. OR 87403 
M03I 486-5155 



Si»«ii*BJirjSW«[«r«l»: 
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listing continued 

AIRWELL r UP E,GYMNASIUM,W,FRAT HOUSE r N 

80 GOSUB5220:GOTO5720 

100 PRINT: PRINT" PLACE : ": PRINT: PRINTP$ ( PL) : PRINT: PRINT"OBVIOUS 

EXITS : ";P1$(PL) : PRINT: PRINT"YOU CAN SEE :": GOSUB500 : RETURN 

119 F0RQ=1T0CT-1:IFTR$(Q)=RR$(33)THENTT=11:NEXT:RETURNELSENEXT:R 
ETURN 

120 F0RQ=1T0CT-1:IFTR$(Q)=RR$(35)THENTT=7 

121 NEXT:RETURN 

122 F0RQ=1T0CT-1 : IFTR$ (Q) =RR$ (37) THENTT=8 

123 NEXT: RETURN 

124 F0RQ=1T0CT-1 : IFTR$ (Q) =RR$ (36) THENTT=9 : RETURNELSENEXT: RETURN 

125 F0RQ=1T0CT-1:IFTR$(Q)="I.D. CARD"THENTT=1 

126 NEXTQ: RETURN 

127 FORQ=1TOCT-1:IFTR$(Q)=RR$(10)THENTT=2 
13 NEXTQ: RETURN 

132 F0RQ=1T0CT-1:IFTR$(Q) =RR$ ( 34) THENTT=3 
13 3 NEXT: RETURN 

135 F0RQ=1T0CT-1:IFTR$(Q)=RR$(18)THENTT=4 

136 NEXT: RETURN 

137 F0RQ=1T0CT-1:IFTR$(Q)=RR$(31)THENTT=5 

138 NEXT: RETURN 

13 9 F0RQ=1T0CT-1 :IFTR$(Q)=RR$( 30 )THENTT=6: NEXT: RETURNELSENEXT: RE 

TURN 

140 PRINT-DON 'T BE RIDICULOUS !": GOTO5700 

20 IFSK-100THENRG=1 : RETURNELSERG=2 : RETURN 

290 IFPL=28THENQ=1 : RETURNELSERETURN 

400 PRINT: PRINT-THE " ; RR$ (PR) ; " SEES THAT YOU DON'T HAVE STUDENT 

IDENTIFICATION!" :GOSUB2: PRINT" YOU ARE FIRMLY LED OUTSIDE OF THE 

UNIVERSITY" :GOTO30000 
405 PRINT"THE " ; RR$ ( PR) ; " SEES THAT YOU ARE" : PRINT"FIRMLY LED OU 
T OF THE UNIVERSITY! ":PRINT"YOU LOSE 1 I " : GOTO30000 

500 IFPL=1PRINT"THE UNIVERSITY ENTRANCE IS TO THE SOUTH AND THE 
FOREST TO NORTH": RETURN 

501 IFPL=17ANDAB=0THENFORQ=1TO33:IFRS%(Q,PL)=1THENPRINTRR$(Q) :NE 
XTELSENEXT 

502 IFPL<>17THENF0RQ=1T037: IFRS% (Q,PL) =1THENPRINTRR$ (Q) :NEXTELSE 
NEXT 

503 IFPL=17ANDAB=0THENFORQ=35TO37:IFRS% ( Q,PL) =1THENPRINTRR$ ( Q) :N 
EXTELSENEXT 

505 IFPL=12ANDCM=0PRINT:PRINT"THE PROCTER RUSHES UP TO YOU AS YO 
U ENTER THE ROOM AND" : PRINT" SAYS 'HURRY, HURRY! THE CHEMISTRY TE 
ST IS ABOUT TO START I " : PRINT"QUICKLY TAKE A SEAT!'" 

507 IFPL=19ANDEN=0PRINT:PRINT"THE " ; RR$ ( 20) ; " TELLS YOU TO SIT": 
PRINT"DOWN AND PREPARE FOR THE ENGLISH TEST." 

508 IFPL=26ANDAL=2PRINT"BLUTO SAYS, 'IF YOU TAKE JUST ONE MORE S 
LUG OF THAT ALCOHOL, ": PRINT"MAYBE I CAN GIVE YOU SOMETHING..." 
510 RETURN 

600 IFCMO100PRINT:PRINT"YOU OPEN UP THE TEST BOOKLET AND BEGIN 

THE TEST. . .":GOSUB3 

605 IFCM=100PRINT"YOU HAVE ALREADY TAKEN THE TEST, " ;NM$ : GOTO570 



610 IFCMO100THENCM=100: IFDH=100THENPRINT"WITH THE HELP OF THE C 

HEAT SHEET, YOU BREEZE THROUGH THE" : PRINT"TEST WITH NO PROBLEMS! 

":CA=100:PRINT"YOU TURN IN YOUR TEST FORM AND RECEIVE AN ' A+ ' ON 

IT1":SC=SC+10:GOTO57 00 
620 IFDHO100PRINT"THE ENTIRE TEST APPEARS TO BE WRITTEN IN A FO 
RIEGN LANGUAGE! " : GOSUB3 : PRINT"YOU SPEND THE ALOTTED TIME ON THE 
TEST BUT CAN'T": PRINT" ANSWER EVEN ONE QUESTION! YOU FAIL MISERAB 
LYI":GOSUB3:PRINT"YOU ARE EXPELLED FROM THE UNIVERSITY I ": GOT03 00 
00 

700 IFBO=100ANDEX=0PRINT"THE ";RR$(16); B SAYS SHE NEEDS" : PRINT"T 
HOLD YOUR STUDENT IDENTIFICATION IN EXCHANGE FOR THE BOOK . " : GO 
TO5700 

710 IFBOO100PRINT"THE " ;RR$ (16) ; " SAYS YOU MUST" : PRINT"BE A REG 
ISTERED STUDENT BEFORE SHE CAN HELP YOU. " : GOTO57 00 

720 IFEX=100ANDBO=100ANDRS% (18,16) =1THENPRINT"THE " ; RR$ ( 16) ; " LE 
TS YOU TAKE THE BOOK. " : GOTO11030 

730 IFBO=100ANDEXO100ANDRS% (32,16) =1THENRE$=RR$ ( 32) :GOTO11030 
735 IFE2=0ANDRE$=RR$(32)THENPRINT"THE " ;RR$ ( 16) ; " SAYS SHE WILL 
EXCHANGE YOUR" : PRINTRRS ( 3 2) ; " FOR THE BOOK. " :GOTO5700 
740 IFE2=100ANDRE$=RR$(32)PRINT"THE ";RR$(16); n GIVES YOU YOUR " 
;RR$(32) :EX=0:E2=0:GOTO11030 

800 IFPL=2PRINT"YOU COMPLETE THE FORM. WHEN YOU HAND IT BACK": PR 
INT"TO THE RECEPTIONIST, SHE SLIDES A PLASTIC CARD WITH STRANGE" 
:PRINT"NUMBERS ON IT AT YOU . " : FM=1 : GOTO57 00 

805 RE$=RIGHT$(RE$,NU) : GOSUB9000 : IFPL=7ANDFA=0AND (RE$="FORMS"ORR 
E$="FORM")THENPRINT"IT TAKES A WHILE" : GOSUB2 : PRINT"BUT YOU COMPL 
ETE THEM1":PRINT"THE ";RR$(7);" GIVES YOU 2100 DOLLARS FOR YOUR 
TUITION! " :MN=MN+2100:FA=100:GOTO5720 

807 IFPL=7ANDFA=100PRINT"YOU'VE ALREADY GOTTEN FINANCIAL AID!":G 
OTO5720 
810 IFPL=12ANDRE$="TEST"THEN600 

899 PRINT"NO RESPONSE" :GOTO5720 

900 IFAL=0PRINT"AS YOU REACH FOR THE " ;RR$ ( 31) ; " , BLUTO DROPS HI 
S HAND":PRINT"OVER IT AND SAYS, 'NOT SO FAST! WE DON'T LET JUST 
ANYONE PLEDGE" :PRINT"DELTA HOUSE i '": PRINT: GOSUB3 : PRINT" ' FIRST YO 

Listing continues 



Verbatim® 
Diskettes 



>;. 



Top-quality Verbatim® Diskettes 
from Tech* Data, your complete 
supply and peripheral wholesaler. 
Dealers only. 

Call Toll Free 
1-800-237-8931. 

In Florida, call 



813-577-2794. 



V 



Tech* Data Corporation 

325 1 Tech Drive North 
St. Petersburg, FL 33702 




• Allows you to duplicate most protected 
software 

• Automatically copies: $34.95 

- Multiple Sector Sizes 

- Dual Density Tracks 

- Any Sector Numbers 

- False Track Numbers 

- Bad Sector IDs as used (or Protection 

- False Side Numbers 

• Complete error messages 

• Requires 48K and 2 disk drives 

• Specify Model I or Model III 

OMNISOFT RESEARCH 

2170 W. Broadway, #501 A 
Anaheim, CA 92804 
714-772-5000 - 36 



MICRO DESIGN 

If you doN'i kNow ?ht numder, you should. 



MDX-2 *469<> 5 



Modf.t I ExpANsiom sysiEM wiih i, SM 
PHONE MODEM, DISK 
CONTROLLER, EPROM, >2K 

MlMORY ANd ML< h MORI. '' 76 



«74" 



UPGRADE 

TRS ttO, Modi I 4 sysrnvi 
i pqciAdi inc li cliNC, ihi 
fxopiioNAl MDX 6 DISK 
CONTROLLER, Oni 40 inAck 
Disk Duivi, CAblis ANd 
hAitdwAKt. »*' 



VisA& 

Mas line ai«I 

•V i i pii i! 



$}QQ00 



MICRO DESIG. 

101 Manchaca Road.' Suite B Austin. Texas. 71 

1-800-531-5002 

Texas Res. Call 512-441-7890 

See our other ads 



-See List of Advertisers on Page 323 
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££■ BOWLING BSg 

TOnd I Scores LEAGUE Sub.mL"« 

Har>dicaps F'omts 

Teams CTATICTl/^C Averages 
Players Ol/AlIollVxO Schedules 

FortheTRS-80* 

BOWLSTAT 2 5 will generate team standing 
sheets suitable for posting with full team and 
player statistics, and also prints league scoring 
sheets A wide range of handicapping and 
scoring options meets almost any league's 
requirements F.ntry of weekly scores is fast 
and simple with extensive prompting and 
error detection 

On Diskette with User's Manual 

Mode; I. 111. IV Model II, 12, 16 

•79.95 $119.95 

Manual Only 

(Deductible on purchase of Diskette) 

$9.95 

Pa residents add 6% Sales Tax 

Datascore - 438 

Box 995, Sharon. Pa. 16146 

'Trademark of Tandy Corp 




CHURCH DONATIONS 



Computer Program for TRS 80 Models I, II, & III 

RECORDS, STORES & REPORTS 

Gives printout of collections, totals to date as well as 
individual quarterly reports to congregation members 

• NOW AVAILABLE • 

Additional modules to provide: 

Church Directory or 

Attendance Record or 

Membership Profile 

Radio Shack ••••• 
Five-Star Rating 

^307 

For Information, Contact: 

John A. Parker 
CUSTOM DATA P.O. Box 1066 

505-434-1096 Alamogordo, NM 88310 



MICRO- DESIGN 

If you cJon'i Icnow The numdeij, you should. 



MDX 5 J 20o<» 



Modi I 4 EXpANSiON SVSIEM 

ItAiuniNq The MI)X FLOPPY 

DISK ( ONTROUER, DIRFC1 
CONNECT PHONE MODEM, 

A SOI TWARF PROC.RAMABLf 
SERIAL PORT, ft II Mcxltl ' 
C.ovipAiAbiliiv. 



Illl\ ASMMllll 

Ml)\ > Swiiw 



$7495 



CRO DES 

Manchaca Road. Suite B Austin. Texas. 7£ 

1-800-531-5002 



Texas Res. Call 512-441-7890 
See our other ads 



Lining continued 

U HAVE TO PROVE YOU'VE GOT WHAT IT TAKES I ' " : GOSUB3 

910 IFAL=0PRINT:PRINT"BLUTO POINTS AT THE " ; RR$ ( 30) ; " AND": PRINT 

"SAYS, "CHUG IT. ' ":GOTO5700 

920 IFAL=1PRINT"BLUT0 SAYS, 'YOU CAN DO BETTER THAN THAT, CAN'T 

YA?":PRINT"DRINK SOME M0RE1 " :GOTO5700 

930 IFAL=>2PRINT" 'THATS THE SPIRIT,' BLUTO SAYS. 'GO AHEAD AND T 

ARE THE PLEDGE" :PRINT"PIN1 ' " : RE$=RR$ ( 31) :GOSUB3 :GOTO11030 

999 PRINT B GET WHAT?" :GOTO57 00 

1000 GOSUB90 00:RE$=RIGHT$(RE$,NU) 

1005 IFPL=2ANDFMO100ANDRE$="FORM"PRINT"THE FORM IS TITLED 'STUD 
ENT I.D. APPLICATION FORM" : PRINT" AND ASKS FOR YOUR NAME, SEX AND 

AGE.":GOTO5700 
1010 IFRE$=RR$ (10) THENGOSUB127:IFTT=2PRINT" INSIDE THE n ;RR$(10); 
" IS A ANALYSIS OF THE COLLEGE DEAN 1 ": PRINT: PRINT"THE REPORT CON 
CLUDES THAT 'THE SUBJECT" : PRINT"HAS STRONG DELUSIONS OF GRANDEUR 

AND EXHIBITS" :PRINT"SCHIZOPHRENIC TENDENCIES." 
1012 IFRE$=RR$(10) ANDTT=2PRINT:PRINT"HE ALSO HAS DISPLAYED TO TH 
IS PSYCHOLOGIST A HIGHLY" : PRINT" IRRATIONAL FEAR OF THESE CONCLUS 
IONS BEING MADE PUBLIC. " :GOTO5700 

1015 IFRE$=RR$(10)THENGOSUB127:IFTT<>2THENPRINT"YOU HAVE TO GET 
THE n ;RR$(10) ; " BEFORE" : PRINT"Y0U CAN READ IT. " :GOTO5700 
1020 IFRE$=RR$(34)THENGOSUB132:IFTT=3THENPRINT"THE ";RE$;" IS FI 
LLED WITH": PRINT" INCOMPREHENSIBLE, PSUEDO-SCIENTIFIC JARGON. ":GO 
TO5700 

1025 IFPL=12ANDRE$="TEST"THENGOTO60 

1030 IFRE$=RR$(18)G0SUB135:IFTT=4THENPRINT:PRINT"THE BOOK IS ENT 
ITLED 'THE ROAD TO COMMENCEMENT '": GOSUB3 : PRINT" IT LISTS THE FOLL 
OWING STEPS TO ACHIEVE A" : PRINT" LEVEL OF POWER TERMED ' GRADUATIO 
N.":GOSUB3:PRINTTAB(10) "1. GET I.D. CARD AND REGISTER FOR CLASSE 
S." 

1035 IFRE$=RR$(18)ANDTT=4PRINTTAB(10) "2. PAY TUITION. ": PRINTTAB ( 
10) "3. ACHIEVE PASSING GRADE IN ENGLISH, CHEMISTRY AND" : PRINTTAB 
(14) "PHYSCICAL EDUCATION.": PRINTTAB (10) "4. GET GRADE TRANSCRIPT. 
": PRINTTAB (10) "5. TAKE PAPERWORK TO COLLEGE DEAN." 
1040 IFRE$=RR$(18) ANDTT=4PRINTTAB ( 10) "6. HOPE COLLEGE DEAN IS I 
N GOOD MOOD.":GOSUB3:GOTO57 00 

1042 IFRE$=RR$(18)G0SUBl35:IFTTO4PRINT"MAYBE YOU SHOULD GET IT 
FIRST1":GOTO57 00 

1045 IFRE$=RR$(35)GOSUB120:IFTT=7THENPRINT"THE PAPER IS A CHEAT- 
SHEET WITH":PRINT"ALL THE ANSWERS TO THE CHEMISTRY TEST ON IT1": 
GOTO5700 

1099 PRINT"THERE'S NOTHING HERE TO READ, " ;NM$ ; " . " : GOTO5700 
1500 PRINT"Y0U'VE ALREADY COMPLETED YOUR BUSINESS THERE 1 MOVE AL 
ONG1":GOTO5720 
1525 GOSUB9000 

1530 RE$=RIGHT$(RE$,NUM) ;IFPL=2AND(RE$="PLASTIC CARD "0RRE$=" CARD 
"ORRE$="I.D. CARD")THENG0SUB125:IFTT=1THENPRINT"THE CLERK GLANCE 
S AT THE ";RE$;", WRITES ,": PRINT"YOUR NAME DOWN ON A SHEET AND S 
AYS 'REGISTRATION COMPLETE! ": SI=-1000:GOTO5720ELSEGOTO2900 
1532 IFPL=11G0SUB125:IFTT<>1PRINT"Y0U DON'T HAVE A " ; RR$ (32) :G0T 
05700 

1534 IFRE$=RR$(32)GOSUB125:IFTTOlPRINT"YOU DON'T HAVE A ";RR$(3 
2) :GOTO5700 

1535 IFPL=11ANDOBO100PRINT"THE ";RR$(9);" CHECKS HIS RECORDS" :P 
RINT"AND SAYS 'I'M SORRY, YOU MUST PAY YOUR TUITION BEFORE I CAN 
":PRINT"HELP YOU ! " -.GOTO5700 

1540 IFPL=7 AND (RE$="CARD"ORRE$=" PLASTIC CARD"ORRE$=RR$ ( 32) ) THENG 

0SUB125:IFTT=1PRINT"THE ";RR$(7);" CROSS-REFERENCES YOUR CARD WI 

TH HER RECORDS. "ELSEPR=7:GOT04 00 

1545 IFPL=7ANDSK-100PRINT"THE ";RR$(7);" SLIDES A THICK STACK 

F FORMS TO YOU.":GOTO5700ELSEIFPL=7ANDSI>=-100PRINT"THE ";RR$(7) 

;" SAYS THAT YOU ARE NOT A REGISTERED STUDENT I " : PR=7 : GOTO40 5 

1550 IFPL=23ANDRE$=RR$(32)PRINT"THE ";RR$(25); n SAYS, 'THATS NOT 

":PRINT"GOOD ENOUGH, CHUMP i " : GOSUB2 : PRINT"GIVE IT TO ME!":GOT057 

00 

1555 IFPL=23ANDRE$=RR$(33)PRINT"THE " ;RR$ ( 25) ; " ' S HAND SHOOTS OU 

T":PRINT"AND HE SAYS 'LET ME SEE THAT1 " : GOTO5700 

1557 IFPL=23ANDRE$=RR$(37)THENPRINT" 'GIVE IT TO ME, CHUMP 1'": GOT 

05700 

1560 IFPL=23ANDRE$=RR$(10)THENGOSUB127: IFTT=2PRINT"THE ";RR$(25) 

;"'S FACE TURNS PALE1 " :GOSUB3 : PRINT"HE SAYS : 'LOOK, I WILL BE F 

AIR WITH YOU I IF ALL OF" : PRINT"YOUR RECORDS ARE STRAIGHT, YOU CA 

N HAVE THE DIPLOMA1 " : MF=100 : GOTO5700 

1599 PRINT"YOU SHOW IT BUT NOTHING HAPPENS. ": GOTO5700 

1600 IFPL02THEN PRINT"NO RESPONSE" :GOTO5700 

2200 F0RQ=1T0CT:IFTR$(Q) =RR$ (34) THENAB=100 :NEXTELSENEXT 
2202 IFPL=11ANDBA=500THENRE$=RR$(10) : SC=SC+5 : GOTO11030 
2205 IFABO100PRINT"THE ";RR$(9); B STOPS YOU AS YOU" : PRINT"REACH 
FOR THE ";RR$(10) ; " AND SAYS , " : PRINT"THAT IS A CONFIDENTIAL FIL 
EI I CAN'T LET YOU SEE IT" : GOSUB2: PRINT"UNLESS ..." :GOSUB2: PRINT 
"YOU BRING ME A COPY OF THE MAGAZINE 'PSYCHOLOGY TODAY'" 
2210 IFPL=11ANDABO100THEN5700 

2230 IFPL=11ANDAB=100ANDBAO500PRINT"THE " ;RR$ ( 9) ; "SAYS 'FIRST G 
IVE ME THE MAGAZINE1":GOTO5700 

2240 IFPL=11ANDBA=500THENRE$=RR$(10) : SC=SC+5 :GOTO11030 
2500 GOSUB9000:RE$=RIGHT$(RE$,NU) : IFPL=7ANDLEFT$ (RE$ ,1) ="Y"THEN2 
550 

Listing continues 
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: PRINT" SAYS 'YOU 
;PRINT"OFFICE. GE 



Listing continued 

2505 IFPL=7THEN10050 
2510 IFPL=8THEN10075 
2515 IFPL=11ANDIB=1PRINT"THE PSYCHOLOGIST MUMBLES APPROVINGLY AT 

YOUR RESPONSE" :PRINT"AND HE SHOWS YOU ANOTHER INBLOT. 'AND THIS 

ONE? ' " : IB=2 : GOT057 00 
2517 IFPL=11ANDIB=2PRINT" 'INTERESTING, INTERESTING. aND WHAT DO 
YOU THINK OF THIS ONE?" : IB=3 :GOTO5700 

2520 IFPL=11ANDIB=3PRINT"THE ";RR$(9);" FROWNS DISAPPOINTEDLY AN 
D SAYS, 'ALAS, ":PRINT"YOU APPEAR RELATIVELY NORMAL. YOU HAVE NO 

NEED FOR THERAPY. ' " : IB=4 : GOTO5700 

2549 PRINT"NO RESPONSE" : GOT057 20 

2550 PRINT"THE ";RR$(7);" NODS HAPPILY AND ASKS TO SEE" : PRINT"YO 
UR STUDENT IDENTIFICATION .": PR=7 :G0SUB125 : IFTT=1THEN5700ELSE400 
2600 PRINT"THE ";RR$(7);" GIVES YOU A THICK STACK OF FORMS TO CO 
MPLETE":GOTO5700 

2610 GOSUB9000:RE$=RIGHT$(RE$,NU) : IFPL=8ANDMN>=2000ANDRE$="TUITI 
ON"ANDBOO100THENMN=MN-2000:PRINT"THE ";RR$(8);" TAKES YOUR MONE 
Y AND SLIDES YOU A RECIEPT. " : RS% ( 33 , 8) =1 :BO=100 : GOTO5700 
2615 IFPL=22ANDMN>=10THENGOTO2700ELSEIFPL=22ANDMN<10PRINT"YOU DO 
N'T HAVE ENOUGH MONEY TO DO THAT! " :GOTO5700 

2620 GOSUB3300:IFYN=100THEN5700ELSEIFPL=8AND(RE$="10 DOLLARS"ORR 
E$="FOR GRADE TRANSCRIPT"ORRE$="FOR GRADE TRANSCRIPTS "ORRE$=RR$ ( 
36) ORRE$=" TRANSCRIPT FEE" ) THENPRINT"THE BURSAR SLIDES YOU A RECE 
IPT. " : RS% ( 37 , 8) =1 : MN=MN-10 : GT=1 : SC=SC+7 : GOT057 00 
2625 PRINT"PAY WHAT, ";NM$;"?" 
2630 GOTO5720 

2700 PRINT"THE ";RR$(24);" SHAKES HER HEAD AND" 
HAVE TO PAY FOR THE TRANSCRIPT AT THE BURSAR'S* 
T A transcript receipt FOR IT AND BRING IT BACK HERE" : PRINT" AND 
THEN I CAN LET YOU HAVE THE " ; RR$ ( 36) : GOTO5700 

2900 IFSI>1PRINT"THE CLERK YELLS, 'THIS PERSON IS NOT COOPERATIN 

G! EXPEL HIM!"GOTO13800ELSEGOTO5700 

2975 C2=l:FORQ=lTOCT-l 

2980 IFTR$(Q)=""THENC2=C2ELSETR$(C2)=TR$(Q) :C2=C2+1 

2985 NEXT:CT=C2:FORQ=CTT08:TR$(Q) ="": NEXT: RETURN 

3000 ST=0:IFAL=0RETURN 

3005 FORQ=lTOCT-l: IFTR$(Q) =RR$ ( 35) THENDH=100 rNEXTELSENEXT 

3010 IFAL>2Q=RND(10) : IFQ=3CLS : PRINTCHR$ ( 23) "YOU PASS OUT 

FROM TOO 

MUCH ALCOHOL! I I " : GOSUB3 : CLS : AL=1 : Q=RND (CT-1) : IFQ=0THEN5700ELSERE 

$=TR$(Q) :TR$(Q)="":FORU = 1TO37:IFRE$=RR$(U)THENQQ=U:GOTO3 090ELSEN 

EXT 

3020 IFST=1PRINT"WHEN YOU AWAKEN, YOU DISCOVER THAT SOME OF YOUR 

": PRINT" EQUIPMENT HAS BEEN STOLEN I " :GOSUB3 : AL=1 : ST=0 : SC=SC+3 : RET 

URN 

3050 RETURN 

3089 PRINT"GLITCH.":GOTO5700 

3090 IFQQ=0THEN5700 

3095 Q=RND(26) :QH=Q:RS% (QQ,Q) =1 :ST=1 :GOTO3020 

3100 IFBOO100PRINT"YOU HAVE TO PAY YOUR TUITION FIRSTI " :GOTO570 



3105 IFGT=0AND(EN<3ORPEO100ORCMO100)PRINT"YOU HAVE TO FINISH T 

HE ENTIRE CURRICULA FIRST 1 " :GOTO5700 

3110 IFGT=0PRINT"THE ";RR$(24);" SAYS 'THAT COSTS" : PRINT"10 DOLL 

ARS FOR THAT! '":GOTO5700 

3115 IFGTO100PRINT"THE ";RR$(24);" SAYS 'GIVE ME THE ";RR$(37): 

GOTO5700 

3120 IFGT=100PRINT"THE ";RR$(24);" GIVES YOU THE " ; RR$ ( 36) : RS% ( 3 

6,22)=1:RE$=RR$(36) :GT=500 : SC=SC+3 :GOTO11030 

3149 PRINT"GET WHAT?" :GOTO57 00 

3300 IFMN<10ANDPL=8AND(RE$="10 DOLLARS"ORRE$="FOR GRADE TRANSCRI 

PT"ORRE$="FOR GRADE TRANSCRIPTS "ORRE$=RR$ (36) ORRE$="TRANSCRIPT" ) 

PRINT"YOU DON'T HAVE THAT MUCH MONEY 1 ": GOSUB2 :YN=1 00 

3305 IFGT=1PRINT"Y0U ALREADY DID THAT! " :YN=100 : RETURN 

3310 RETURN 

3400 IFCT>5PRINT"DROP SOMETHING FIRSTI 1 !" :QQ=100 

3 410 RETURN 

3500 IFDN=0THENPRINT"THE ";RR$(25);" CHUCKLES. 'HEH HEHI":PRINT" 

YOU DIDN'T THINK IT'D BE THAT EASY, DIDJA? ' " : GOSUB3 

3505 IFBOO100PRINT"YOU HAVEN'T EVEN PAID YOUR TUITION YETl":GOT 

05700 

3510 G0SUB3: PRINT: IFCM=100ANDEN>=3ANDPE=100THEN3520ELSEPRINT"YOU 

HAVEN'T EVEN GONE THROUGH THE CURRICULA YET I 1 1 " : GOTO5700 
3520 IFDN=0PRINT" 'FIRST OF ALL, LET ME SEE YOUR STUDENT IDENTIFI 
CATION! ":GOT057 00 

3530 IFDN=1PRINT"N0W GIVE ME YOUR GRADE TRANSCRIPT 1 " :GOT057 00 
3540 IFDN=2PRINT" AGAIN THE DEAN STANDS IN YOUR WAY 1 " :G0SUB3 :PRIN 
T: : PRINT" 'HMM... WE SEEM TO HAVE TEMPORARILLY LOST YOUR RECORDS 1 " 
:G0SUB3:PRINT"D0 YOU HAVE ANY PROOF THAT YOU PAID YOUR TUITION?" 
:GOTO5700 

3550 IFDN>2ANDMF=0PRINT"THE ";RR$(25);" FROWNS DISGUSTEDLY. ": GOS 
UB3:PRINT"HE SAYS 'I DON'T LIKE YOUR FACE! " :PRINT: G0SUB2: PRINT"Y 
OU'VE GOT ALL THE PAPERWORK, BUT I'M NOT GOING" : PRINT"TO GIVE YO 
U THE DIPLOMA! ":G0SUB3:PRINT"T0UGH LUCK, KIDD01 HEH, HEH":GOT057 

00 

3555 IFDN>2ANDMF=100PRINT"MUMBLING ANGRILY, THE " ; RR$ ( 25) : PRINT" 
STANDS ASIDE AND SAYS, 'TAKE IT, THEN !'": RE$=RR$ ( 26) : PRINT" ' YOU 
HAVE WON . . .":SC=SC+50:GOTO11030 

Listing continues 



SOFTWEAR TO GET YOU 
OUT OF THE CLOSET. 




Soft wear, Inc.® M-8 

P.O. Box 572 Bellevue, Washington 98009 
Order by phone 206/644-3469 or DCheck or Money 
Order enclosed. Charge my GMastercard DVisa 
Exp. Date Card # 

Qty. Size Color Slogan 



This fine quality Cotton/Polyester blend T-Shirt 
available in Sm, Med, Lg, XL and Green, Red, Lt. Blue 
or Black. Slogans include (A) Take a MegaByte. (B) 
This Software User Friendly. (C) This Unit 
programmed in Basic. (D) Who needs Brains when 
you have a Computer. T-Shirts $12.50 each. 
□ For other Shirt styles send $2.50 catalog. ^261 

Name 

Address 

City 



State 



Zip 

Postage paid Wushinglon State residents add sates t 




$565 



(SHIPPING 
INCLUDED) 



160 CPS 11x9 DOT MATRIX 
GRAFTRAX-PLUS 

SUPERSCRIPT/SUBSCRIPT 

TRUE UNDERLINING 

FRICTION AND TRACTOR FEED 

ADJUSTABLE TRACTOR $55 

4K SERIAL BOARD (RS 232) $150 

APPLE II BOARD AND CABLE $80 

TRS 80 EXP INT CABLE $25 

IBM PC CABLE ....'. $30 

STAR GEMINI 10 . . . $"3*0. $350 

BRUM ELECTRONICS 

151-07 20 AVE 
WHITESTONE, N.Y 11357 ^532 

(212) 767-4353 

ALLOW 2 WEEKS FOR PERSONAL CHECKS 

CERTIFIED CHECKS IMMEDIATE 

MONEY ORDERS DELIVERY 

COD ADD $2 NY RESIDENTS ADD TAX 



MICRO DESIGN 

If you doN'i kNow the NuiwbER, you should. 



MDX-5 *i59 Q5 

Fori tIk MckIeI 4 UsfR who MDX > Sysicw 

aIrcuIv Iias floppy disk iliis is 
ihi PHONr MODfcM & SERIAL 



llll.l l».M«l !. 



Visa (S Masiiik «n<S Ac c i|)iii 



iVI LJ/xO l,IK V,s.mI>I.cI 



$4Q 



05 



sSee List of Advertisers on Page 323 



WDSo Svmim 

Mi( liO DfisC ( NS sia.ncI aIoni 

(LOPPY DISK CONTNOLLLR 

BOARD lot< voir Modi I 4 ^428 "m'^m," 



MICRO DESIGN 

6301 Manchaca Road. Suite B Austin. Texas. 78745 

00-531-5002? 

exas Res. Call 512-441-7890 
See our other ads 
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» FOR flPARDefT BUILDING OUNERS » 

APARTMENT BUILDING 

MANAGEMENT SYSTEM 

Computerize your «aTia9ement functions 
for up to 30 apartment buildings. 
Performs all necessary accounting -for 
all owner and tenant transactions. 

Transactions include: Rent Pints? Late 
Chr9si Mort Pints* Utility Pmtsr Taxes* 
Insurance* Capital Expenditures* 40 
User Categories t Income & Expenses) 
and much more. 

Produces many reports: Audit Trail t 
Late Rents* Percent Rtn on Inv* G/L 
Full Dump* Income* Expenses? Taxes* 
Investments* Rcvd Rents* Late Chrg* 
Deductables* Utilities* Insurance* 
Percent Occupancy* Prof it/Loss Stmt* 
User Cat's* Vacant Units and more. 

Runs on TRS-80 Model I & III 32K. 
Supports Hard Disk Drive operation. 
==> Send for FREE Description and 

Sample Printouts. 
==> Also available is FREE 1933 

Software Catalog with 

complimentary Phone Directory 

Program. 

COST" Or-JJL_Y ■*>•• *?■ - «5>£i 

COLEMAN COMPUTER SERVICES 

P.O. BOX 588. ST. fiUHHS, N.Y. 11412 



CIRCUIT SOLVER I 




You don'! have to be an 
engineer to make produc- 
tive use of this program A 
large clear 'manual leads 
you through the use ot Cir 
cuit Solver using sample 
problems which have prac- 
tical ipplication 



Features 

• Simple Circuit Entry 

• Circuit Listing 

• Circuit Storage & 
Retrival 



Easy Circuit Editing 
Supports Op-Amps 
Many Useful Sample 
Circuits 



ORDER # 
CSI-100C PETCBM64* $34 95 

CSI-101C APPLE* 34 95 

CSI-102C TRS-80* 34 95 

Include $2.50 shipping and handling. 
'PET CBM 64. APPLE and TRS-80 are ' Trademarks 
ot Commodore Apple Computer and "-)'■■;, flese 

^432 



SHS SOLUTIONS 



1430 N. LATROBE 
SUITE 2A 
CHICAGO. IL 60651 



TRS80 color 

From the January 1981 issue ot the CSRA Computer 
Club newsletter: 

There was some amusement at the Noven 
ber meeting when the Radio Shack repre- 
sentatives stated that the software in the , 
ROM cartridges could not be copied. This 
months 68 Micro Journal reported they had 
disassembled the programs on ROM by 
covering some of the connector pins with 
tape. They promise details next month Never 
tell a hobbyist something can't be done! This 
magazine seems to be the only source so far 
of technical informations on the TRS-80 color 
computer'" Devoted to SS-50 6800 and 
6809 machines up to now, 68 Micro Journal 
plans to include the TRS-80 6809 unit in 
future issues 

To get the MOST from your 6809 CPU - This is the 
BEST SOURCE! The ONLY Magazine for the 8809 
Computer Months Ahead ot All Others! 

68 MICRO JOURNAL 

5900 Cassandra Smith Rd. 
Hixson, TN 37343 

USA 
1 Yr.— $24.50 2 Yr -$42.50 3 Yr — $64.50 
'Foreign Surface Add $12 Yr. to USA Price 

Foreign Air Mail Ado S35 '- to USA Price 
•Canada & Me>ico Add $5 50 Yr lo USA Price "-^'J 



l.istinit tun tinned 

3599 PRINT"GET WHAT?" : GOTO5700 

3600 CLS: PRINT: PRINT"YOU MOVE AWAY FROM THE UNIVERSITY I" 

3605 FORQ=lTOCT-l: IFTR$(Q) =RR$ (26) PRINT: PRINT"YOU HAVE GOTTEN TH 
E TREASURED DIPLOMAil ": PRINT: PRINT"YOU WIN 1 1 I " : PRINT: PRINT"WOULD 

YOU LIKE TO TRY AGAIN?" :GOTO3650ELSENEXT 
3610 PRINT: PRINT"BUT YOU DON'T HAVE THE DIPLOMAI ": PRINT: PRINT" YO 
U LOSEl":PRINT: PRINT" WOULD YOU LIKE TO TRY AGAIN?" 
3650 CH$=INKEY$: IFCH$="Y"ORCH$="N"THEN3660ELSE3650 
3660 IFCH$="Y"THENRUNELSEEND 

5220 CLS : PRINT @7 9, "CHARACTER'S ATTRIBUTES" :GOTO523 
5230 PRINT: PRINT" STATUS :";: IFSC<10THENPRINT" INCOMING FRESHMAN"E 
LSEIFSO=10ANDSC<20PRINT" SOPHOMORE" ELSEIFSO=20ANDSC<30PRINT" JUN 
IOR"ELSEIFSO=30ANDSC<40PRINT" JUNIOR" ELSEIFSO=40ANDSC<50PRINT"S 
TUCK-UP SENIOR"ELSEIFSO70PRINT"GRADUATE1" 
5235 PRINT: PRINT" PLACE : ANYSTATE UNIVERSITY" : PRINT 

5245 PRINT" TOTAL DOLLARS - ";MN 

5246 PRINT@577, "EQUIPMENT: " ; : IFCT=1PRINT@769 , "NOTHING" ELS EFORQ= 
1T0CT:PRINTTR$(Q) ,:NEXT 

5247 IFNM$=""THEN5250ELSEPRINT@512, "CHARACTER'S NAME - ";NM$ 

5248 PRINT8577," EQUIPMENT :"; : IFCT=1PRINT@769 , "NOTHING"ELSEFORQ= 
1T0CT:PRINTTR$(Q) , :NEXTQ:G0SUB2 : RETURN 

5249 GOSUB3: RETURN 

5250 PRINT@833,"WHAT DO YOU NAME THIS CHARACTER?" 

5251 INPUT NM$:IFLEN(NM$) >12PRINT"MAXIMUM OF 12 CHARACTERS, PLEA 
SEl":GOT05251ELSEGOT05247 

5290 GEN=RND (6) +RND ( 6 ) +RND ( 6) : IFGEN=18THENGEN=GEN+RND ( 6 ) ELSEGEN= 

GEN : RETURN 

5500 GOTO5720 

5700 QQ=0:GOSUB3 000:YN=0:TT=0:Q=RND(350) : PRINT "COMMAND ?":INPUTR 

E$:GOTO5 90 0ELSEGOTO590 

57 20 QQ=0:GOSUB3000:YN=0:TT=0:Q=RND(350) :GOSUB290 :GOSUB100: PRINT 

"COMMAND ?":INPUTRES$ 

57 30 GOTO5 90 

5750 IFPL=1AND(RE$="S"0RRE$="N")THEN5855 

5755 IFPL=2AND(RE$="N"ORRE$="W"ORRE$="E")THEN5857 

5760 IFPL=3ANDRE$="W"THENPL=PL-1:GOTO5720 

5765 IFPL=4AND(RE$="U"ORRE$="UP"ORRE$="D"ORRE$="DOWN"ORRE$="E")T 

HEN5861 

5768 IFPL=5AND(RE$="E"ORRE$="D"ORRE$="DOWN")THEN5863 

5770 IFPL=6AND(RE$="N"ORRE$="S"ORRE$="W")THEN5868 

5772 IFPL=7ANDRE$="W"THENPL=10:GOTO5720 

5774 IFPL=8ANDRE$="N"THENPL=6:GOTO5720 

5776 IFPL=9AND(LEFT$(RE$,1) ="U"ORLEFT$ (RE$ ,1) ="D"ORRE$="E" ) THEN5 

870 

5778 IFPL=10AND(RE$="N"ORRE$="S"ORRE$="W"ORRE$="E")THEN5872 

5780 IFPL=11ANDRE$="S"THENPL=10:GOTO5720 

57 82 IFPL=12ANDRE$="N"THENPL=10:GOTO5720 

57 84 IFPL=13 ANDRE$="S"THENPL=6 : GOT057 20 

57 86 IFPL=14AND(RE$="E"ORLEFT$(RE$,l)="U"ORLEFT$(RE$,l) ="D")THEN 

5874 

5788 IFPL=15AND(RE$="N"ORRE$="S"ORRE$="E"ORRE$="W")THEN5876 

57 90 IFPL=17ANDRE$="N"THENPL=15:GOTO57 20 

57 92 IFPL=16ANDRE$="S"THENPL=15:GOTO5720 

5794 IFPL=18AND(RE$="N"ORRE$="W"ORRE$="S")THEN5878 

5796 IFPL=19ANDRE$="S"THENPL=18:GOTO57 20 

5798 IFPL=20AND(LEFT$(RE$,1) ="U"ORLEFT$ (RE$ ,1) ="D"ORRE$="E" ) THEN 

5880 

5800 IFPL=21AND(RE$="S"ORRE$="W"ORRE$="E")THEN5882 

5802 IFPL=22ANDRE$="N"THENPL=21:GOTO57 20 

5804 IFPL=23ANDRE$="W"THENPL=21:GOTO5720 

5806 IFPL=24ANDLEFT$(RE$,1) ="U"THENPL=20 :GOTO5720 

5808 IFPL=24ANDRE$="E"THENPL=25:GOTO57 20 

5810 IFPL=25ANDRE$="W"THENPL=24:GOTO57 20 

5812 IFPL=26ANDRE$="N"THENPL=18:GOTO57 20 

5850 PRINT: PRINT"YOU CANNOT GO THAT DIRECTION I " :GOTO5720 

585 5 IFRE$="N"THENGOTO3600ELSEPL=PL+1:GOTO5720 

5857 IFRE$="N"THENPL=PL-1:GOTO57 20ELSEIFRE$="E"THENPL=PL+1:GOTO5 

720ELSEPL=PL+2:GOTO57 20 

585 9 IFRE$="W"THENPL=1:GOTO57 20ELSEIFRE$="U"THENPL=5:GOTO57 20ELS 

EPL=9:GOTO5720 

5861 IFPL=4AND(RE$="U"ORRE$="UP")THENPL=5:GOTO5720ELSEIFRE$="D"O 

RRE$="DOWN"ANDPL=4THENPL=9:GOTO57 20ELSEIFRE$="E"ANDPL=4THENPL=2: 

GOTO5720 

5863 IFLEFT$(RE$,1)="D"THENPL=4:GOTO5720ELSEIFLEFT$(RE$,1)="E"TH 

ENPL=6:GOTO57 20 

5868 IFRE$="N"ANDPL=6THENPL=13:GOTO5720ELSEIFRE$="S"ANDPL=6THENP 

L=8:GOTO57 20ELSEIFRE$="W"ANDPL=6THENPL=5:GOTO5720 

5870 IFLEFT$(RE$,1)="U"ANDPL=9THENPL=4:GOTO5720ELSEIFPL=9ANDLEFT 

$(RE$,1)="D"THENPL=14:GOTO5720ELSEIFPL=9ANDRE$="E"THENPL=10:GOTO 

5720 

5872 IFPL=10ANDRE$="N"THENPL=11:GOTO57 20ELSEIFPL=10ANDRE$="S"THE 

NPL=12:GOTO5720ELSEIFPL=10ANDRE$="W"THENPL=9:GOTO57 20ELSEIFPL=10 

ANDRE$="E"THENPL=7 :GOTO5720 

5874 IFPL=14AND(LEFT$(RE$,1)="U")THENPL=9:GOTO5720ELSEIFPL=14AND 

(LEFT$(RE$,1)="D")THENPL=20:GOTO5720ELSEIFPL=14ANDRE$="E"THENPL= 

15:GOTO57 20 

5876 IFPL=15ANDRE$="N"THENPL=16:GOTO5720ELSEIFPL=15ANDRE$="S"THE 

NPL=17:GOTO57 20ELSEIFPL=15ANDRE$="W"THENPL=14:GOTO57 20ELSEIFPL=1 

Listing continues 
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Since 1978 



• REPUTATION BACKED BY YEARS OF 
EXPERIENCE. 

• PIONEER IN DIRECT TO CONSUMER SALES 
OF MICRO COMPUTERS AND ELECTRONICS 

• MILLIONS OF DOLLARS IN SALES OVER THE 
YEARS 

• TENS OF THOUSANDS OF CUSTOMERS 
' HONEST 

■ RELIABLE 

' LARGE INVENTORY 

' NAME BRAND PRODUCTS 




DISCOUNT 



Micro Management 
Systems, Inc. 

2803 Thomasville Road East 

Cairo, Georgia 31728 

(912) 377-7120 



It's simple. 
CALL l$A\ 



"TELEMARKETING WORKS' 



CONVENIENT ORDER ENTRY 



Ga & Info 912-377-7120 




COMPUTER CORPORATION 



FROM 



ACE 1000 
ACE 1200 



DATA FLEX 

APPLICATIONS 

DATA BASE 
BY DATA ACCESS 

'CALL 



A ATARI 

1200 XL 

COMPUTER 

'CALL 



& EQUIPMENT 



TRS-80 COMPUTERS 



idore 



1 BUY 

] DIRECT 
1 SAVE 


SHH-.-SH) 


■Til 





PURE 

RADIO SHACK 

EQUIPMENT 



DISCOUNT 
PRICED 
FROM 

MODEL 4 TRS-80 '828 

MODEL 12 TRS-80 '2639 

MODEL 16 TRS-80 '4012 

MODEL 100 TRS-80 '677 

MC-10 TRS-80 »99 

COLOR COMPUTER 'CALL 

WE SELL THE COMPLETE LINE 

OF TRS-80 COMPUTERS 

AND ACCESSORIES 



FROM 

FX-80 

RX-80 

MX-80 

FX-100 



EPSON 

PRINTERS 

*r a 1 1 



SAVE 
SAVE 
SAVE 
SAVE 



SMITH 

cnnoNA 



ffgff 

TP-I DAISY 

WHEEL PRINTER 

FROM $ 489 



PRINTERS 
FROM $ 309 

GEMINI 10 & 15 




FROM >!*AI 
VIC 20 COMPUTER 

COMMODORE 64 

VIC 1541 DISK DRIVE 

VIC 1525 PRINTER 

VIC 1701 MONITOR 

CALL & SAVE 



FROM »339 

MICROLINE SERIES 
•80 »82A »83A 
•84P «92P «93P 

PACE MARK 2350P 



NEW 
PRODUCTS 

•CALL 



brother. 

DAISY WHEEL 
PRINTERS 

'CALL 



Dynax 

DX-15 
DAISY WHEEL 

'CALL 



Q) Hayes* 

MODEMS 



'INTERS 



COMREX 

•MONITORS 
•PRINTERS 

•CALL 



FROM 



$ 239 



PROWRITER 

8510 

NEW! 8600. 



Novation 




. '397 

'CALL 



MICRO MODEM I 
SMART MODEM 300 
SMART MODEM 1200 



QUADRAM 

•APPLE BOARDS 
•IBM BOARDS 
•MICROFAZERS 

•CALL 



MODEMS 



FROM »119 

•J-CAT -D-CAT 

•CAT »AUTO CAT 

•SMART CAT -APPLE CAT 



SIIYER-REEO 

DAISY WHEEL 
PRINTERS 

•CALL 



3550 SPINWRITER 

•1987 



Panasonic 

•PRINTERS 
•MONITORS 

•CALL 



NOTICE 



yta/IDEK 

MONITORS 
FROM $ 178 



ALL PRODUCTS WE SELL ARE BRAND NEW 
AND COVERED BY THE MANUFACTURER'S 
SPECIFIC WARRANTIES. COPIES AVAILABLE 
UPON REQUEST. 

WE DO NOT SELL ANY USED, RECONDITION- 
ED, FOREIGN OR INFERIOR MODIFIED EQUIP- 
MENT . 

PRICES AND PRODUCTS SUBJECT TO 
CHANGE WITHOUT NOTICE. 



TRS-80 
PRINTERS 

COMPLETE LINE 
FROM* 199 



FREE 



PRINTER CARDS & CABLES 

•MICROTEK DUMPLING GX 

•GRAPPLER PLUS 

•APPLE »IBM 

•OSBORNE 'ATARI 

•TRS-80 'MORE 



UPON REQUEST 

•DISCOUNT PRICE LIST 

& INFORMATION KIT 

WRITE TO: 94 

MICRO MANAGEMENT SYSTEMS 

TELEMARKET DEPT. # / 
2803 THOMASVILLE RD. EAST 
CAIRO, GEORGIA 31728 



\feit>atim 

DATALIFE 
DISKETTES 

$CALL 



WE SELL IBM P.C. 
COMPATIBLES. CALL 
FOR YOUR CHOICE. 



■ See List of Advertisers on Page 323 
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COMPUTER 
DISCOUNTS 

• Factory Direct 

• Best Prices Anywhere 

• No Out-of-State Taxes 

• 100% Radio Shack Warranty 

• Free Price List 

SCOTT TASSO 
ASSOCIATES 

175 E North Delsea Drive 
Vineland, N.J. 08360 
800-257-0426 
NJ 609-691-7100 ^510 




PROTECT YOUR 
COMPUTER 

FROM POWER SURGES WITH A 

VOLTAGE SPIKE PROTECTOR 




J^ A 



• NO WIRING REQUIRED-JUST PLUG IT IN. 

• PROTECTS SOLID STATE EQUIPMENT FROM 
DAMAGING VOLTAGE SPIKES. 

• USE ON YOUR COMPUTER-PERIPHERALS TV. SET- 
STEREO ETC. 

REGULAR $16.25 EACH 

• • SPECIAL $ 10. 88 EA • • 

ORDER 2 OR MORE @ $10.00 EACH 
SHEPHERD MARKETING 

P.O. BOX 941339 
/: SCHAUMBURG, IL 60194 

PHONE 312-490-9239 
We ship PP-IL residents add 6% ules Ux 



PAJARO 

Models I/III 48k 

A new programming environment allowing more 
efficient development of software with user defined 
statements. Programs easily chained using a built-in 
bank of variables.making memory seem much larger. 
Multiple programs in memory. Both integer and 32 
place floating point are supported as well as random 
and sequential disk files. PAJARO's syntax is much 
like BASIC'S (altho it can be changed if you wish, to 
Spanish, german or whatever you like). Machine 
language Tike commands (Block moves and searches) 
as well as DRAW and SOUND commands. Compiled 
programs run up to 20 times faster than interpreted 
BASIC and may be moved to other types of com- 
puters (IBM PC, APPLE and CPM run time units 
available early '84). Models l/lll 48kat least 1 drive. 
Price is $89.95 post paid in the US. Manual only is 
$25.00. 



ULTRA 

MAGNETICS 



•402 



Lifetime warranty, SS DD 40 track; 

Box of 10. . . . introductory price . . . $29.95 
LOWCOST disks, 6 month warranty SS DD 40 track 

Box of 10. . . . introductory price . . . $19.95' 
Add $2.50 shipping for each disk order. Calif, orders 
add 6.5% sales tax. Add $3 for COD. Send Cashier's 
Check or Money Order only to: 

RDS.79 Hill, Watsonville. CA 95076 (408)722-5354 



Listing continued 

5ANDRE$="E"THENPL=18:GOTO57 20 

587 8 IFPL=18ANDRE$="N"THENPL=19:GOTO57 20ELSEIFPL=18ANDRE$="W"THE 

NPL=15:GOTO57 20ELSEIFPL=18ANDRE$="S"THENPL=26:GOTO57 20 

5880 IFPL=20ANDLEFT$(RE$,1)="U"THENPL=14:GOTO5720ELSEIFPL=20ANDL 

EFT$(RE$,1) ="D"THENPL=24:GOTO57 20ELSEIFPL=20ANDRE$="E"THENPL=21: 

GOTO57 20 

5882 IFPL=21ANDRE$="S"THENPL=22:GOTO57 20ELSEIFPL=21ANDRE$="W"THE 

NPL=20:GOTO57 20ELSEIFPL=21ANDRE$="E"THENPL=23:GOTO57 20 

5899 PRINT"YOU CAN'T GO IN THAT DIRECTION i " :GOT057 20 

590 IFRE$="N"ORRE$="S"ORRE$="W"ORRE$="E"ORRE$="UP"ORRE$="DOWN"0 

RRE$="U"ORRE$="D"THEN57 50 

5910 IFLEFT$(RE?,4)="SHOW"THENNU=LEN(RE$)-5:GOT01525ELSEIFLEFT$( 

RE$,7)="PRODUCE"THENNU=LEN(RE$)-8:GOT01525 

5920 IFRE$="LOOK"ORRE$="LOOK AROUND"THEN57 20 

5930 IFLEFT$(RE$,4) ="DROP"THENNU=LEN (RE$) -5:GOTO16000 

5940 IFLEFT$(RE$,3) ="EAT"THENNU=LEN(RE$) -4 :GOTO15500 

5945 IFLEFT$(RE$,3) ="SAY"THENNU=LEN(RE$) -4:GOTO2500 

5950 IFLEFT$(RE$,3) ="PAY"THENNU=LEN(RE$) -4:GOTO2610 

5955 IFLEFT$(RE$,4)="GIVE"THENNU=LEN(RE$)-5:GOTO20500 

5960 IFLEFT$(RE$,3) ="SIT"THENNU=LEN(RE$) -4:GOTO20000 

5965 IFLEFT$(RE$,4)="OPEN"THENNU=NU-5:GOTO21000 

5970 IFRE$="RAISE HAND"THENGOTO22000 

5975 IFLEFT$(RE$,4)="CHUG"THENNU=LEN(RE$)-5:GOTO22500ELSEIFLEFT$ 

(RE$,5) ="DRINK"THENNU=LEN(RE$) -6:GOTO22500 

5985 IFLEFT$(RE$,3) =" JOG"ORLEFT$ (RE$, 3) ="RUN"THEN23000 

6000 IFLEFT$(RES$,8) ="APPROACH"THENNUM=LEN (RES$) -9 : GOTO10000ELSE 

IFLEFT$(RES$,4) ="GOTO"THENNUM=LEN (RES$) -5 : GOTO1000 0ELSEIFLEFT$ (R 

ESS,5)="GO TO"THENNUM=LEN(RES$)-6:GOTO10000ELSEIFLEFT$(RES$,7)=" 

LOOK AT"THENNUM=LEN(RES$)-8:GOTO10000 

6002 IFLEFT$(RE$,7) ="EXAMINE"THENNU=LEN ( RE$) -8: GOTO10000 

6005 IF(LEFT$(RES$,8)="FILL OUT"ORLEFT$ (RE$ f 8) ="COMPLETE" ) ANDFM< 
>100THEN800 

6006 IFLEFTS(RE$,8)="FILL OUT"ORLEFT$ (RE$ , 8) =" COMPLETE "THENNU=LE 
N(RE$)-9:GOTO805 

6010 IFLEFT$(RES$,7) ="PICK UP"THENNUM=LEN (RES$) -9 : GOTO11000ELSEI 

FLEFT$(RES$,3) ="GET"THENNUM=LEN (RES$) -4 : GOTO11000 

6015 IFLEFT$(RE$, 4) ="READ"THENNUM=LEN (RE$) -5:GOTO1000 

6020 IFRE$="FLUSH TOILET"ANDPL=13THENPRINT"THE TOILET FLUSHES" :G 

OTO5700 

6025 IFRE$="STAND UP"THENPRINT"YOU ' RE STANDING. ": G0TO57 00 

6060 IFLEFT$(RE$,4) ="TAKE"THENNU=LEN ( RE$) -5 : GOTO21500ELSEIFLEFT$ 

(RE$,5) ="BEGIN"THENNU=LEN(RES) -6:GOTO21500 

6150 IFRES$="INVENTORY"ORRES$="INV"ORRES$="INVEN"THENGOSUB5220:G 

OTO5720 

6160 IFLEFT$(RE$,5)="THROW"THENNU=LEN(RE$)-6:GOTO31000 

6999 PRINT: PRINT" I DON'T KNOW HOW TO " ;RE$:GOTO5700PRINT" :GOT057 

20 

9000 IFNUM<=0GOTO5720 

9010 RETURN 

10000 GOSUB9000 

10010 RES$=RIGHT$(RE2$,NUM) 

10015 IF(PL=2ANDRES=RR$(1) ANDFMO100) PRINT"YOU REACH THE ";RR$(1 

);" AND A":PRINT"BORED LOOKING RECEPTIONIST SLIDES A FORM AND A" 

:PRINT"PENCIL AT YOU. " :GOTO5700 

10020 IF(PL=2ANDRE$=RR$(1) ANDFM=10 0) THEN1500 

10025 IFPL=2ANDSI>1THEN2900ELSEIFPL=2ANDRE$=RR$(2)ANDSI>=0THENPR 

INT"THE CLERK BEHIND THE DESK DEMANDS TO SEE YOUR": PRINT" STUDEN 

T IDENTIFICATION I " : SI=SI+1 : GOTO57 00 

10030 IFPL=2ANDRE$=RR$(2) ANDSK-100THENPRINT"YOU HAVE COMPLETED 

YOUR BUSINESS THERE 1 MOVE ALONG! " :GOT057 20 

10050 IFPL=7PRINT"THE ";RR$(7);" ASKS IF YOU" : PRINT" WANT FINANCI 

AL AID.":GOTO570 

10075 IFPL=8ANDBOO100PRINT"THE ";RR$(8);" GLANCES UP AT YOU AND 

":PRINT"SAYS 'YOU OWE US 2000 DOLLARS FOR THIS TERM'S TUITION1": 

IFMN>=2000THEN5700ELSEGOSUB3: PRINT: PRINT"THE ";RR$(8);" SEES THA 

T YOU DO NOT HAVE THE MONEY I " :PR=8:GOTO405 

10080 IFPL=8ANDBOO100THENGOSUB125:IFTTO1THENPRINT"THE ";RR$(8) 

;"ASKS FOR YOUR STUDENT IDENTIFICATION! ": GOSUB3 : PR=8 : GOTO400 

10085 IFPL=8ANDBO=100THENPRINT"NOW THAT YOU'VE PAID YOUR TUITION 

, THE BURSAR HAS" : PRINT" LOST INTEREST IN YOU . " :GOTO5720 

10100 IFPL=llAND(RE$=RR$(9)ORRE$="PSYCHOLOGIST"ORRE$=RR$(ll) ) AND 

BO=100PRINT"THE ";RR$(9);" ASKS YOU TOO HAVE A SEAT. " : IB=l:GOT05 

700 

10102 IFPL=11ANDBOO100PRINT"THE ";RR$(9);" ASKS TO SEE YOUR STU 

DENT IDENTIFICATION! " : GOSUB125 : IFTT=lTHENGOT01535ELSEPRINT"THE " 

;RR$(9);" SAYS THAT YOU MUST HAVE IDENTIFICATION" :PRINT"BEFORE H 

E CAN HELP YOU":GOTO5700 

10105 IFPL=11ANDRE$=RR$(10)ANDABO100PRINT"THE ";RR$(9);" BLOCKS 

YOUR PATH 1":PRINT" AND YOU CANNOT GET TO IT. " :GOTO5700 
10125 IFPL=12ANDBOO100THENPRINT"THE MAN CHECKS HIS CLASS" :PRINT 
"ROSTER AND SAYS 'YOU MUST PAY YOUR TUITION BEFORE I CAN": PRINT" 
ADMIT YOU TO CLASS 1 ": GOT057 00 

10130 IFPL=12AND(RE$=RRS(12)ORRE$=RR$(13) ) THENGOTO140ELSEIFPL=12 
ANDRE$=RR$(14) THENPRINT'THE ";RR$(14);" ASKS YOU TO SIT DOWNl":G 
OTO5700 

10150 IFPL=13ANDRE$="TOILET"THENPRINT"SCRATCHED ON THE WALL BY T 
HE TOILET IS INDECIPHERABLE MESSAGE :" :GOSUB3 :PRINT: PRINT" 

Listing continues 
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"^ Add a BTA smart multiport controller to 

■# The MODEL 524 expands a single RS232 
individual ports with port 









MMMMMMMM 



"K" Buffered inputs permit Sir 
creasing data exchange rate. 

"fc" 62K spooler model also avai' 




Bay Technical Associates 







ONLY 
MAGAZINE FOR 
MODEL II & 16 
USERS 

two/sixteen magazine 
131A East Orange St. 
Lancaster, Pa. 17603 
^522 (717)397 3364 




"& Hard W are 

. <ti 75.00 

M( .v»— trie '^Q-jcKSl 



^See i./s( o/ Advertisers on Page 323 
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MEMOREX 

FLEXIBLE DISCS 



WE WILL NOT BE UNDER- 
SOLD!! Call Free (800)235-4137 

for prices and information. Dealer 
inquiries invited and C.O.D.'s 
accepted 



PACIFIC 
EXCHANGES 

100 Foothill Blvd. 

^ar\ Luis Obispo CA 
93401. InCal. call 
(800)592-5935 or 
;805)543-1037 

^207 





reformaTTer 



Model II users! Convert files between 
TRSDOSand CP/MI 

■ REFORMATTER runs under TRSDOS 

■ Operates on single drive system 

■ Converts in both directions 

■ CP/M operating system not needed 

■ All TRSDOS record lengths supported 

■ I n i t i al izes blan k C P/ M cl is kette 

■ Displays or dumps CP/M files 

■ Manipulates CP/M directory under 
iRSOOS ,.380 

$249.00 from stock. CP/M — IBM, 
TRSDOS~DEC, and CP/M**DEC ver- 
sions of REFORMATTER also available at 
$249.00 from MicroTech Exports, Inc., 
467 Hamilton Ave., Palo Alto, CA 94301 
□ Tel: 415/324-91 14 □ TWX: , „ 

910-370-7457 MUH-ALTOS — •• 




PRESERVE 

BD MICRO 

WITH 

BINDERS & FILE CASES. 

Keep your issues of SO Micro handy and protected in 
handsome and tin rable library file boxes or binders. 
Both styles are bound in dark green leatherette with 
the magazine logo stamped in gold. 

Kile boxes: each file box holds 12 issues, with spines 
visible for easy reference. 

$5.95 each, 3 for $17.00, 6 for $30.00 
Binders: each binder holds 12 issues and opens flat 
for easy reading. 

$7.50 each, 3 for $21.75, 6 for $42.00 
(USA postage paid. Foreign orders must include 
$2.50 per item.) 

Please stale years desired (1980 to 1984). 
Send check or money order to: 
Jesse Jones Box Corp., P.O. Box 5120, Philadelphia, 
PA 19141; please allow 6 to 8 weeks for delivery. 
Sorry, no C.O.D. or phone orders. 
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TheN wHAT is tHE oPPos 



iF PRO Is tHe OpPOsiTe Of CON": PRINT" 

ItE OF PROGRESS?" : PRINT: GOTO5700 

10155 IFPL=13ANDRE$="SINK"THENPRINT"THE SINK APPEARS TO BE NORMA 

L.":GOTO5700 

10175 IFPL=26ANDRE$=RR$(29)PRINTRR$(29) ;" SAYS, 'YOU KNOW WHAT I 

AM.. .?'":G0SUB3: PRINT" ' . . .A ZIT1 11 ' " : PRINT"AND HE SPITS HALF-CH 
EWED FOOD ALL OVER YOU 1 " :GOTO5700 

10180 IFPL=26ANDRE$=RR$(30)PRINT"BLUTO SAYS, ' THATS GOOD STUFF I 1 
":GOTO57 00 

10185 IFPL=26ANDRE$=RR$(31)PRINT"THE ";RR$(31);" HAS THE INITIAL 
S 'DH' ON IT." :GOTO5700 
10200 IFPL=25ANDRE$=RR$(27) ANDPEO100PRINT"THE ";RR$(27);" LOOKS 

AT YOU AND":PRINT"SAYS, 'ANOTHER WIMP1 '" :G0SUB2 : PRINT: PRINT" ' TO 

PASS PHYS ED, YOU GOTTA JOG 40 LAPS AROUND THE TRACK. ":: G0SUB2 : 
PRINT" THAT'S 5 MILES. IF YA CAN'T DO IT, YA DON'T PASS. ' " :GOT057 
00 
10210 IFPL=25ANDRE$=RR$(27) ANDPE=100PRINT" 'GET LOST, KID! YOU'VE 

ALREADY PASSED PHYS ED 1 ' " : GOTO57 00 
10225 IFPL=22ANDRE$=RR$(24)THENPRINT"THE ";RR$(24);" LOOKS AT YO 
U EXPECTANTLY. ":GOT057 00 

10230 IFPL=17ANDRE$=RR$(19)PRINT"THE ";RR$(19) 
OTO5700 

10235 IFPL=16ANDRE$=RR$(16)PRINT"THE ";RR$(16) 
PECTANTLY. " :GOTO5700 

10240 IFPL=16ANDRE$=RR$(17)PRINT"THE ";RR$(17) 
RMAL ";RR$(17) :GOTO5700 

10245 IFPL=16ANDRE$=RR$(18)PRINT"THE ";RR$(18) 
ON THE ";RR$(17) :GOTO5700 
10250 IFPL=25ANDRE$=RR$(28)PRINT"YOU ARE AT THE " ; RR$ ( 28) :GOT057 



IGNORES Y0U.":G 
LOOKS AT YOU EX 
LOOKS LIKE A NO 
SITS FACE DOWN 



10255 IFPL=23ANDRE$=RR$(25)PRINT"THE ";RR$(25);" LOOKS AT YOU WI 

TH DISGUST. ":GOTO5700 

10260 IFPL=23AND(RE$="DIPLOMA"ORRE$=RR$(26) )PRINT"Y0U APPROACH T 

HE ";RR$(26) :GOTO5700 

10275 IFRE$=RR$(23)PRINT"THE ";RR$(23);" IS OVERFLOWING WITH GAR 

BAGE.":GOTO5700 

10280 IFRE$=RR$(20) ANDPL=19PRINT"THE ";RR$(20);" SAYS 'SIT DOWN! 

' ":GOTO5700 

10285 IFRE$=RR$ ( 21) ORRE$=RR$ ( 23 ) ANDPL=190RRE$=RR$ ( 22) ANDPL=19PRI 

NT"Y0U APPROACH THE " ; RE$ : GOTO5700 

10290 IFRE$=RR$(13)PRINT"Y0U APPROACH THE " ; RR$ ( 13) :GOTO5700 

10295 IFRE$=RR$ ( 3) ANDPL=30RRE$=RR$ (4) ANDPL=30RRE$=RR$ (5) ANDPL=3P 

RINT"YOU APPROACH THE " ; RE$ : GOTO5700 

10999 GOT019999 

11000 GOSUB9000:GOSUB2975 
11010 RE2$=RIGHT$(RE2$,NUM) 

11015 IF(PL=2ANDFM=1AND(RE$="CARD"0RRE$="PLASTIC CARD" ) ) THEN1850 


11016 IFPL=11ANDRE$=RR$(11)THENPRINT"THE ";RR$(9);" GRABS THE "; 
RR$ ( 11 ): PRINT" AWAY FROM YOU AND SAYS, 'THESE ARE MINE. ' " : GOTO570 


11017 IFPL=11ANDRE$=RR$(10)THEN2200ELSEIFPL=12ANDRE$="TEST"THEN 
PRINT"YOU CANNOT TAKE A TEST FORM OUT OF THE CLASSROOM !": GOTO570 


11020 IFRE$=RR$(l)ORRE$="TOILET"ORRE$="SINK"ORRE$=RR$(16)ORRE$=R 
R$(17)ORRE$=RR$(14)ORRE$=RR$(13)ORRE$=RR$(12)ORRE$=RR$(7)ORRE$=R 
R$ ( 8) 0RRE$=RR$ (9) ORRE$=RR$ ( 2) ORRE$=RR$ ( 6) 0RRE$=RR$ (19) ORRE$=RR$ ( 
20) ORRE$=RR$ ( 24) 0RRE$=RR$ ( 25) 0RRE$=RR$ ( 27) THENGOTO140 

11021 IFRE$=RR$(28)ORRE$=RR$(29)THEN140 

110 22 IFPL=16ANDRE$=RR$(18)THEN700ELSEIFPL=16ANDRE$=RR$(32)THEN7 

30 

11023 IFPL=26ANDRE$=RR$(31)THEN900 

11025 IFPL=22ANDRE$=RR$(36) ANDGTO500THEN3100 

11027 IFPL=23ANDRE$=RR$(26)ORRE$="DIPLOMA"THEN3500 

11028 IFPL=8ANDGT<>1ANDRE$=RR$(37)THENPRINT"THE BURSAR SAYS ' THA 
T WILL BE 10 DOLLARS, PLEASE. ": GOTO5700 

11030 GOSUB3 40 0:IFQQ=100THEN5700ELSEYN=0:FORQ=1TO37:IFRE$=RR$(Q) 

ANDRS% (Q,PL) =1THENYN=1:Q5=Q:Q=37 

11035 NEXTQ:IFYN=1THEN18500ELSEPRINT"WHERE DO YOU SEE THAT?":G0T 

05720 

11999 GOT019999 

13800 PRINT"YOU ARE ESCORTED OUT OF THE UNIVERSITY 1 " :GOT03 0000 

15499 GOT019999 

15500 GOSUB90 00:RE$=RIGHT$(RE$,NU) 

155 05 YN=0:IFRE$=RR$(3)THENFORQ=1TOCT:IFTR$(Q)=RR$(3)THENPRINT"Y 
OU HAVE EATEN THE HAM SANDWICH. ": TR$ (Q) ="" :GOSUB2975 : Q=CT+1 :NEXT 
Q:GOTO5720ELSENEXTQ:PRINT"MAYBE YOU SHOULD GET IT FIRST. " :G0T014 


15999 GOT019999 

16000 GOSUB9000:RE$=RIGHT$(RE$,NU) :GOSUB2975 

16010 YN=0:FORQ=1TOCT:IFRE$=TR$(Q)THENYN=1:Q4=Q:Q=CT+1 

16020 NEXTQ:IFYN=1THENF0RQ=1T037:IFRE$=RR$(Q)THENPRINT"Y0U DROP 

THE ";RE$:RS% ( Q, PL) =1 : TR$ (Q4) =" " : GOTO5720ELSENEXTQ 

16030 IFYN=0PRINT"YOU DON'T HAVE A " ; RE$: GOTO57 20 

18499 GOT019999 

18500 GOSUB3400:IFQQ=100THEN5700ELSEPRINT:PRINT"THE MOST YOU CAN 
CARRY AT ANY TIME IS 5 ITEMS" : PRINT: PRINT"Y0U ARE PRESENTLY CAR 

Lilting continues 
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/ isting continued 

RYING ";CT-1;"ITEMS.":PRINT:PRINT"D0 YOU CARRY THE ";RE$;" WITH 

YOU?" 
18505 CH$=INKEY$:IFCH$="Y"ORCH$="N"THEN18510ELSE1850 5 

18507 IFQ5>0THEN18600 

18510 IFCH$="N"THENGOTO57 20 

18515 IFRE$="PLASTIC CARD" ORRE$=" CARD "THENTR$ (CT) = " I .D. CARD":CT 

=CT+1 : GOSUB5220 : FM=100 : GOTO57 20 

18520 IFRE$=RR$(3)THENTR$(CT)=RR$(3) : CT=CT+1 : RS% ( 3 ,PL) =0 : GOSUB52 

20:GOTO5720ELSEIFRE$=RR$(4)THENTR$(CT)=RR$(4) : RS% ( 4 , PL) =0 : CT=CT+ 

1 : GOSUB5220 :GOTO5720ELSEIFRE$=RR$ ( 5) THENTR$ (CT) =RR$( 5) :RS% ( 5 ,PL) 

= : CT=CT+1 : GOSUB5220 : GOT057 20 

18600 RS%(Q5 f PL)=0:TR$(CT)=RR$(Q5) :CT=CT+1 :GOSUB5220 :Q5=0 :Q4=0 :G 

OTO5720 

18999 GOT019999 

19999 PRINT:PRINT"I DON'T SEE A ";RE$;" HERE I " : GOT057 20 

20000 GOSUB9000:RE$=RIGHT$(RE$ f NU) : IFPL=11ANDABO100PRINT"THE "; 
RR$ ( 9) ; "SHOVES THE " ;RR$ ( 11) : PRINT" AT YOU AND ASKS 'WHAT DOES T 
HIS SUGGEST TO YOU?" : IB=1 :GOTO5700 

20010 IF(PL=12ORPL=19)ANDBOO100PRINT"WHILE YOU FIND A CHAIR, TH 
E HAN CHECKS HIS" : PRINT"CLASS ROSTER. HE SAYS 'YOU MUST PAY YOUR 

TUITION BEFORE I":PRINT"CAN ADMIT YOU TO CLASS I " : GOTO5700 
20015 IFPL=12ANDBO=100PRINT"THE ";RR$(14);" SAYS YOU MAY BEGIN": 
PRINT"THE TEST WHEN YOU'RE READY. " :GOT057 00 

20020 IFPL=19ANDBO=100PRINT"THE ";RR$(20);" SAYS 'RAISE YOUR HAN 
D WHEN":PRINT"YOU'RE READY TO BEGIN. ": GOTO5700 
20499 PRINT"YOU SIT DOWN. " :GOTO57 00 

20 500 GOSUB90 00:RE$=RIGHT$(RE$,NU) : IFPL=llTHENFORQ=lTOCT: IFTR$ (Q 
)=RR$(34)THENAB=10 0:TR$(Q)="":BA=500:NEXTELSENEXT 

20505 IFPL=11ANDAB=100ANDRE$=RR$(34)THENPRINT"THE ";RR$(9);" GRE 
EDILY GRABS THE MAGAZINE AND SAYS ": PRINT" ' THANK YOU 1 THE FOLDER 

IS YOURS IF YOU WANT IT. ' " : GOTO5700 
20510 IFPL=16ANDRE$=RR$(32)THENF0RQ=1T0CT-1:IFTR$(Q)=RR$(32)THEN 
EX=100:Q=CT+1:SC=SC+3:PRINT"THE ";RR$(16);" TAKES YOUR ";RR$(32) 
:RE$=RR$(32) :NEXT:GOTO16 010ELSENEXT 

20515 IFPL=16ANDRE$=RR$(18)THENF0RQ=1T0CT-1:IFTR$(Q)=RR$(18)THEN 
E2=100:Q=CT+1:PRINT"THE " ;RR$ (16) ; " TAKES BACK THE BOOK . " : RE$=RR 
$(18) :NEXT:GOTO16010ELSENEXT 
20520 IFPL=22THENGOSUB122:IFTT=8THENGT=100:PRINT"THE ";RR$(24) ;" 

TAKES THE " ; RR$ ( 37) : FORQ=lTOCT-l : IFTR$ ( Q) =RR$ ( 37) THENTR$ ( Q) =" " : 
NEXT:GT=10 0:GOTO57 0ELSENEXT:GT=100:GOTO57 

20525 IFPL=23ANDRE$=RR$(32) ANDDN=0THENGOSUB125:IFTT=1PRINT"THE " 
;RR$(25);" TAKES YOUR " ; RR$ ( 32) : PRINT"AND CASUALLY POCKETS IT. H 
E GRINS AT YOU.":DN=l:FORQ=lTOCT-l:IFTR$(Q)=RR$(32)THENTR$(Q)="" 

:NEXT:GOTO5700ELSENEXT:GOTO5700 

20530 IFPL=23ANDRE$=RR$(36) ANDDN=1THENG0SUB124:IFTT=9PRINT"THE " 

;RR$(25);" TAKES YOUR " ; RR$ ( 36) ; " , " : PRINT"CRUMPLES IT INTO A TIG 

HT BALL AND EATS IT I " : DN=2 : FORQ=lTOCT-l : IFTR$ ( Q) =RR$ ( 36) THENTR$ ( 

Q) ="" :NEXT:GOTO5700ELSENEXT:GOTO5700 

20535 IFPL=23ANDRE$=RR$(33)ANDDN=2THENG0SUB119:IFTT=11PRINT"THE 

" ;RR$( 25) ; "SWEARS ANGRILY AND TEARS" : PRINT"THE ";RR$(33);" INTO 

TINY PIECES I " : DN=3 : FORQ=lTOCT-l : IFTR$ ( Q) =RR$ ( 33 ) THENTR$ ( Q) =" " : Q= 

CT+1:NEXT:GOTO57 00ELSENEXT:GOTO5700 

20540 IFPL=23ANDRE$=RR$(10) THEN1540 

20599 PRINT"GIVE WHAT?" :GOTO5700 

21000 GOSUB9000:RE$=RIGHT$(RE$,NU) : IFRE$=RR$ ( 34) THEN1010 

21010 IFRE$=RR$(18)THEN1010 

21499 PRINT"READ WHAT?" : GOTO5700 

21500 GOSUB9000:RE$=RIGHT$(RE$,NU) : IFPL=12ANDRE$="TEST"THEN600 

21999 PRINT"TAKE WHAT, " ;NM$ ; "?" : GOTO5700 

22000 IFEN>0PRINT"YOU CAN ONLY TAKE THIS TEST ONCE, " ;NM$:GOT057 
20 

22003 IFPLOl9THENPRINT"YOUR HAND IS RAISED" : GOTO5700 

22005 CLS:PRINT"THE " ; RR$ ( 20) ; " SAYS 'THERE WILL BE NO":PRINT"IN 

TERRUPTIONS DURING THE COURSE OF THIS TEST. ": GOSUB3 : PRINT: PRINT" 

THE TEST CONSISTS OF 5 QUESTIONS. YOU MAY ANSWER 2 OF" : PRINT"THE 

M INCORRECTLY AND STILL PASS. OTHERWISE, YOU FAIL AND WILL" 

22010 PRINT"BE EXPELLED FROM THE UNIVERSITY. ": PRINT: PRINT"QUESTI 

ON NUMBER 1 : " : PRINTTAB ( 3) "enter THE ADJECTIVE IN THE FOLLOWING 

SENTENCE?" : PRINT: PRINT"The water was perfectly transparent. " :PRI 

NT:INPUTRE$ 

22015 IFRE$="TRANSPARENT"ORRE$="transparent"THENEN=EN+l 

22020 CLS: PRINT" 'QUESTION NUMBER 2 :": PRINT: PRINT"THIS IS MULTIP 

LE CHOICE. INPUT THE number OF THE CORRECT ANSWER. " :GOSUB3 : PRINT 

:PRINT"WHO IS THE AUTHOR OF SHAKESPEARE'S Taming of the Shrew?": 

PRINT 

22025 PRINTTAB ( 10) "1. CHARLES DICKENS" : PRINTTAB ( 10) " 2 . JOHN STEI 

NBECK":PRINTTAB(10) "3. HENRY DAVID THOREAU" : PRINTTAB ( 10) " 4 . ISAA 

C ASIMOV": PRINTTAB (10) "5. NONE OF THE ABOVE" 

22030 INPUTRE: IFRE<1ORRE>5THEN22030 

22035 IFRE=5THENEN=EN+1 

22040 CLS: PRINT" 'QUESTION NUMBER 3 :": PRINT: PRINT" ANSWER TRUE OR 

FALSE. ":GOSUB3:PRINT:PRINT"A COMPLEMENT IS THE OPPOSITE OF AN IN 

SULT." 

22045 PRINT"?" 

22050 CH$=INKEY$: IFCH$="T"ORCH$="F"THEN22055ELSE22050 

22055 IFCH$="F"THENEN=EN+1 

22060 CLS: PRINT-QUESTION NUMBER 4 : " :PRINT: PRINT"ENTER THE WORD 

l.istmx i uniinues 



FOR TRS-80 MODEL I 01 
IBM PERSONAL COMPUTER 

The MiyiSFORTH 

.System. 
Compare. 



• The speed, compactness and 
extensibility of the 
MMSFORTH total software 
environment, optimized for 
the popular IBM PC and TRS- 
80 Models 1 and 3. 

• An integrated system of 
sophisticated application pro- 
grams: word processing, data- 
base management, communi- 
cations, general ledger and 
more, all with powerful capa- 
bilities, surprising speed and 
ease of use. 

• With source code, for custom 
modifications by you or MMS. 

• The famous MMS support, in- 
cluding detailed manuals and 
examples, telephone tips, 
additional programs and 
inexpensive program updates, 
User Groups worldwide, the 
MMSFORTH Newsletter, 
Forth-related books, work- 
shops and professional 
consulting. 




A World of 
Difference! 

Personal licensing for TRS-80: 
$129.95 for MMSFORTH, or 
"3/4TH" User System with 
FORTHWRITE, DATA- 
HANDLER and FORTHCOM 
for $399.95. 

Personal licensing for IBM 
PC: $249.95 for MMSFORTH, 
or enhanced "3/4TH" User 
System with FORTHWRITE, 
DATAHANDLER-PLUS and 
FORTHCOM for $549.95. 

Corporate Site License Exten- 
sions from $1,000. 



If you recognize the difference 
and want to profit from it, ask us 
or your dealer about the world 
of MMSFORTH. 



MILLER MICROCOMPUTER SERVICES 
61 Lake Shore Road, Natick, MA 01760 
(617)653-6136 

^137 
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NEWBASIC 2. 



Adds over 40 commands to 
Model l/lll disk BASIC. 

• Customize NEWBASIC— include 
only those commands you need. 

• Over a dozen easy-to-use and 
powerful graphics commands 

(eg, DRAW, LINE, CIRCLE, PAINT). 

• Produce sound for music & effects. 

• Pre-defined and definable keys. 

• Disk-based spooler/despooler. 

• Execute strings, label lines, 2-byte 
PEEK/ POKE, restore to any DATA 
line, biock memory move, set 
hi-mem, and much, much more. 

• 70 page manual & summary card. 

• Only $39.95! ( + $2.50 shipping) 

Check, money order, VISA, M/C, and C.O.D. 
(+ $2) accepted. CA residents add 6% tax. 
Foreign orders (exc. Canada), $5 shipping, 
US funds only. Both Model I & III versions on 
same disk. Requires 48K & 2 disk drives 
(Not copy protected-personal backups OK.) 
Works with most major DOS's. 




209 18th Strwl 

Huntington Bsach. CA 92648 



Credit card & COD. orders accepted 24-hrs 
(manned 8-5, M-F): (714) 960-6668. 



Dealer inquiries invited. 
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TIME SAVING - MONEY SAVING 

PRINTER BUFFER 




SPOOL Z-Q 

Spool-Z-Q accepts characters ai computer speed and feeds them 
to your printer at its much slower speed. This eliminates the time 
you waste waiting for your printer to finish before you can 
your computer. 

FEATURES 

Spool-Z-Q is perfect for use with al! parallel (Centronics stan- 
dard) printers including Radio Shack primers. Spool-Z-Q is 
stand-alone, it doesn't steal power from the computer or printer. 
The many advanced features include automatic internal space 
character compression, copy and self-rest functions, and a special 
"Pause-on-Formfeed" mode. 

SIZES AND EXPANSION 

Spool-Z-Q comes in 32K, 64K, and 128K character sizes. Any 
Spool-Z-Q can be user expanded to 64 or 128K by just plugging in 
chips — the sockets are already installed. There are no jumpers to 
fool with either, Spool-Z-Q knows how much memory is installed 

ithout being told. 

15DAYTRIAL PERIOD 

You may try Spool-Z-Q with your system and, if vou aren't 
completely satisfied, return it within 15 days for a no-hassle full 
refund. 



FACTORY DIRECT PRICES 
(Shipping included) 

32K - $219 

64K $249 
128K - $309 
Cable to printer - $27 
California residents include 6% sales ta 
Master Card, Visa. AMEX. and C.O.D. 



JVB ELECTRONICS 

1601 Fulton Ave.. Suite 1 
Sacramento. CA 95825 



(916)483-0709 
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1 isting continued 

THAT IS SPELLED INCORRECTLLY. ": PRINT: PRINTTAB ( 10) "OCTOPUS" : PRINT 
TAB (10) "SKEPTICISM": PRINTTAB (10) "RECIPROCAL" : PRINTTAB ( 10) "CLANDE 
STINE": PRINTTAB (10) "PRECURSOR" 

22065 INPUTRE$:IFRE$="INCORRECTLLY"THENEN=EN+l 

22070 CLS:PRINT"AND FINALLY, BY number, RESPOND TO THIS QUESTION 
TRUTHFULLY :" :GOSUB3 : PRINT: PRINT"WHAT DO YOU THINK OF THE ";RR$ 
(20) ;"?":PRINT:PRINTTAB(10) "1. HE'S GREAT1 I 1 " :PRINTTAB ( 10) "2. HE 
'S AVERAGE.": PRINTTAB (10) "3. DEFINITELY INFERIOR." 
22075 INPUTRE: IFRE>3ORRE<1THEN22075 
22080 IFRE=1THENEN=EN+1 
22085 IFRE=3THENEN=EN-1 

22100 CLS:PRINT"THE " ;RR$ ( 20) ; " TABULATES YOUR SCORE WHILE YOU W 
AIT.":GOSUB3 

22105 GOSUB137:IFTT=5THENPRINT"THE ";RR$(20);" NOTICES YOUR " ; RR 
$(31) :PRINT"AS HE CORRECTS YOUR PAPER AND ARBITRARILY LOWERS YOU 
R GRADE BY ONE." 

22110 IFEN=5PRINT"YOU ANSWERED EVERY QUESTION CORRECTLY! ": SC=SC+ 
10:GOTO5700 

22115 IFEN<5PRINT"YOU ANSWERED ";EN;" OUT OF 5 QUESTIONS CORRECT 
LY." 

22120 IFEN=>3PRINT"YOU PASS! " :GOSUB3 :SC=SC+10 :GOTO5700ELSEPRINT" 
YOU'VE FAILED! " :GOSUB3 : PRINT" YOU ARE EXPELLED! ": GOT03 0000 

22499 GOTO5700 

22500 GOSUB9000:RE$=RIGHT$(RE$,NU) :IFRE$="ALCOHOL"ORRE$="GRAIN A 
LCOHOL"ORRE$=RRS(30)THENYN=10:GOSUB139:IFTT=6THEN22510ELSEPRINT" 
MAYBE YOU SHOULD GET THE ";RR$(30);" BEFORE YOU DRINK IT.":GOT05 
700 

22510 IFYN=10ANDTT=6ANDAL=0THENAL=1:PRINT"YOU PUT THE ";RR$(30); 
" TO":PRINT"YOUR MOUTH AND DRINK. ": PRINT: GOSUB2: PRINT" IT BURNS I 
TS WAY INTO YOUR STOMACH I " :GOTO5700 

22520 IFYN=10ANDTT=6ANDAL=1THENAL=2:PRINT"YOU SLOSH DOWN ANOTHER 
GULP OF THE ALCOHOL AND HICCOUGH" : PRINT" VIOLENTLY I ": GOSUB2 : PRIN 
T"YOU'RE BEGINNING TO FEEL VERY LIGHT-HEADED. " :GOTO5700 
22530 IFYN=10ANDTT=6ANDAL=2THENAL=3:PRINT"YOU CHUG DOWN ANOTHER 
HUGE DRAFT OF THE HELLISH LIQUID" : PRINT"AND BEGIN TO FEEL NAUSEA 
TEDl":GOSUB3:IFPL=26PRINT"BLUTO GRINS AND SLIDES A PIECE OF GRUB 
BY LOOKING": PRINT" PAPER AT YOU. " : RS% (35 ,26) =1 :GOSUB3 :GOTO5700 
22540 IFYN=10ANDTT=6ANDAL=3THENAL=4: PRINT" YOU EMPTY THE BOTTLE!" 
: PRINT" YOU ARE COMPLETELY AND TOTALLY DRUNK 1 ": PRINT" THE ROOM SWI 
RLS CHAOTICALLY AROUND YOU I " : FORQ=lTOCT-l : IFTR$ (Q) =RR$ ( 30) THENTR 
$(Q)="":NEXT:GOTO5700ELSENEXT:GOTO5700 

22999 PRINT"DRINK WHAT, " ;NM$; "?" :GOTO5700 

23000 IFPLO25THEN140 

23005 IFPE=100PRINT"YOU HAVE ALREADY PASSED PHYS EDI " :GOTO5700 

23010 PRINT"YOU BEGIN JOGGING. .." :GOSUB3 : FORQQ=0TO30STEP5 : PRINTQ 

Q;" LAPS . . .":GOSUB2:NEXT:IFAL>0PRINT"THE ALCOHOL YOU DRANK HAS 

TAKEN TOO MUCH OUT OF YOU ! " :GOSUB2 : PRINT" YOU COLLAPSE, EXHAUSTED 

!":GOTO30000 

23020 IFAL=0PRINT"35 LAPS. . . " :GOSUB2 : PRINT"40 LAPS 1 ! I ": PRINT: PRI 

NT"YOU MADE IT! 1 1 " : PE=100 : SC=SC+5 :GOTO5700 

30000 PRINT: PRINT"YOU LOSE!" 

30050 PRINT"WOULD YOU LIKE ANOTHER GAME?" : INPUTR$: IFLEFT$ (R$ , 1) = 

"Y"THEN0 

30060 IFR$="N"END 

30070 GOTO30050 

31000 GOSUB90 00:RE$=RIGHT$(RE$,NU) 

31010 FORQ=1TOCT-1 : IFRES=TR$ (Q) THENYN=1 :Q4=Q 

31015 NEXTQ 

31020 IFYN=lTHENPRINT"YOU THROW THE " ;RE$:GOSUB2 : PRINT"IT BOUNCE 

S HARMLESSLY ACROSS THE FLOOR. ": FORQ=lT037 : IFRE$=RR$ (Q) THENRS% (Q 

,PL) =1:TR$(Q4) =" " :GOTO5700ELSENEXTQ 

31030 IFYN=0PRINT"YOU DON'T HAVE A " ;RE$:GOTO5700 

40000 YN=1:GOTO40030 

40010 PRINT@933, "PRESS '/' TO CONTINUE" 

40020 CH$=INKEY$: IFCH$="/"THENRETURNELSE40020 

40030 CLS:PRINTCHR$(23) " 

PAPER CHASE 
A LESSON IN 
FRUSTRATION 
BY CHRIS SKAPURA":FORQ=1TO2500:NEXT:CLS 
40040 CLS: PRINT: PRINT"THE PLACE : ANYSTATE UNIVERSITY, U.S.A. ":P 
RINT:PRINT"THE TIME : THE NOT SO UNREAL FUTURE. ": PRINT" ( IT MIGHT 

EVEN BE TODAY) " 
40050 PRINT: PRINT"THE SCENARIO : YOU ARE ABOUT TO ENTER A STRANG 
E AND SOMETIMES" : PRINT "UNBELIEVABLE ENVIRONMENT. AS AN INCOMING 
FRESHMAN TO THE" : PRINT"PRESTIGIOUS ANYSTATE U. , YOU HAVE BUT ONE 

GOAL . . . " 
40060 GOSUB40010:CLS:PRINT:PRINT:PRINT". . . YOU MUST SEEK OUT, DI 
SCOVER AND ATTAIN THAT LEGENDARY" : PRINT" ARTIFACT, THE college di 
ploma!":PRINT:PRINT"AND AS AN INCOMING FRESHMAN, YOU KNOW NOTHIN 
G ABOUT THE":PRINT"UNIVERSITY SAVE WHAT YOU DISCOVER INSIDE OF I 
TS" 

40070 PRINT"CONFINES": PRINT: PRINT: PRINT"WHAT YOU DO KNOW A LITTL 
E ABOUT IS YOURSELF ..." :GOSUB40010 :CLS: PRINT: PRINT"YOU ARE THE 
TYPICAL COLLEGE FRESHMAN. YOUR NOT THE THE TYPICAL" : PRINT"COLLEG 
E FOOTBALL PLAYER. AS SUCH, YOU ARE FORCED" 

Listing continues 
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Listing continued 

40080 PRINT'TO RELY ON YOUR BRAINS, AND NOT YOUR BRAWN. ": PRINT: P 
RINT: PRINT"BRUTE FORCE IS SELDOM, IF EVER, AN OPTION. ": PRINT: PRI 
NT"SO YOU MUST GET THE DIPLOMA- TALIS MAN THROUGH PERSISTANCE AND" 
:PRINT"INTELLIGENCE.":PRINT:PRINT"THERE WILL OF COURSE BE SOME" 
40090 PRINT"OBSTACLES ..." :GOSUB40010 :CLS : PRINT: PRINT" .. . FOR IN 
STANCE, YOU KNOW VIRTUALLY NOTHING OF THE NATURAL" : PRINT" SCIENCE 
S. THEY MAY BE A PROBLEM. BUT YOU FEEL FAIRLY CONFIDENT" : PRINT" A 
BOUT YOUR COMMAND OF LANGUAGES." 

40100 PRINT: PRINT"PHYSICALLY, YOU ARE NO PUTZ , BUT AGAIN YOU'RE 
NO HERCULES.": PRINT: PRINT" ALL YOU CAN DO IS WHAT ALL OTHER COLLE 
GE FRESHMAN DO . . . " : GOSUB40010 : CLS : PRINTCHR$ ( 23 ) " 
GO TO SCHOOL 
AND 

HAVE FUN I" 
40110 FORQ=1TO1000 .-NEXT: CLS: PRINT: PRINT"... AND NOW, A LITTLE AB 
OUT THE PROGRAM :": PRINT: PRINT: PRINT"THE PROGRAM IS WRITTEN TO A 
CCEPT NATURAL LANGUAGE RESPONSES ,": PRINT"TYPICALLY IN 2-WORD SEN 
TENCES.": PRINT: PRINT" STATEMENTS SUCH AS 'GOTO DESK 1 OR 'SAY HELL 
0'" 

40120 PRINT'ARE TYPICAL. " :PRINT:PRINT"THERE ARE, HOWEVER, 2 EXCE 
PTIONS TO THIS RULE . . . " :GOSUB40010 :CLS :PRINT: PRINT'THE EXCEPTIO 
NS TO 2-WORD SENTENCES : " : PRINT: PRINT" 1 . ) MOVEMENT. TO TRAVEL TH 
ROUGH THE UNIVERSITY, SIMPLY ENTER" : PRINT"THE FIRST LETTER OF TH 
E" 

40130 PRINT" INTENDED DIRECTION .": PRINT" (S FOR SOUTH, N FOR NO 
RTH ETC) ": PRINT" 2.) OBJECTS IN THE UNIVERSITY MAY REQUIRE 3 OR M 
ORE":PRINT"WORD SENTENCES .": PRINT" FOR INSTANCE, YOU MAY HAVE 

TO 'GOTO BULLETIN BOARD' OR": PRINT" 'GET CHEMISTRY BOOK'." 
40140 GOSUB40010:CLS:PRINT:PRINT". . . AND FINALLY, SOME KEY WORDS 

:":PRINT:PRINT" 'LOOK AROUND 1 OR 'LOOK' WILL DISPLAY THE CONDITI 
ONS OF YOUR": PRINT" IMMEDIATE ENVIRONMENT. ": PRINT: PRINT" ' INVENTOR 
Y 1 OR 'INV WILL DISPLAY ALL OF THE ITEMS YOU POSSESS" 
40150 PRINT: PRINT"THE REST OF THE WORDS YOU WILL HAVE TO DISCOVE 
R FOR YOURSELF..." 

40160 GOSUB40010:CLS:PRINT:PRINT"AND NOW, ON WITH THE GAME ...": 
PRINT: PRINT: PRINT: PRINT" (GOOD LUCK, YOU POOR SLOBI)" 

40170 PRINT: PRINT" PRESS '/' TO BEGIN GAME, '§' TO REREAD." 
40180 CH$=INKEY$:IFCH$="/"ORCH$="@"THEN40190ELSE40180 
40190 IFCH$="@"THEN40000ELSERETURN 

50003 CT=5:EN=4:CM=100:PE=100:TR$(1)=RR$(32) : TR$ ( 2) =RR$ (33) :TR$( 
3)=RR$(10) :TR$(4)=RR$(36) :PL=23 :GOTO57 00 



$$ PRINTERS $$ 



EPSON 

MX 80 

MX 80 FT III Lowest 

MX 100 FT III /icA 

FX80 mUSA 

STAR MICRONICS 

Gemini 10 $329 

Gemini 15 509 

C. ITOH 

8510 Prowriter Parallel . . $385 

8510 Prowriter Serial 569 

1550 Parallel 669 

1550 Serial 749 



$$ Letter Quality Printers $$ 



SMITH CORONA TP-1 . . . $549 

COMREX-CRI 825 

SILVERREED ..: 629 

NEC 3510 1499 

Interfaces with Cables . . 69 

Shi; >ng and Handling, Add 3%, 
Credit Card* Add 3% 
CA Residents Add 6%. 

THE COMPUTER STORE 

Dept. #345 • 3941/B South Bristol St. 
Santa Ana, CA 92704 

714-662-1425 „ 244 



LET YOUR 

HOME COMPUTER 

SUPPORT YOU 



(For as little as $20 per month!) 

Use your home computer to select 
and time stocks, options and com- 
modities . . . 

Timing charts and 
model portfolios updated daily 

(actual 12 month performance com- 
puterized and logged daily) 

.: Over 4,000 securities on-line 

24 hours, 7 days 
r. 21 years of testing/credibility 
n In use now by traders, 

brokers & investors 
[] Cost based upon usage 
(as low as $20 per month 1 ) 

Whether you trade $5,000 or 
$5,000,000 our SCC/90 information 
service is designed for you! ^272 



For information, call (51 6) 757-8638 

or write John Lambert or Ron Olsen 

Securities & Commodities Corp 

Box 521, Northport, N.Y. 11768 

Name 



Address. 

City.. 

State 



Zip. 



Phone. 
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The Automatic Ribbon Re-Inker 

Re- ink any type of ribbon (except carbon) for 

less than 5 cents. 

Extremely simple operation. 1) Load cartridge 

or spool. 2) Add ink to reservoir. 3) Start 

motor. 

We have a MAC INKER for any printer— many 

MAC INKER units support multiple printers. 

Ink contains lubricant for safe dot matrix 

printhead operation. Multicolored inks CBSltiputGI 

available. Ask for brochure. Fri6nQS 

100 Northwest 86th Avenue 
Portland, Oregon 97229 
(503) 297-2321 

^357 
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Price $54.95 _; 
plus $3.00 S&H. 

prices slightly 
higher for some 
printers. Total 
satisfaction or 
full refund. 



Dealer inquiries 
welcome 



Mac In 





sSee List of Advertisers on Page 323 
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Attack of the TRS 




by Hollie H. Satterfield 



Attack of the TRS-80 is a graphics- 
filled adventure game with a difference: 
you need strategy and luck, rather than 
pure logic, to complete it. Attack runs 
on Models I and III with at least 16K of 
RAM. Model I owners should make the 
changes listed in Table 1 . 

The game is set in a lunar colony 
where a deranged Model I has taken 
over the land and its electronic in- 
habitants. Your mission is to locate and 



A lunar colony is de- 
pending on you to 
deliver its inhabitants 
from a deranged Model I. 



1000 XA = PEEK(16416):XB = PEEK(16417):PRINT@0,"CARRYING"H"ITEMS. 

ALERTNESS: "A"SUSPENSION OF DISBELIEF: "DB;:POKE16416,XA:POKE16417, 

XB:IFDB>75 OR A<1 THEN 60000 
1010 PRINT"CARRYING"H"ITEMS. ALERTNESS:"A" SUSPENSION OF 

DISBELIEF:"DB:IFDB>75 OR A<1 THEN 60000 ELSE RETURN 

From line 695 on, change every GOSUB 1000 to GOSUB 1010 
Add GOSUB 1000 to line 540 after CLS 
Change GOSUB 1010 in line 330 to GOSUB 1000 
Remove POKE16916, from line 10007 

Table 1. Model I owners must make these changes to Program Listing 2. 



Lines 

10-40 
60-520 



540-579 
580-645 

1000 

2000-2230 

2240-10013 

10100-16100 



Description 

Instructions. 

Initialize variables and let you choose your provisions. Data includes robot 

names and strengths in line 140, map set-up in 140-170, rooms in 190-320, 

provisions in 380 and 410, and objects and their locations in 480 and 490. 

Print room descriptions and determine if robots are present. 

Decipher your commands and refer to lines 650-910. Compare line 645 to 

the data in 515 to see which verbs go to which lines. 

Updates your points. Locations 16416 and 16417 contain the current cursor 

position. 

Line 575 refers to these if special decisions are required in certain rooms. 

Explain your final combat against the TRS-80 when you reach that room. 

Contain combat routines and "charts"; yours are in lines 15000-15800, and 

the robots' are in lines 16000-16050. 

Table 2. Description of Lines in Program Listing 2. 



destroy the nefarious TRS-80. Deadly 
robots patrol the corridors trying to 
stop you. The colonists have been tem- 
porarily evacuated, and you are their 
only hope. 

Essential to victory is your suspen- 
sion of disbelief — the ability to believe 
the unbelievable. Each time you are in- 
jured in this game you can take the 
wound or you can use suspension-of- 
disbelief points; to win, however, you 
can't use more than 75 of these points, 
or your adventure would be too 
unbelievable. Also, you can receive only 
six wounds, and you must maintain an 
alertness factor above zero. 

A map is randomly generated for 
each game, and you must choose items 
to take on your mission (some might be 
useless). The same rooms appear in 
every game, but the items found in each 
room change. Since the rooms are ran- 
domly arranged, you might run into 
some rooms more than once. Make a 
map of the colony as you play. 

The game uses slightly less than 16K. 
POKE in the graphics using the string- 
packing technique in Program Listing 
1. (For details on this procedure, see 
"The STRINGS's the Thing," 80 Micro, 
June/July 1982, p. 298.) Instead of 
spaces in lines 499-501 and 10000- 



The Key Box 

Model I and III 
16KRAM 

Cassette Basic 
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10006, you can use numbers or letters 
for easier counting. It doesn't matter, 
because these positions are replaced by 
characters POKEd in by the program. 
After running the program, delete 
everything except lines 499-501 and 
10000-10006. Type Program Listing 2 
"on top" of the remaining lines (typing 
the listings separately and merging them 
is difficult). Model III owners will see 
the graphics characters in the remains of 
Listing 1 , while Model I owners will see 



token words substituted for the char- 
acters; both versions work equally well. 
Table 1 explains the program's lines. 

This program was inspired by, and 
loosely based on, Return of the Stain- 
less Steel Rat, a board game published 
by Simulations Publications Inc., which 
is no longer in business. ■ 



Contact Hollie H. Satterfield at 416 
Starmont Drive, Danville, VA 24540. 



Program Listing 1 



'ATTACK OF THE TRS-80 LISTING 1 
BY HOLLIE SATTERFIELD 

ADDITIONAL GRAPHICS BY MARTIN JOSEPH 

5 'DATA FUR ROBOT #1 

10 DATA128,128, 160, 184,174,157, 180, 144, 26,8,8,8,8,8 ,8, 8,8,180,180, 

186,147,131,131,16 3,181,184,184,26,8,8,8,8,8,8,8,8,170,130,164,32, 

170,149,26,8,8,8,8,8,8,138,188,140,141,190,133,26,8,8,8,8,8,8,130, 

131,129,130,131,129 

15 'ROBOT #2 

20 DATA1 28, 136, 152, 157, 152, 26, 8, 8, 8, 8, 160, 134, 151, 164, 26, 8, 8, 8, 8, 8 

,160,135,166,166,134,165,26,8,8,8,8,8,169,152,137,184,129 

25 'ROBOT #3 

30 DATA168, 151, 131, 171, 148, 131, 175, 191, 159, 131, 26, 8, 8,8,8,8,8,8,8, 
8,8,188,159,15 9,143,172,140,140,143,26,8,8,8,8,8,8,8,8,191,183,132 
,87,170,26,8,8,8,8,8,135,157,153,153,187,26,8,8,8,8,143,190,190,14 
2,26,8,8,8,138,133 

3 5 'ROBOT #4 

40 DATA128, 139, 183, 17 9, 17 9, 187, 135, 26, 8, 8, 8, 8 ,8, 8, 8 ,188, 188, 142, 14 
3,143,141,188,188,26,8,8,8,8,8,8,8,8,191,138,181,128,128,186,133,1 
91,26,8 

50 DATA8, 8, 8, 8, 8, 8, 8, 131, 160, 187, 14 8, 168, 183, 144, 131, 26, 8, 8, 8, 8, 8, 
8,8,186,133,13 0,129,138,181,26,8,8,8,8,8,8,143,128,128,128,128,143 

55 'ROBOT #5 

60 DATA128, 128, 16 0,174, 164, 26, 8, 8, 8, 8, 8, 144, 128, 160 ,159, 181, 128, 12 
8,144,26,8,8,8,8,8,8,8,8,130,164,134,152,146,164,134,26,8,8,8,8,8, 
8,160,135,130,130,165,26,8,8,8,8,8,137,128,128,128,136,129 

6 5 'ROBOT #6 

7 DATA128, 128, 160, 142, 164, 128, 152, 141, 144, 26, 8, 8, 8, 8,8,8,8,176,17 
9,17 2,131,156,17 9,176,26,8,8,8,8,8,8,8,8,8,168,131,166,164,128,131 
,128,152,153,131,14 8,26 

80 DATA8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 130, 164, 128, 137, 153, 176, 166, 134, 128,1 
52,129,26,8,8,8,8,8,8,8,8,160,142,140,141,144,26,8,8,8,8,8,134,128 
,128,128,137 

4 99 RS(D =" (68 SPACES) 

":R$(2)=" (37 SPACES) " 

500 R$(3)= M (69 SPACES) 

n :R$(4)=" (84 SPACES) 



501 R$(5)=" 

M :R$(6)=" 



(59 SPACES) 
(93 SPACES] 



510 DIMA$(16) 

515 'POKING GRAPHICS FOR ROBOTS #1-6 

520 FORN=lT06:X=PEEK(VARPTR(R$(N))+2)*256+PEEK(VARPTR(R$(N))+l) : FO 

RT=0TOLEN(R$(N) ) -1 : READJ : CS=CS+J : POKEX+T, J : NEXTT,N 

525 'CS = CHECKSUM 

530 IFCS=33979THENF0RX=1T016:READA$(X) : NEXT: CS=0 : ELSEPRINT"DATA ER 

ROR IN LINES 10-80.": STOP 

535 'POKING GRAPHICS FOR ROBOT #7 

540 FORN=lT016:X=PEEK(VARPTR(A$(N) ) +2) *256+PEEK ( VARPTR ( A$ (N) )+l) :F 

ORT=0TOLEN(A$(N) ) -1 : READJ : CS=CS+J : IFJ<32THENREADQ: CS=CS+Q: FORI=0TO 

J:POKEX+T+I,Q:NEXTI:T=T+J:NEXTT,N 

550 POKEX+T, J:NEXTT, N: IFCSO21430THENPRINT n DATA ERROR IN LINES 101 

00-10180" 

10000 DATA" (19 SPACES) "," (25 SPACES) "," (2 

8 SPACES) "," (29 SPACES) 

10002 DATA" (30 SPACES) "," (31 SPACES) 

(32 SPACES) "," (32 SPACES) 



10004 DATA" 
10006 DATA" 



(32 SPACES) 

(28 SPACES) 

(29 SPACES) 
(29 SPACES) 



," (31 SPACES) 
(28 SPACES) 

(29 SPACES) 
(29 SPACES) 



1009 5 'DATA FUR ROBOT #7 

10100 DATA12, 32 ,170 ,131, 171, 151 ,131, 14 9, 6, 3 2, 16 0,152, 134, 2, 13 1,171 

Listing I continues 



REMSOFT, INC. 

Let Your TRS-80® 

Teach You 

ASSEMBLY LANGUAGE 

Tired of buying book after book on assembly 
language programming and still not knowing 
your POP from your PUSH? 

REMSOFT proudly announces a more 
efficient way, using your own TRS-80® to 
learn the fundamentals of assembly language 
programming . . .at YOUR pace and YOUR 
convenience. 

Our unique package, "INTRODUCTION TO 
TRS-80® ASSEMBLY PROGRAMMING, will 
provide you with the following: 

• Ten 40 minute lessons on audio 
cassettes 

• A driver program to make your TRS-80® 
video monitor serve as a blackboard for 
the instructor. 

• A display program for each lesson to 
provide illustration and reinforcement for 
what you are hearing. 

• Step-by-step dissection of complete and 
useful routines to test memory and to 
gain direct control over the keyboard, 
video monitor, and printer. 

• How to access and use powerful routines 
in your Level II or Model III Basic ROM 

AVAILABLE FOR MODEL 1 & 3 

RE MASS EM (.ape) $74.95 

REMASSEM (disc) $79.95 

LEARN TRS-80® 

ASSEMBLY LANGUAGE 

DISK I/O 

Your disk system and you can really step 
out with REMSOFT'S Educational Module, 
REMDISK-1, a "short course" revealing the 
details of DISK I/O PROGRAMMING using 
assembly language. Intended for the student 
with experience and assembly language. 
COURSE INCLUDES: 

• Two 45-minute lessons on audio cassette 

• A driver program to make your TRS-80® 
video monitor serve as a blackboard for 
the instructor. 

• A display program for each lesson to 
provide illustration and reinforcement for 
what you are hearing. 

• A booklet of comprehensive, fully 
commented program listings illustrating 
sequential file I/O random-access file 
I/O and track and sector I/O. 

• A diskette with machine readable source 
codes for all programs discussed in both 
Radio Shack EDTASM and Macro 
formats. 

• Routines to convert from one assembler 
format to the other. 

Presently available for Model 1 only 
REMDISK-1 only $29.95 

Dealer inquiries invited 

These courses were developed and recorded by Joseph E. 
Willis and are based on the successful series of courses he 
has taught at Meta Technologies Corporation, the Radio 
Shack computer Center, and other locations in Northern Ohio. 



REMSOFT, INC. 

571 E. 185 St. 

Euclid, Ohio 44119 

(216)531-1338 



SHIPPING CHARGES: 

S2. 50 WITHIN UNITED STATES 

S5.00 CANADA AND MEXICO 

OTHER FOREIGN ORDERS ADD 20% 

OHIO RESIDENTS ADD 6V?% SALES TAX 

TRS-80* IS A TRADEMARK OF TANDY CORP. 
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\ferbatim 

flexible disks 

Call Free (800) 235-4137 for 

prices and information. Dealer 
inquiries invited. C.O.D. and 
charge cards accepted. 




VISA' 



PACIFIC 
EXCHANGES 

100 Foothill Blvd. 
San Luis Obispo, CA 
93401. InCal. call 
(800) 592-5935 or 
(805) 543-1037. 

^207 




SubscfL 




80 Mi cro does not keep subscription 
records on the premises, therefore 
calling us only adds time and doesn't 
solve the problem. 



Please send a description of the prob- 
lem and your most recent address 
label to: 

BOmicro 
Subscription Dept. 
PO Box 981 
Farmingdale, NY 11737 



Thank you ana enioy your subscription 



Listing I continued 

,32,170,149,32,151,2,131,137,164,144 

10110 DATA3, 32, 160, 152, 134 ,129, 4, 32, 170, 32, 170 ,149, 32, 149, 4 ,32, 13 

,137,164,144,2,32,152,129,7,32,170,32,170,149,32,149,7,32,130,164 

10120 DATA32, 32, 150, 9, 32,170, 32, 170, 149,32, 149, 9, 32, 169, 32, 154, 10, 

32,170,32,170,149,32,149,10,32,165 

1013 DATA1 6 8, 13 3, 3 2, 16 0,8, 17 6, 186, 17 6, 186, 181, 17 6, 181, 8, 17 6, 144, 3 

2,138,144,170,3 2,32,154,23,32,165,32,32,149 

10140 DATA17 0,1 44, 32, 141, 23, 14 0,1 4 2, 3 2, 160, 149 

10150 DATA32, 13 0,137, 140, 188, 5, 32, 9, 17 6, 5, 32, 188 ,140, 134, 129, 3, 32, 

17 0,4,32,168,141,7,140,142,14 8,4,32,149 

1016 DATA3, 32, 14 9, 3, 3 2, 16 0,1 83, 9, 17 9, 187, 144, 3, 3 2, 17 0,2,32,160,13 
3,3,32,158,11,140,173,3,32,13 8,144 

1017 DATA2, 3 2, 17 0,3, 3 2, 186, 13, 17 9, 181, 3, 32, 14 9, 2, 3 2, 150, 2, 32, 16 8, 
141,13,140,142,148,2,32,169 

10180 DATA2, 3 2, 181, 2, 17 6, 183, 15, 17 9, 187, 2, 17 6, 186 



Program Listing 2 

'ATTACK OF THE TRS-80 LISTING 2 

by Hollie Satterf ield 
10 CLS:PRINT<a20," ATTACK OF THE TRS-80 !": PRINT: PRINT" The coloni 
sts of Moonbase II have been forced to flee for 
their lives. A deranged Model I microcomputer has infiltrated 
the colony's central computer and has taken over the base and" 
20 PRINT"all of its electronic inhabitants. Your mission: Find the 
Model 

1 and destroy it while avoiding the deadly robots which now 
patrol the station. ": PRINT 
30 PRINT" Type in verb + noun commands to do whatever you wish. 

You 
may use the following verbs: N,S,E,W (to move in any direction) ,GE 
T (to retrieve something) , TAKE (to take a pill) , DROP, DRINK , " 
40 PRINT M L00K,and INVENTORY. You are dead if you receive more than 

6 
wounds or if your alertness rating drops to 0,and you lose if 
you use more than 75 Suspension of Disbelief points. Good luck!" 
6 CLEAR85:F0RX=1T06:READN$(X) ,CR(X) : NEXT: D$ ( 0) ="N0RTH " : D$ ( 1) = n S0U 
TH" :D$(2)="EAST":D$(3) ="WEST" : CP=15 : DIMR ( 30) ,Y(30),D(30,3),C$(15), 
A$(49) ,A(28) ,0B(49) ,WP(30) 

140 F0RX=1T03 : FORY=0TO3 : READD ( X , Y) : NEXTY , X : DATAMAIDB0T , , HANDYMAN 
,4,GARC0N,3,SECURIB0T,5,CARG0B0T,2,GUARDIAN,3, ,6, 2,,, 7, 3,1,,, 4, 2,, 

9,5,3, ,,,,1,10,, 

150 DATA2,,,,, 12,,, 4, 13,,, 6, 14, 11,,,, 12, 10, 8,, 13, 11 

160 DATA9,,, 12, 10, 19,,,, 20, 16,,, 21, 17, 15,, 22,, 16,,, 19,, 14 

170 DATA23,, 18, 15, 24,,, 16,,,, 17, 26,,, 19, 27,,, 20,, 25, ,,29, 26, 24, 22, 

,,25, 23,, 28,,,, 29, 27, 25,, 30, 28,,,, 29 

190 C$(1)="A WEAPONRY SHOP . " : C$ ( 2) ="A HUGE SUITE DONE IN EARLY GRE 

EK DECOR, WITH 

RED VELVET CARPETING AND UPHOLSTERY, A SMALL SWIMMING POOL, AN 

EXTENSIVE MOOD LIGHTING SYSTEM, AND A ZERO GRAVITY BED CHAMBER. 

200 C$(3)="The Pizza Palace, A RESTAURANT. UNFORTUNATELY, 

LARGE QUANTITIES OF TOMATO SAUCE , PEPPERONI , AND ANCHOVIES WILL BEOF 

NO HELP TO YOU IN YOUR QUEST. 
210 C$(4)="WHAT MUST HAVE BEEN A MAJOR BATTLE SITE BEFORE 
THE COLONISTS EVACUATED. SHRAPNEL AND SHATTERED CONCRETE BLOCKS AR 
E SCATTERED AROUND .": C$ ( 5) ="A SMALL AUDITORIUM. THE WORDS 'GO BACK 
! ' ARE 

SPRAY PAINTED IN LARGE LETTERS ON THE WALL. 
250 C$(6)="A RANSACKED SALOON. ALMOST EVERYTHING YOU CAN 
SEE IS BATTERED OR SMASHED. " : C$ ( 8) ="A PHARMACY. SHELVES HERE ARE F 
ILLED WITH 

HUNDREDS OF BOTTLES FILLED WITH MULTICOLORED PILLS. THE BOTTLES AR 
E MARKED IN SOME UNKNOWN LANGUAGE. 

260 C$(7)="AN ELECTRICIAN'S SHOP. MANGLED ELECTRICAL 
EQUIPMENT IS EVERYWHERE. ": C$ ( 9) ="A COMMUNICATIONS ROOM. ALL OF THE 

VARIOUS 
SPEAKERS, MICROPHONES, AND SCREENS , HOWEVER, HAVE BEEN SMASHED. 
270 C$(15)="SPLASH! THIS MUST HAVE BEEN THE CHILDREN'S WARD, AS A B 
UCKET OF 

WATER WAS BALANCED OVER THE DOOR. YOU ARE SOAKED AND ANY LASERS YO 
U HAVE ARE SHORT-CIRCUITED. 

280 C$(ll)="The Cigar Box, A TOBACCO STORE WITH EVERY KIND 
OF TOBACCO IMAGINABLE: TOBACCO FOR SMOKING, CHEWING, SNORTING, 
DRINKING, AND FOR SEASONING FOOD. YUCCH. 

290 C$(12)="AN EMPTY SPACECRAFT HANGAR. ELECTRONIC LAUGHTERECHOES 
THROUGH THE HUGE CHAMBER FROM ITS P. A. SYSTEM .": C$ ( 13) ="A ROOM DEC 
ORATED HOTEL-STYLE: PLASTIC 
FURNITURE, SILLY PAINTINGS , ETC. 

320 C$(10)="A FAIRLY LARGE NOVELTY SHOP. ON THE COUNTER IS A BOWL 
OF CHOCOLATE-COVERED INSECTS .": C$ ( 14) ="THE ROOM IS MARKED AS AN EX 
ECUTIVE OFFICE. SEVERAL DIPLOMAS AND OTHER CERTIFICATES HANG ABOVE 

THE MESSY DESK. 
330 A$=INKEY$:PRINT@978, "Press any key to continue" ; :A=20 :GOSUB790 

:CLS:GOSUB1010 

Listing 2 continues 
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YOU'RE 





TEM 



The readers of 80 Micro were 
asked to select their favorite 
operating system for the TRS-8 
Model I&III. LDOS, DOSPLUS, 
TRSDOS, MULTIDOS, WOBOS 1 
NEWDOS/80 were all on the ballot. 
They picked NEWDOS/80. 

The editors of 80 Micro have also 
awarded their Hall of Fame Awards. 
From among every software 
package on the market, the editors 
picked only six that they felt made a 
lasting and significant contribution 
to the TRS-80 computer. 
NEWDOS/80 was one of the six. 

Since we first introduced the 
NEWDOS operating system we've 
been stating its features, capabilities 
and advantages. Thank you 80 Micro 
readers and NEWDOS/30 users for 
supporting us. 
Version 2.0 . . . 
High Performance DOS 

NEWDOS/80 Version 2.0 is our 
highest performance system yet. 
The versatility and sophistication of 
Version 2.0 includes features like: 
• Double density support on the 

Model I 




• Enhanced 
compatibility between 
Model I and III 

• Triples directory size 

• Dynamically merge in BASIC (also 
allows merging of non ASCII 
format files) 

• Selective variable clearing 

• Can display BASIC listings page by 
page 

• Automatic repeat function key 

• Routing for peripheral handling 

• Enhanced disassembler 

• Command chaining 

• Superzap to scan files 

• Fast sort function in BASIC 

Hard Disk Support Now Available 

• Support for Apparat's and Radio 
Shack's Model III hard disk 
(optional-available upon request 
for additional $60) 




These |*fc»2 

features make 
NEWDOS/80 one 
of the most powerful 
additions you can make to 
your system. And Apparat's 
commitment to support assures that 
you've purchased a superior 
product, both today and tomorrow. 
At just $149.00 it could be the best 
investment you will make for your 
TRS-80. 

For more information see your 
local computer store or contact 
Apparat, Inc., 4401 S. Tamarac 
Parkway, Denver, CO 80237, 
303/741-1778. 

TRS-80 and TRSDOS are registered trademarks of 
Tandy Corp., LDOS - Logical Systems, DOSPLUS - 
Micro Systems Software, MULTIDOS - Cosmopolitan 
Electronics, WOBOS I - Western Operations, 
NEWDOS/80 - Apparat. 
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JnK 



MASTER 

HORSE 

HANDICAPPER 

OVER 3 YEARS IN THE MAKING 

1st complete handicapping program 
that evaluates all variables 



EVALUATES FROM RACING FORM: 

je Gender Post (Today) 

ass Jockey(Today) Post (Last) 

edition Jockey (Last) 3 Speed 

insistency Length Trainer 

irnings Time of Yr. Workouts 

And gives you GRAPHIC 
REPRESENTATION of finish 



Trainer 
Workouts 



THE 



ADAPTS TO ANY TRACK IN 
WORLD 

Quickly and easily by changing data statements 

relating to local track records/jockeys and trainers. 

COMPLETE INSTRUCTIONS INCLUDED 



If you own a model l/lll 
and also. enjoy a day at 
the races, why not com- 
bine them .and make a 
nice profit. With a $1.75 
racing form and this 
program you can take 
the "luck" out of the 
track and be a "con- 
sistent" winner. 

Note: Specify 

Mod l/lll & , 

Mamnn.' 



Program: 



- Thoroughbred + 

. Maiden 59.95/16K 

- Quarterhorse + 

Maiden 59.95/16K 

C. Pace Handicap 

39.95/1 6K 

D. Thoroughbred/Pace 

79.95/32K 

E. All with One MENU 

99.95/48K 
This program can be 
suited to 16K-48K 
machines TAE OR DISC 



Send check/money order/VISA/Mastercharge (in- 
clude expiration date) to: 

Prof. Jones FREE 48 Hr. 

1114 N. 24th St. Shipping in USA 

Boise, Idaho 83702 
Or call (208) 342-6939 M-F/8:00-3:00 MST 



TERMS: Add 3 WEEKS for personal checks / Add 6.00 for 
C.O.D. / Add 4% for Idaho residents / Add 4.00 shipping 
outside U.S A 

^449 



CRITICAL PATH 
SCHEDULING 

SOFTWARE FOR THE TRS-80 

MODEL II 

• up to 500 activities per file 

. comprehensive job calendar 
processor 

• user-defined activity codes 

• selective reports by code, status, 
criticality, sorted by date 

- prints easy-to-read barcharts 

• designed for unskilled operators 

• proven on multi-million $ 
projects 

• 110 page manual includes 
primer on the Critical Path 
Method 

• requires 64K Model 11 and I 32 
column printer 

System U.S. $495.00 

Manual only .. U.S. $ 25.00 
(Incl. shipping & Handling) 
Ontario residents add 7% 
Send check or M.O. to: 

CANADIAN MICRO SOFTWARE 
P.O. Box 98, Station J, 
Toronto, Ontario, Canada 
M4J 4X8 

ask about our upcoming version 
for the TRS-80 Modell III 



Listing 2 continued 

360 PRINT" You must wear a vacuum suit. Here are the 4 types of s 
aits , 

and their corresponding Suspension of Disbelief cost. #1 is a 
regular suit, #2 reflects laser blasts, #3 deflects bullets, and #4 

does both. 
370 FORX=lT04:READA$(X) ,A(X) :PRINTX; " " A$ (X) ; A (X) : NEXT 
380 DATA VACUUM, 5, REFLECTIVE, 7, BODARMOR, 7, REFLECBOD, 10, LASER PISTO 
L #1,3, LASER RIFLE #1,5, PISTOL #1,3, RIFLE #1,5, LASER RECHARGE #1,1 
, LASER RECHARGE #2,1, LASER RIFLE RECHARGE #1,2, LASER RIFLE RECHARG 
E #2, 2, PISTOL AMMO #1,1, PISTOL AMMO #2,1 

390 INPUT"Which do you want" ;B: IFB<1ORB>4THEN390ELSEOB(B) =-1 :H=H+1 
:DB=DB+A(B) -.GOSUB1000 

400 CLS:Y=6 4:F0RX=5T028:READA$(X) ,A(X) : PRINT0Y ,X-4 ; " "A$ (X) ; A(X) : Y 
(X)=Y:Y=Y+32:NEXT:F0RX=29T049:READA$(X) ,OB(X) : NEXT 

410 DATARIFLE AMMO #1,2, RIFLE AMMO #2 , 2 , SCOTCH , 1 ,WINE , 1 ,BOTBLASTER 
,3, PAIN PILLS #1,2, PEP PILLS,2,EXPL GRENADE , 2 , SILVER KEY, 2, ATARI J 
0YSTICK,1,BLUE INSULATED GLOVES, 1, GAS GRENADE , 1 , SMOKE GRENADE, 2, GO 
LF CLUB,1 

430 PRINT"You may now choose 8 other items. Think carefully about 
your 

choices. Press any key to begin choosing. " ; :GOSUB790 :PRINT@832 ,CHR 
$(31) ; :FORX=1TO8:B=0 
460 PRINT@896,; : INPUT n Which item";B: IFB<10RB>26THENPRINT@896 , " 

n ; :GOTO460ELSEIFOB(B+4) O0THEN465ELSEOB (B+4) =-l:DB=DB+A( 
B+4) :H=H+1:GOSUB1000:PRINT@896," " ; : PRINT@Y (B+4) ," 

"; :GOTO47 
465 PRINT@896,"You already have it ! " ; : FORY=1TO200:NEXTY: PRINT@896 , 

";:GOTO46 
470 NEXT 

480 DATARIFLE #2,1, RIFLE #3,1, LASER RIFLE #2,1, LASER RIFLE #3, 4, LA 
SER PISTOL #2,1, LASER PISTOL #3,1, RIFLE AMMO #3,1, RIFLE AMMO #4,1, 
LASER RECHARGE #3,1, LASER RECHARGE #4,1, LASER RIFLE RECHARGE #3,1, 
LASER RIFLE RECHARGE #4,1, PAIN PILLS #2, 2, PAIN PILLS #3,2 
490 DATA5-IRON,14,GOLF BALL , 14 , WHISKEY , 6 , VODKA, 6 , INSULATED GLOVES, 
7, HUMIDOR, 11, ASH TRAY, 11 

510 FORX=1TO30:R1=RND(15) : R(X) =R1 : NEXT 

515 FORX=1TO10 : READVB$ ( X) : NEXT : DATAN , S , E , W, GET, DRO , DRI , TAK , INV, LOO 
520 PRINT@977, "Press any key to begin game" ; :GOSUB790 
540 CLS: IFCP=5THENGOTO10000ELSEPRINT: IFR(CP) <14THENPRINT" YOU HAVE 
ENTERED "; 

550 PRINTC$(R(CP) ) :NR=0 

560 R1=RND(6) : IFRl>5THENRl=RND ( 3) : PRINT"WARNING: ROBOTS APPROACHIN 
G! " :FORX=1TO750 :NEXT: CLSELSE575 

570 FORX=lTORl:RB(X)=RND(6) : NR=NR+1 : NEXT: PRINT@64 ,R$ (RB ( 1) ) ; : PRINT 
@448,N$(RB(1) ) ; : IFNR>1THENPRINT@89 ,R$ (RB ( 2) ) ; : PRINT@473 ,N$ (RB( 2) ) ; 
:IFNR>2THENPRINT@115,R$(RB(3) ) ; : PRINT0500 ,N$ (RB ( 3) ) ; 
57 2 PRINT:GOSUB150 00:FORX=1TO500:NEXT:GOTO5 40 

575 IFR(CP) =8THEN2000ELSEIFR(CP) =15THEN2100ELSEIFR ( CP) =10THEN2200E 
LSEIFR(CP) =13THEN2150 

576 B=0: PRINT" IMPORTANT VISIBLE ITEMS: " ; : F0RX=1T049 : IFOB ( X) =R( CP) 
THENPRINTA$(X) " ";:B=1 

577 NEXTX:IFB=0THENPRINT"NONE."; 

578 PRINT: PRINT"EXITS: " ; : FORX=0TO3 : IFD (CP,X) <>0THENPRINTD$ ( X) " " 

579 NEXTX: PRINT 

580 PRINT: INPUT" COMMAND" ; CO$: VB=0 :NO=0 : VB$=" " : NO$="" 
590 LC=LEN(C0S) : IFLC<4THENVB$=CO$ : GOTO620 

600 FORX=lTOLC: A$=MID$ (CO$ ,X , 1) :IFA$<>" "THENVB$=VB$+A$: NEXTX 

610 IFLEN(VB$)=LEN(CO$)THENNO=0ELSENO$=RIGHT$(CO$,LC-X) 

615 VB$=LEFT$(VB$,3) 

620 FORX=1TO10: IFVB$=VB$ (X) THENVB=X: ELSENEXT 

630 F0RX=1T049: IFNO$=A$ (X) THENNO=XELSENEXT 

640 IFVB=0THENPRINT"WHAT?":GOTO580 

645 ONVBGOTO650,650,6 50,650,850,90 0,670,700,80 0,750 

650 IFD(CP,VB-1) =0THENPRINT"YOU CAN'T GO THAT WAY ! " : GOTO580 

652 IFRND(10) <>1THEN668ELSEPRINT"THE DOOR IS ELECTRIFIED!" 

655 IFOB(25)=-10ROB(47)=-lTHENPRINT"YOUR INSULATED GLOVES PROTECT 

YOU , HOWEVER. " : GOT06 6 5 

660 PRINT"YOU ARE WOUNDED !": GOSUB11520 

665 FORX=1TO1000:NEXT 

668 CP=D(CP,VB-1) :GOTO540 

670 IFNO=17ORNO=18ORNO=45ORNO=46THEN680ELSEPRINT"ARE YOU NUTS?":GO 

TO580 

680 IFOB(NO) =-lTHEN695 

6 90 PRINT" YOU DON'T HAVE ANY ! " : GOTO5 80 

695 OB(NO) =0:H=H-1:PRINT"O.K. YOUR ALERTNESS IS INCREASED BY 2 POI 

NTS.":A=A+2:GOSUB1000:GOTO580 

700 IFNOO20ANDNO<>21ANDNO<>41ANDNOO42THENPRINT"TRY 'GET' .":GOT05 

88 

710 IFNO=20ORNO=41ORNO=42THENIFOB(NO) =-lTHENPRINT"O.K. ONE WOUND I 

S CURED IF YOU HAVE ANY. " : OB (NO) =0 : H=H-1 :GOSUB1000 : IFW>0THENW=W-1 : 

GOTO580ELSE580 

720 IFOB(NO) =-lTHENOB(NO)=0:PRINT"O.K. YOUR ALERTNESS IS INCREASED 

BY 2 POINTS. ":H=H-1:A=A+2:GOSUB1000:GOTO580 
730 PRINT" YOU DON'T HAVE ANY I " : GOTO580 
750 IFR(CP)<14THENPRINT"YOU HAVE ENTERED 
755 PRINTC$(R(CP) ) :GOT0576 

7 60 XA=1: RETURN 
770 XA= 2: RETURN 

Listing 2 continues 
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PROTECT YOUR TRS-80 MOD III* KE' 




PLEXA- 



Wm 



PROTECT YOUR $2000 INVESTMENT FOR UNDER $20! 



PLEXA-LOK slips up and over the keyboard - 
then gently snaps into position. 

Your valuable computer is protected from objects and spills directly on top of keyboard 
which couid cost hundreds ot dollars lo repair 1 

PLEXA-LOK allows your secretary to go on break without having to worry about visitors 
accidentally destroying their hours (and your $) ot work. 



PLEXA-LOK 

ENHANCES looks of your 
system 

PROTECTS keyboard from 
dust 

30-DAY GUARANTEE 

ALLOWS computer to 

remain en while unattended 

KEYBOARD protected 
from kids 

HIGH QUALITY 

Acrylic 

SCHOOLS - A MUST! 



INTRODUCTORY SPECIAL 

$19.95 Prepaid UPS 

Continental USA 

CA Residnnls Add 6", Id. 




• TM TANOV CORPORATION 



MON -FHI 9 00 5 00 



MasterCard and Visa Accepted 



LAST ICI.KCTRONICS 

PO BOX 1300E 

SAN ANDREAS. CA 95249 

1209) 754-1800 



Allow 4 5 WeoKS 

Delivery 
Dealer Inquiries Welcome 
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FRICTION FEED FOR YOUR EPSON 

MX-70'°'MX-80 

■ MX-70 and MX-80 are Trademarks ot EPSON. Inc. 



• Converts your printer for friction 
feed of SINGLE SHEETS or ROLL 
PAPER. 

• SIMPLE Installation (all you need 
is a screwdriver, no soldering). 

• Tractor feed remains 
undisturbed. 

. Only S 39 95 

(add $2.00 for shipping) 

SATISFACTION GUARANTEED OR YOUR MONEY BACK 

MICRO-GRIP .,6, 
3164 Dumbarton Ave. 
San Bernardino, CA 92404 

CALIFORNIA RESIDENT ADD 6% STATE SALES TAX 

VISA & Master Card (714) 8646643 

Accepted ' ' 





mmmm 




3C 



MIDWEST 
COMPUTER 
WHOLESALE 



JJ 



e 



ri 



AS A WHOLESALER, MCW S SERVICE IS NOT RECOMMENDED FOR 
EVERYONE. A WHOLESALE TRANSACTION IS BEST SUITED TO 
THE INFORMED OR EXPERIENCED SHOPPER, ONE WHO KNOWS HIS 
NEEDS. IF YOU ARE A BEGINNER WE ASK THAT YOU DEAL WITH 
A RETAILER WHO ' S HIGHER MARGIN ALLOWS THE "HAND 
HOLDING LEVEL OF SUPPORT WHICH WE CAN'T PROVIDE AT 
THF.SE PRICES. IF HOWEVER YOU DON'T NEED "HAND HOLDING" 
WE CAN OFFER YOU TREMENDOUS VALUES AND SAVINGS ON ALL 



CHECK THESE SAMPLES OF OUR PRODUCTS 

GIVE US A CALL IF YOU DON'T FIND 

EXACTLY WHAT YOU ARE LOOKING FOR 

COMPUTERS » » » » 

TRS-80 M0D4 64K (2) DRIVES 40TR/SS/DD #1349.00 

TRS-80 MOD? 64K (1) DRIVE 77TR/S8/DD #2300.00 

VICTOR 7000 128K (21 DRIVES 80TR/SS/DD »2993.00 

SANYO MBC-IOOO 64K (1) DRIVE 40TR/DS/DD #1690.00 

RAW DISK DRIVES « » » CWE STOCK TANDDN AND MFI) 

40 TRACK SINGLE SIDE DRIVES FROM »147.00 

40 TRACK DOUBLE SIDE DRIVE8 FROM »184.00 

80 TRACK SINGLE SIDE DRIVES FROM #202.00 

80 TRACK DOUBLE 8 I DE DRIVES FROM »272.00 

77 TRACK SINGLE SIDE 8" DRIVES FROM *337.00 

77 TRACK DOUBLE SIDE 8" DRIVES FROM #462.00 

8INGLE CASE AND POWER SUPPLY 3" FROM #33.00 

DUAL CASE AND POWER SUPPLY 3" FROM #86.00 

SINGLE AND DUAI 8 " CASE AND POWER SUPPLY FROM ... #200 . O 

WINCHESTER HARD DRIVES • » « 

(3) SIZES COMPLETE. CASE, POWER SUPPLY. DOS. MOD 3 OR 4 

6 - 4 MEB #1499. 

"•a "EG #1649.00 

< "• 3 MEG #17 49. 00 

19.1 MEG #1849.00 

-' M E0 #2399.00 

PRINTERS • » • 

EPSON FX-80 #339.00 

EPSON MX -100 #473.00 

SMITH CORONA TP-1 #499.00 

CABLES » * * 

(2) DISK DRIVES #16,. 00 

(4) DISK DRIVES #26*00 

PRINTER STD PARALLEL #18.00 

RS-232C #13.00 

SPECIAL CABLES MADE TO YOUR SPEC 8 »CALL 

MISCELLANEOUS » » » 

COMPUTER POWERLINE riLTERS FROM #25.00 

J-CAT MODEM 300 BAUD DIRECT CONNECT #109.00 

SMART-CAT 1200 BAUD, AUTO ANS/DIAL DIR/CONN #443.00 

SMART-CAT 300 BAUD. AUTO ANS/DIAL. DIR/CONN #190.00 

GREEN CRT FILTER .0123" THICK #9.30 

3.1 MEG M0D3 SPEED-UP KIT #79. OO 

16K MEMORY KIT ( 1 SONS PRIME NEC CHIPS! #18.00 

64K MEMORY KIT < 1 SONS PRIME OKI CHIPS) #39.00 

M0D4 128K MEMORY UP-GRADE KIT COMPLETE ....#89.00 

PRINTER SWITCH. 2 PRINTERS ON ONE COMPUTER #68.00 

DISKETTES ... (BOX OF 10) OPUS VERBATIM 

40 TRACK SGI. SIDE. DBL DENSITY #20 #23 

40 TRACK DBL SIDE, DBL DENSITY #30 ,»38 

80 TRACK SGL SIDE. DBL DENSITY 135 

80 TRACK DBL SIDE, DBL DENSITY *4J 

40 TRACK DBL SIDE, DBL DENSITY (FLIPPV)*30 

PRICES AND SPEC'S ARE SUBJECT TO CHANGE, WITHOUT NOTICE 



TR9-80 IS A TRADEMARK OF RADIO 8HACK-DIV OF TANDY CORP. 
ALL TRS-eOS FROM MCW ARE CONSTRUCTED TO OUR SPEC'S AND 
ARE COVERED BY OUR WARRANTY SEE NOTE BELOW. 



• » « PAYMENTS * « • 

WE. ACCEPT VISA, M/C, MONEY 

ORDERS, AND CHECKS. NOTEi 

NON-CERTIFIED CHECKS 

REQUIRE (2) WEEKS FOR BANK 

CLEARANCE. NO SALES TAXES 

ARE COLLECTED ON SALES 

OUTSIDE OF MICHIGAN. 



SHIPMENTS ARE MADE 

PROMPTLY FROM STOCK, VIA 

UPS, (SIZE PERMITTING), 

OTHERS, BEST WAY. COSTS 

UNLES8 OTHERWIBE NOTIFIED 

ARE 2.3X OF THE ORDER 

TOTAL BUT NOT LESS THAN #3 



• • • WARRANTY • • » 

YOUR HARDWARE PURCHASE IS COVERED BY AN MCW 90 DAY. 
LIMITED, PARTS AND LABOR WARRANTY OR THE WARRANTY OF 
THE ITEM'S MANUFACTURER CONFIRM YOUR COVERAGE WHEN 
PLACING AN ORDER. C0PIE8 OF THE WARRANTY ARE AVAILABLE 
ON RE0UE8T. 



MIDWEST COMPUTER WHOLESALE 

PO BOX 3927B DETROIT, MI. 48E39 

TELEPHONE ORDER LINE C313D EBS-3040 



-See List of Advertisers on Page 323 
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CORPORATION 



Solve your disc problems, buy 100% surface 
tested Dysan diskettes. All orders shipped 
from stock, wtthin 24 hours. Call toll FREE 
(800) 235-4137 for prices and Information. 
Um and Master Card accepted. 



PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo. CA 
9340 i (InCal call 
(805) 543-1037) 





University Microfilms Internationa 



300 North Zeeb Road 

Dept. PR. 

Ann Arbor, Ml 48106 

USA 



18 Bedford Row 
Dept. P.R. 
London, WC1R4EJ 
Enoland 
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Listing 2 continued 

7 80 XA=3: RETURN 

790 A$=INKEY$:IFA$=""THEN790ELSERETURN 

800 B=0:PRINT"YOU ARE CARRYING: ": F0RX=1T049 : IFOB (X) =-lTHENPRINTA$ ( 

X) :B=1 

810 NEXT 

820 IFB=0PRINT"NOTHING!" 

830 GOTO580 

850 IFNO=0PRINT"GET WHAT? " : GOTO580 

860 

870 



:GOTO580 
1 : H=H + 1 : GOSUBl 00 0:GOTO5 80: 



' :H = H-1:GOSUB100 0:GOTO580: 



IFH=9PRINT"Y0U CAN'T CARRY ANY MORE! 

IFOB(X)=R(CP)THENOB(X) =-1 : PRINT" 0. K . ' 
ELSEPRINT"IT'S NOT HERE ! " : GOTO580 
900 IFNO=0PRINT"DROP WHAT?" : GOTO580 
910 IF0B(X)=-1THEN0B(X)=R(CP) :PRINT"0.K." 
ELSEPRINT"YOU DON'T HAVE IT1 " : GOTO580 

1000 XA=PEEK(16416) :XB=PEEK(16417) : PRINT@8 , H ; : PRINT@29 , A; : PRINT@59 
,DB; :P0KE16416,XA:P0KE16417,XB: IFDB>75ORA<1THEN60000 

1001 RETURN 

1010 PRINT@0,"CARRYING"H" ITEMS. ALERTNESS : "A" SUSPENSION OF DISB 
ELIEF:"DB:P0KE16916,1:RETURN 

2000 INPUT"WILL YOU TRY ONE OF THE PILLS " ;A$ : IFLEFT$ (A$ , 1 ) ="Y"THEN 
R1=RND(3) :0N RND (3) GOTO2010 , 2020 , 2030ELSEPRINT"O.K. n : GOT0576 
2010 PRINT-IT'S A PAIN PILL. ONE WOUND IS CURED IF YOU HAVE ANY.": 
IFW>0THENW=W-1 
2015 GOT0576 

2020 PRINT" IT'S A PEP PILL. YOUR ALERTNESS LEVEL IS INCREASED BY TW 
POI NTS . " : A=A+ 2 : GOSUBl 00 0: GOT05 7 6 

2030 PRINT-IT'S AN HALLUCINOGEN. THAT'LL TEACH YOU TO TAKE STRANGE 
PILLS. YOUR ALERTNESS LEVEL IS REDUCED TWO POINTS .": A=A-2 : GOSUBl 
000:GOTO576 

2100 IFOB(5) =-lTHENOB(5) =0:H=H-1 
2110 IFOB(6)=-1THENOB(6)=0:H=H-1 
212 FORX=31TO3 4:IFOB(X)=-1THENOB(X)=0:H=H-1 
2130 NEXTX:GOSUB1000:GOTO576 

2150 INPUT-WILL YOU INVESTIGATE FURTHER" ; A$ : IFLEFT$ (A$ , 1) ="Y"THENR 
1=RND(6)+RND(6) ELSE576 

2160 IFR1>ATHENPRINT"THE BED IS EQUIPPED WITH AN AUTOMATIC MASSAGE 
MACHINE WHICH 

GRABS YOU AND PUMMELS YOU WILDLY. THE RESULT: ": G0SUB1151 : GOT0576E 

LSEPRINT"NOTHING SPECIAL HERE. " : GOT0576 

2200 INPUT"WILL YOU TRY ONE" ; A$ : IFLEFT$ ( A$ , 1 ) ="Y"THENRl=RND ( 3 ) : ONR 

1GOT02 210 , 2 220 , 223 0ELSEPRINT-CH ICKEN. " : GOT057 6 

2210 PRINT" IT CONTAINS AN AWARENESS HEIGHTENING DRUG. YOUR ALERTNE 

SS IS 

INCREASED BY ONE POINT. " : A=A+1 : GOSUB1000 : GOT057 6 

2220 PRINT"IT WAS YUMMY. " : GOT057 6 

2230 PRINT"IT GIVES YOU A MILDLY UPSET STOMACH. YOUR ALERTNESS LEV 

EL IS 

REDUCED BY ONE POINT. ": A=A-1 : GOSUB1000 : GOT0576 

2240 A$=INKEY$: IFA$=" "THENRETURNELSE10010 

10007 POKE16916,0:FORX=1TO16:READA$:PRINTA$;:IFXO16THENPRINT:NEXT 
X 

10008 PRINT@489,"YOU HAVE ENTERED THE" ;: PRINT@552 , "DEADLY COMPUTER 
ROOM! !!"; :PRINT@935, "PRESS ANY KEY TO CONTINUE" ; : PRINT@1005 , "TO Y 

OUR DOOM ! " ; 

10 009 FORX=15814TO15833:POKEX,188:POKEX-2,32:GOSUB2240:NEXT:FORX=1 

TO20:NEXT:FORX=15833TO15814STEP-1:POKEX,188:POKEX+2,32:GOSUB2240:N 

EXT:FORX=1TO20:NEXT:GOTO10 009 

10010 CLS:FORX = lT05:RB{X) =RND(6) : NR=NR+1 : NEXT: PRINT@64 , R$ (RB ( 1 ) ) ; : 

PRINT@448,N$(RB(1) ) ; : PRINT@89 ,R$ ( RB ( 2) ) ; : PRINT@473 , N$ (RB ( 2) ) ;:PRIN 

T@115,R$(RB(3) ) ; : PRINT@500 ,N$ ( RB ( 3 ) ) ; : PRINT@588 , R$ (RB ( 4) ) ; :PRINT@9 

72,N$(RB(4) ) ;:PRINT@614,R$(RB(5) ) ; : PRINT@998 ,N$ ( RB ( 5) ) ; 

10012 PRINT@2,"THE DESTRUCTION OF THESE 5 ROBOTS WILL DESTROY THE 

TRS-80."; :FORX=6 40TO896STEP64:READA$:PRINT@X,A$;:NEXT:DATAPRESS,AN 

Y, KEY, TO, START 

10 013 G0SUB7 90 : CLS : GOSUBl 01 : GOT01 5 00 

10100 IFOB(20)=-1THENW=W-1:OB(20)=0:PRINT"YOUR PAIN PILLS SAVE YOU 
1":RETURN 

10110 FORX=41TO42:IFOB(X)=-1THENW=W-1:OB(X)=0:PRINT"YOUR PAIN PILL 

S SAVE YOUI ":RETURNELSENEXTX 

10120 GOTO60000 

10750 HH=4-CR(RB(N) ) :Rl=RND(6) : IFHH<1THENHH=1 

10755 IFOB(28)=-10ROB(43)=-lTHENPRINT"YOUR GOLF CLUB HELPS YOU ! " : H 

H=HH+1 

10760 ONHH+4GOSUB1 080 0,1 080 5, 10805, 10810, 10815, 10820, 10825, 10830,1 

0830,10835,10835,10840 

10765 ONXAGOSUB12500, 12510, 12520 

10770 GOTO16000 

10800 GOTO760 

10805 IFRK6THEN760ELSE770 

10810 IFRK5THEN760ELSE770 

10815 IFRK4THEN7 60ELSEIFRK6THEN770ELSE7 80 

10820 IFRK3THEN760ELSEIFRK6THEN770ELSE780 

10825 IFR1 = 1THEN760ELSEIFRK5THEN770ELSE780 

10830 IFRK4THEN770ELSE780 

10835 IFRK3THEN770ELSE780 

10840 IFR1=1THEN770ELSE780 

11000 R1=RND(6) +RND(6) 

110 05 IF(OB(2)=-10ROB(4) =-1) AND (WP=30RWP=4) THENRl=Rl-3 

Listing 2 continues 



IFB=1THEN11522ELSEI 
IFW>lTHENPRINT n S. "E 



Listing 2 continued 

11010 IF(0B(3) =-10R0B(4) =-1) AND (WP=50RWP=6) THENRl=Rl-3 

11015 IFKK1THENR1=1 

110 20 ONWPGOSUB11100, 11105 ,11110 ,11115, 11120, 11125 

11025 ONXAGOSUB12500, 12510, 12520 

11030 GOTO16000 

11100 PRINT"GAS AND SMOKE HAVE NO EFFECT ON ROBOTS YOU MORON.": OB ( 

NO) =0:GOTO760 

11105 OB(22)=0:IFRK5ORR1 = 6THEN760ELSEIFR1 = 8THEN770ELSE780 

11110 IFR1=4ORR1=7ORR1=10THENWP(NO-4)=1 

11111 IFRK6THEN7 60ELSEIFR1 = 6THEN770ELSE7 80 

11115 IFR1=4ORR1=7ORR1=10THENWP(NO-4)=1 

11116 IFRK4THEN7 6 0ELSEIFRK7THEN770ELSE7 80 

11120 IFRl=7THENWP(NO-4)=l 

11121 IFRK5THEN7 6 0ELSEIFRK7THEN770ELSE7 80 

11125 IFRl=3ORRl=4ORRl=7ORRl=9ORRl=10THENWP(NO-4)=l 

11126 IFR1=1THEN7 60ELSEIFRK6THEN770ELSE7 80 
11500 PRINT n NO EFFECT.": RETURN 

11510 PRINT"STUN. ";:INPUT"DO YOU WANT TO (1) TAKE THE EFFECT OF T 

HE BLAST OR 

(2) EXPEND 2 SUSPENSION OF DISBELIEF PTS . " ; B: IFB=lTHENA=A-lELSEIFB 

=2THENDB=DB+2ELSE11510 

11515 PRINT"O.K. " :GOSUB1000: RETURN 

11520 PRINT"DIRECT HIT. ";: INPUT" DO YOU WANT TO (l)TAKE THE EFFECT 

OF THE BLAST 
OR (2) EXPEND 5 SUSPENSION OF DISBELIEF PTS.";B: 
FB=2THENDB=DB+5:PRINT"O.K.":GOTO11525ELSE11520 
11522 A=A-2:W=W+l:PRINT"YOU NOW HAVE "W" WOUND" ; : 
LSEPRINT"." 

11525 GOSUB1000: RETURN 

11750 HH=CR(RB(N) ) -4 : Rl=RND ( 6) : IFHH<1THENHH=1 

117 60 ONHH+4GOSUB1 080 0,1 080 5, 1080 5, 1081 0,1 081 5, 1082 0,1 082 5, 1083 0,1 
0830,10835,10835,10840 

117 65 ONXAGOSUB115 00, 1151 0,11520: RETURN 
12000 R1=RND(6)+RND(6) 

12005 IFRK7THEN7 60ELSEIFR1=7THEN770ELSE7 80 
12010 ONXAGOSUB1150 0,1151 0,115 20: RETURN 
12500 PRINT"THE n N$(RB(N))" IS UNAFFECTED. ": RETURN 

12510 PRINT"THE "N$(RB(N)) n IS STUNNED. ": CR(RB (N) ) =CR(RB (N) )-. 5 : RE 
TURN 

12520 PRINT"THE "N$(RB(N))" IS BLOWN APART 1 ": RB (N) =0 : RETURN 
15000 FORX=1TO600:NEXT:FORN=1TONR:IFRB(N) O0THEN15010ELSENEXT: IFCP 
=5THEN50000ELSEPRINT"ROBOTS DESTROYED !": RETURN 
15010 IFQ=0THENIFCR(RB(N) ) >ATHEN15995 
15020 Q=l:PRINT"YOU ATTACK! 

15025 PRINT" INVENTORY: " : F0RX=1T049: IFOB(X) =-lTHENPRINTA$ (X) " " ; 
15030 NEXT:PRINT 

15035 INPUT" (1) WEAPONS OR ( 2) HAND-TO-HAND COMBAT" ;B: IFB=1THEN15040 
ELSEIFB=2THEN107 50ELSE15035 

15040 WP=0: INPUT" WHICH WEAPON" ;A$ : FORX=lT04 9 : IFA$ (X) =A$THENNO=XELS 
ENEXTX:PRINT"WHAT?":GOTO15040 

15045 IFNO=260RNO=27THENWP=lELSEIFNO=22THENWP=2 
15050 IFNO=50RNO=330RNO=34THENWP=3 

15 55 IFNO=60RNO=310RNO=32THENWP=4 
15060 IFNO=7THENWP=5 

15065 IFNO=8ORNO=29ORNO=30THENWP=6 

15070 IFNO=19THEN15800 

15075 IFWP=0THENPRINT"WHAT?!?":GOTO15040 

15077 IFOB(NO) O-lTHENPRINT"Y0U DON'T HAVE THAT! " : GOTO15025 

15080 IFWP(NO-4) =1THENPRINT"Y0UR WEAPON IS OUT OF AMMUNITION. "ELSE 

11000 

15085 ONWP-2GOT015 090, 15095, 151 00, 15105 

15090 FORX=9TO10:IFOB(X)=-1THEN15120ELSENEXTX 

15092 FORX=3.7TO38:IFOB(X)=-1THEN15120ELSENEXTX 

15093 GOTO15110 

15095 FORX=11TO12:IFOB(X)=-1THEN15120ELSENEXTX 

15097 FORX=39TO40:IFOB(X) =-lTHENl5120ELSENEXTX 

15098 GOTO15110 

15100 FORX=13T014: IFOB(X) =-lTHEN15120ELSENEXTX 

15103 GOTO15110 

15105 F0RX=15T016: IFOB(X) =~1THEN15120ELSENEXTX 

15107 FORX=35T036: IFOB(X) =-lTHENl5120ELSENEXTX 

15110 PRINT"AND YOU HAVE NO AMMO. TRY ANOTHER WAY. " : GOTO15035 

15120 IFWP(NO-4) =1THENWP(NO-4)=0:OB(X)=0:PRINT"I HAVE RELOADED IT 

FOR YOU.":H=H-1:GOSUB1000 

15125 GOTO11000 

15800 PRINT"THE BOTBLASTER EXPLODES IN YOUR HAND ! " :OB (NO) =0 : H=H-1 : 

GOSUB115 20:GOTO16 000 

16000 FORN=lTONR:IFRB(N) O0THEN16010ELSENEXT: GOTO16100 

16010 PRINT"THE "N$(RB(N))" ATTACKSl 

16 020 IFD<4GOSUB11750ELSEGOSUB12000 
16040 IFW>6THENGOSUB10100 

16050 NEXT 

16100 FORN=lTONR: IFRB(N) O0THEN15000ELSENEXT: IFCP=5THEN50000ELSEPR 

INT"ROBOTS DESTROYED!": RETURN 

50000 CLS:PRINT@411,"YOU WIN! " : PRINT@467 , "THE MOONBASE IS SAVED!!" 

:GOTO50000 

60000 CLS:PRINT@392,"YOU HAVE EXCEEDED YOUR LIMITS! YOU ARE DEAD1 

":PRINT@467,"THE MOONBASE IS DOOMED! " :GOTO600 00 




The Complete 
Word Processing 
System 

• •I can honestly say 
Lazy Writer is the best 
word processing program 
I know. Lazy writers 
logical mnemonics are 
easy to learn and re- 
member, making it ideal 
for the person who uses 
it only occasionally, 
while the regular user 
can take advantage of 
its powerful advanced 
features. . •%% 

Charles L. Creesy 

Editor 

Princeton Alumni Weekly 

for TRS-80 Mod I, III, IV.. .5175 

LazyFont for font 

creation on dot matrix 
printers 

LazyMerge for form 
letters from a mail list 

LazyDraw for block 
graphics 

LazyDo for executing a 
series of commands 

LazyTab for decimal 
alignment 

LazyCalc for math 
functions 

LazyDoc for custom 
document preparation 



MINI-SPOOLER prints as you type 
for fast memos and letters! 
■■ Ca 1 1 about 80 character 
version for Model IV & MAX-80. 



Communications, Inc. 

13349 Michigan Ave. 
Dearborn, Michigan 48126 



(313) 581-2896 



-476 



'See List of Advertisers on Page 323 
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GAME 




Demon 



by Lee Morgenstern 



earn something about Maxwell's Hypothesis 
while you try to keep the hot and cold molecules 
separated in this physics-based game. 




The hottest debate in physics in 1871 
centered around James Clerk Maxwell's 
theory of thermodynamics. Maxwell 
hypothesized that if you manipulate a 
valve between two containers filled with 
gas at identical temperatures so that 
fast-moving molecules accumulate in 
one container and slow-moving mole- 
cules in the other, the temperature dif- 
ference created produces useful energy. 

But Maxwell's theory seemed to vio- 
late the second law of thermodynamics, 



which states that in a closed system, you 
can't create order from chaos. When 
Maxwell first described his hypothesis, 
it sparked a great deal of debate in the 
scientific community. However, the 
hardware necessary to test his hypothe- 
sis wasn't available, so the theory could 
be debated but never proved or dis- 
proved. As such, it was a thought ex- 
periment only. 

Today, computers make thought ex- 
periments obsolete. With the help of 




inrapil 



your Model I/III, you can demonstrate 
Maxwell's theory visually. It also makes 
an entertaining game. 

The Game 

Maxwell's Demon, as the game is 
called, is so named because the concept 
of a controllable valve, while central 
to Maxwell's idea, did not exist in his 
time. Instead, Maxwell proposed that a 
supernatural being — a demon — main- 
tained the temperature difference be- 
tween containers. 

In this game, you are Maxwell's 
demon, the force that separates fast- 
moving molecules from slow-moving 
molecules. These hot and cold mole- 
cules are depicted on the screen as large 
H and C characters. 

There are six levels of play. The low- 
est level has four slow-moving mol- 
ecules, and the highest has 12 fast-mov- 
ing molecules. The space bar opens and 
closes the valve separating the two com- 
partments and the break key lets you ex- 
it from the game or select a new playing 
level. 

Program Design 

The program is written in Assembly 
language for fast animation. Data tables 
drive most of the logic for animating the 
molecules. 

Data-driven logic makes the program 
simple to understand and makes pro- 
gram modification easier since it re- 
duces processing time. 

A data base containing all possible 



The Key Box 

Model I or III 
16K RAM Cassette 
32K RAM Disk 
Assembly Language 
Editor/ Assembler 
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situations, such as the positions of an 
animated figure, increases processing 
speed and improves animation quality. 
The idea of referring to a table of pre- 
calculated values is not new. Tech- 
niques to do so have existed for a long 
time, but were impractical due to the 
amount of memory required. Since 
memory is less expensive today, such 
techniques are now feasible. The fol- 
lowing program provides an example of 
one of these techniques. 

Data Structure 

The tables in this program are two- 
dimensional arrays. The first dimension 
points to a list of starting addresses for 
lists in the second dimension. Each list 
in the second dimension contains the ac- 
tual table entries. 

The first table in the program listing, 
the move table, uses pixel position and 
move direction as the two indexes. 
MOVX, the first list, consists of the ad- 
dresses MOVO through MOV5, which 
correspond to the six pixel positions. 
MOVO through MOV5 are the second 
dimension lists; they are indexed by 
move direction, and contain the final 
entries. 

The program accesses an entry in the 
table by following these steps: 

(1) Load the DE registers with the 
first index. 

(2) Load the HL registers with the 
address of the first list. 

(3) Add DE to HL. 

(4) Reload DE with the 2 bytes ad- 
dressed by HL. This is the starting ad- 
dress of the proper second list. 

(5) Load HL with the second index. 

(6) Add DE to HL. 

(7) Load the table entry bytes ad- 
dressed by HL. 

Data Tables 

The move table, MOVX, determines 
how to move a molecule. It handles 
eight move directions including up left, 
up right, down left, and down right in 
each of two ways. The first way moves 
one pixel up or down and one pixel left 
or right. The other way moves one pixel 
up or down and two pixels left or right. 
The indexes of MOVX are pixel posi- 
tion (zero through five) and move direc- 
tion (zero through seven). There are two 
values in each entry: the new pixel posi- 
tion and the video address offset. 

The wall table, WALLX, determines 
how to bounce a molecule off a wall. 
The indexes of WALLX are move di- 
rection (zero through seven) and wall 
number (zero, 2, 4, 6). The entries in the 
table are new move directions. 

The hot table, HOTX, and cold 











Program Listing 






00100 


;MAXW ELL'S DEMON 






00110 


; BY 


LEE MORGENSTERN, MAY, 1982 






00120 








7 




00130 
00140 




ORG 


7000H 






00150 


; MOVE 


tab:.,f - 


INDEXED BY PIXEL AND MOVE DIRECTION 






00160 


; OUTPUTS NEW 


PIXEL AND VIDEO ADDRESS OFFSET 


7000 


0C70 


00170 


MOVX 


DEFW 


MOV0 


7002 


1C70 


00171 




DEFW 


MOV1 


7 004 


2C70 


00172 




DEFW 


MOV2 


7 06 


3C70 


00173 




DEFW 


MOV 3 


7 8 


4C70 


00174 




DEFW 


MOV 4 


7 00A 


5C70 


00175 
00180 




DEFW 


MOVE 

UL UR DL DR UL UR DL DR 


700C 


03 


00190 


MOV0 


DEFB 


5 


7 00D 


BF 


00191 




DEFB 


191 


7 00E 


3 3 


00192 




DEFB 


5 


700F 


C0 


00193 




DEFB 


192 


7 1 


4 


00194 




DEFB 


4 


7011 


FF 


00195 




DEFB 


255 


7012 


4 


00196 




DEFB 


4 


7 013 


00 


00197 




DEFB 





7 014 


2 


00198 




DEFB 


2 


7 1 5 


BF 


00199 




DEFB 


191 


7 016 


2 


00200 




DEFB 


2 


7 017 


CI 


00201 




DEFB 


193 


7 018 


0] 


00202 




DEFB 


1 


7019 


FF 


00203 




DEFB 


253 


701A 


01 


00204 




DEFB 


1 


701B 


01 


00205 




DEFB 


1 


701C 


3 


00206 


MO VI 


DEFB 


3 


7 BID 


FF 


00207 




DEFB 


255 


7 1 E 


33 


00208 




DEFB 


3 


701F 





00209 




DEFB 





7020 


33 


00210 




DEFB 


5 


702] 


FF 


00211 




DEFB 


255 


7022 


3 


00212 




DEFB 


5 


7023 


00 


00213 




DEFB 





7 02.4 


00 


00214 




DEFB 





•"■02 3 


FF 


00215 




DEFB 


255 


7 3 26 





00216 




DEFB 





7 27 


3.1 


00217 




DEFB 


1 


7026 


2 2 


00218 




DEFB 


2 


7029 


FF 


00219 




DEFB 


255 


/0 2A 


02 


00220 




DEFB 


2 


7 23 


1 


00221 




DEFB 


1 


7 02C 


04 


00222 


MOV 2 


DEFB 


4 


7 3 2D 


FF 


00223 




DEFB 


255 


7 02E 


3 4 


00224 




DEFB 


4 


7 2F 


00 


00225 




DEFB 





7030 


S3 


00226 




DEFB 


3 


"331 


3F 


00227 




DEFB 


63 


7032 


3 3 


00228 




DEFB 


3 


7033 


40 


00229 




DEFB 


64 


7034 


01 


00230 




DEFB 


1 


7035 


FF 


00231 




DEFB 


255 


7036 


01 


00232 




DEFB 


1 


7037 


01 


00233 




DEFB 


1 


7038 


3 3 


00234 




DEFB 





7039 


3F 


00235 




DEED 


63 


703A 


3 3 


00236 




DEFB 





7 03B 


41 


00237 




DEFB 


65 


703C 


32 


00238 


MOV3 


DEFB 


2 


703D 


C0 


00239 




DEFB 


192 


7 3 E 


2 


00242 




DEEB 


2 


703F 


CI 


00241 




DEFB 


193 


1 4 


01 


0242 




DEFB 


1 


7 4 1 





00243 




DEFB 





7042 


01 


00244 




DEEB 


1 


7043 


01 


00245 




DEFB 


1 


7044 


5 


00246 




DEED 


5 


7045 


BF 


2 247 




DEFB 


191 


7046 


23 


00248 




DEFB 


5 


7047 


CI 


00249 




DEFB 


193 


7 4 8 


4 


00250 




DEED 


4 


7 04 9 


FF 


00251 




DEDB 


255 


7 4A 


3 4 


00252 




DEFB 


4 


704B 


3 a. 


00253 




DEFB 


1 


704C 


00 


00254 


MOV4 


DEED 





7 04;:; 


,•■,: 


00255 




DEFB 





704E 


2 3 


00256 




DEED 





70 4 F 


01 


3 2 37 




DEFB 


1 


7 50 


02 


00 258 




DEFB 


2 


7051 


00 


32233 




DEEB 





7052 


3 2 


00260 




DEEB 


2 


7053 


01 


00261 




DEFB 


1 


7054 


03 


00262 




DEEB 


3 


7055 


FF 


00263 




DEEB 


255 


7056 


03 


00264 




DEED 


3 


7057 


01 


00265 




DEEB 


1 


7068 


05 


00266 




DEEB 


5 


7059 


FF 


00267 




DEFB 


255 


705A 


3 


00268 




DEEB 


5 


7 5E 


01 


00269 




DEFB 


1 


7 5C 


01 


00270 


MOVb 


DEFB 


1 


705D 


3 3 


00271 




DEED 





705E 


01 


00272 




DEEB 


1 


705F 


01 


00273 




DEFB 


1 


7360 


00 


00274 




DEEB 





7061 


40 


00275 




DEFB 


64 


7 36 2 


00 


00276 




DEFB 





7063 


41 


00277 




DEEB 


65 

Listing continues 
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Listing continued 












7064 


04 


278 




DEFB 


4 




7065 


FF 


279 




DEFB 


233 




'06 6 


i:!4 


00280 




DEFB 


4 




7 06 7 


0: 


00281 




DEFB 


1 




' 6 8 


03 


00282 




DEFB 


3 




7 06 9 


3F 


00.: 3 3 




DEFB 


63 




7 6 A 


3 


00284 




DEFB 


3 




706B 


4! 


00280 
00250 




DEFB 


6 3 








00260 


;WAI,L 


TABLE - 


INDEXED BY WALL(L,R,U,D) AND 


MOVE DIRECTION 






270 


; OUTPUTS NEW 


MOVE DIRECTION 




706C 


7 47 


00289 


WAI.LX 


DEFW 


WALLL 




7 06E 


7C7B 


00290 




DEFW 


WALLR 




7070 


84 7 


00291 




DEFW 


WALLD 




7072 


8C70 


00292 
00290 




DEFW 


WALLD 

UL UR DL DR UL OR DL DR 




7074 


01 


00300 


UAL 00, 


DEFB 


1 




7 07 5 


01 


00301 




DEFB 


1 




7076 


03 


00302 




DEFB 


3 




7077 


3 


00303 




DEFB 


3 




7 07 8 


5 


00304 




DEFB 


3 




7079 


5 


00303 




DEFB 


3 




707 A 


07 


00306 




DEFB 


7 




707B 


07 


00307 




DEFB 


7 




7 07C 


00 


00310 


WALLR 


DEFB 







7 07D 





00311 




DEFB 







707E 


00 


00312 




DEFB 


2 




707F 


02 


00313 




DEFB 


2 




7080 


4 


00314 




DEFB 


4 




7081 


4 


00315 




DEFB 


4 




7 82 


06 


00316 




DEFB 


6 




7 8 3 


6 


00317 




DEFB 


6 




7084 


02 


00320 


WALLA 


DEFB 


2 




7085 


0' i 


00321 




DEFB 


3 




7 086 





00322 




DEFB 


2 




70 87 


3 


00323 




DEFB 


3 




7 88 





00324 




DEFB 


6 




7089 


7 


00325 




DEFB 


7 




708A 


06 


00326 




DEFB 


6 




7 8B 


7 


00327 




DEFB 


7 




7 08C 





00330 


WALLD 


DEFB 







7 8D 


0! 


00331 




DEFB 


1 




7 8 E 





00332 




DEFB 







7 8F 


01 


00333 




DEFB 


1 




7090 


4 


00334 




DEFB 


4 




7091 





00335 




DEFB 


5 




7092 


4 


00336 




DF.FB 


4 




7093 


0:, 


00337 
00340 




DEFB 


3 








00350 


J HOT MOLECULE 


GRAPHICS - INDEXED BY PIXEL 




7094 


A070 


00360 


HOTX 


DEFW 


HOT0 




7 096 


A870 


00361 




DEFW 


HOT1 




7098 


B070 


00362 




DEFW 


HOT 2 




7 09 A 


07 


00363 




DEFW 


HO 3' 3 




7 09C 


C07 


3 6 4 




DEFW 


HOT4 




7 09E 


C870 


00365 




DEFW 


HOT5 




7 0A0 


3F 


00370 


HOT0 


DEFB 


3FH 




7 0A1 


00 


00373 




DEFB 


0CH 




7 0A2 


3 F 


00372 




DEFB 


3FH 




7 A3 





00373 




DEFB 


00H 




70A4 





00374 




DEFB 


000 




70A5 





00375 




DEEB 


00H 




7 0A6 





00376 




DEFB 


00H 




70A7 





00377 




DEFB 


00:1 




70A8 


300 


00380 


HOT1 


DEFB 


3CH 




70A9 


30 


00381 




DEFB 


30H 




7 0AA 


3C 


00382 




DEFB 


3CH 




70AB 





00383 




DEFB 


000 




7 AC 


3 


00384 




DEFB 


03H 




70AD 


00 


00385 




DEFB 


00H 




70AE 


3 


00386 




DEFE 


030- 




7 0AF 





00387 




DEFB 


000 




7 0B0 


3 


00390 


HOT2 


DEFB 


3 00 




7 0B1 





00391 




DEFB 


0H 




70B2 


3 


00392 




DEFB 


30H 




7 0B3 





00393 




DEFB 


00 




7 0B4 





00394 




DEFB 


0FH 




70B5 


3 


00395 




DEFB 


03H 




7 0B6 





00396 




DEFB 


0FH 




7 0B7 





00397 




DEFB 


00H 




7 0B8 


2 A 


00400 


HOT3 


DEFB 


2 AH 




7 0B9 


ID 


00401 




DEFB 


1DH 




7 0BA 


2E 


00402 




DEFB 


2EH 




7 0BB 


10 


00403 




DEFB 


13E 




7 BC 





00404 




DEFB 


0011 




70BD 





00405 




DEFB 


00H 




70 BE 





00406 




DEEB 


00H 




7 0BF 





00407 




DEED 


000 




70C0 


6 


00410 


HOT4 


DEFB 


280 




7 0C1 


3 4 


00411 




DEFB 


3 4!". 




70C2 


3 


00412 




DEFB 


380 




70C3 


14 


00413 




DEFB 


140 




70C4 





00414 




DEFB 


02H 




70C5 


01 


00415 




DEFB 


01H 




70C6 


2 


00416 




DEFB 


02H 




70C7 


01 


00417 




DEFB 


010 




70C8 


2 


00420 


HOT5 


DEFB 


2 0!: 




7 0C9 


30 


00421 




DEFB 


100. 




7 0CA 


2 


00422 




DEFB 


20H 




70CB 


10 


00423 




DEFB 


10H 




7 0CC 


0A 


00424 




DEFB 


0AH 




70CD 


07 


00425 




DEFB 


07H 




7 0CE 


0!', 


00426 




DEFB 


0BH 




7 0CF 


3 


00427 
00430 


' 


DEFB 


30 


Listing continues 



table, COLDX, each contain the graph- 
ics bits for the molecules in each of the 
six pixel positions. Figure 1 shows the H 
graphics in each of the pixel positions. 

The molecule control variables, HO 
through H5 and CO through C5, con- 
tain parameters that maintain the cur- 
rent status of the molecules. The data in 
the HC table initializes the values. Each 
list consists of the pixel position, video 
address, move direction, and molecule 
type. 

There are three more tables that con- 
tain program control parameters. Each 
is indexed by the playing level. The 
molecule update table, LEVELX, con- 



" The program begins 

by disabling interrupts 

and setting the stack 

pointer to the highest point 

in a 16K memory. " 



tains pointers to active molecule update 
sequences. The molecule update count 
table, FIGCTX, contains the length of 
the molecule update list. The molecule 
timing table, TIMX, contains the time 
delays between molecule updates. 

Program Control 

The program begins by disabling 
interrupts and setting the stack pointer 
to the highest point in a 16K memory. 





(0) j jj j jjjj j jjj j JMM (3) 



i iifci! ! 'ml ! 



(1) !!'!'!!" 



(2) J 





Fig. 1. Pixel Positions for Hot Molecule 
Graphic. 
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"No, we're all okay, but 
our computer'- ~~ — "* 



It could have been a lot worse. 

Luckily, all that was missing was the 
computer and some spreadsheet software 
And that should be covered by insurance 

But it isn't. Ed didn't realize that once 
started using his home computer on bus 
projects, his homeowners insurance no 
longer would cover it. 

As suddenly as the robbery had occurr* 
Ed found himself out several thousand d 
lars with no way to recover it. 
You need SAFEWARE™ 
If you use your microcomputer 
ness, you can protect yourself fro 
like this with SAFEWARE. For as 
a year, SAFEWARE insurance cov 
hardware, media and purchased 
Both business and personal. 

SAFEWARE protects against the 
fire, accidental damage, even thi 
destruction caused by power 
surges. 

And, now, SAFEWARE is avail- 
able on a 10-day trial basis. If I 
you are not completely satisfied ip 
with the coverage provided, return 
the policy within 10 days for a 
full refund. 

The only risk you take with 
SAFEWARE is not having it. 

To obtain more information, or 
bind coverage immediately, call the toll 
free number. Or send the coupon to: 
Columbia National General Agency, 
88 E. Broad St., Columbus, Ohio 43215 
(In Ohio call toll free 1-800-848-2112). 

1-800-848-. 

Hours: Mon.-Fri. 8:30-7; 

Sat. -Sun. 1030-430 (FST) 




Amount of 
Insurance 



Annual 
Premium 



lip to $ 2.000 



15 



2.001-$ 5.000 



00 



$ 5.001- $ 8.000 



$ 75 



8.001 $11,000 



90 



Send for immediate protection: C.NGA, 88 E. Broad St., Columbus, Ohio 43215 

Name _ 

Street . 

City State 



$11.001-$14.000 $105 



Not avail in AK. DC, Hi KY. LA, ME, MS, 
NV, SC, or WY 



System value $ — 
□ Check enclosed 
Expires: 



□ VISA □ MasterCard Card # 
D Send additional information 



SUM 



sSee List of Advertisers on Page 323 
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Listing continued 
















4 4 


;COLD 


MOLECULE 


GRAPHICS - INDEXED 


BY PIXEL 


70D0 


DC 7 


4 5 


COLDX 


DEFW 


COLD0 




7 0D2 


E470 


00451 




DEFW 


COLD1 




70D4 


EC 7 


00452 




DEFW 


COLD2 




7 0D6 


F470 


004 53 




DEFW 


COLD 3 




70D8 


FC7 


00454 




DEFW 


COLD4 




70DA 


0471 


0045 5 




DEFW 


COLD 5 




70DC 


3F 


00460 


COLD0 


DEFB 


3FH 




/ODD 


33 


4 6 1 




DEFB 


33H 




7 0DE 


33 


00462 




DEFB 


3 3H 




70DF 


00 


00463 




DEFB 


00H 




70E0 





4 6 4 




DEFB 


0011 




70E1 





4 6 5 




DEFB 


H 




70E2 





4 6 6 




DEFB 


00H 




7 0t;3 


Ofi 


467 




DEFB 


00H 




7 0E4 


3C 


00470 


C0LD1 


DEFB 


3CH 




70E5 


0C 


471. 




DEFB 


0CH 




70E6 


EC 


472 




DEFB 


0CH 




7 0E7 


03 


00473 




DEFB 


00H 




70E8 


3 


4 7 4 




DEFB 


03H 




7 0E9 


03 


00475 




DEFB 


03H 




7 0K A 


03 


00476 




DEFB 


03 a 




70EB 


00 


00477 




DEFB 


00H 




7 0EC 


ii 


00480 


C0LD2 


DEFB 


30H 




7 BED 


3 


00481 




DEFB 


30H 




7 0EE 


30 


00482 




DEFB 


30H 




70EF 


3 


00483 




DEFB 


0H 




7 0F0 


0F 


00484 




DEFB 


0FH 




70F1 


0C 


00485 




DEFB 


0CH 




70F2 


0C 


00486 




DEFB 


0CH 




7 0F3 


00 


00487 




DEFB 


00H 




70F4 


2A 


00490 


C0LD3 


DEFB 


2ai: 




7 0F5 


37 


00491 




DEFB 


37H 




7 0F6 


33 


00492 




DEFB 


33H 




70F7 


1 1 


00493 




DEFB 


1 LH 




70F8 


00 


00494 




DEFB 


0K 




70F9 


00 


00495 




DEFB 


00H 




7 FA 





00496 




DEFB 


00H 




7 0FB 





00497 




DEFB 


00H 




7 0FC 


28 


00500 


C0LD4 


DEFB 


28H 




70FD 


1C 


00501 




DEFB 


1CH 




70FE 


0C 


00502 




DEFB 


0CH 




70FF 


04 


503 




DEFB 


04H 




710B 


2 


00504 




DEFB 


02H 




7101 


03 


00505 




DEFB 


03H 




7102 


03 


00506 




DEFB 


03H 




7103 


01 


00507 




DEFB 


01H 


Listing continues 



Before starting any animation, the pro- 
gram calls four routines to set the scene: 
DMSG displays the opening message 
containing the name of the program 
and a list of the playing levels, GETLV 
reads the keyboard and inputs a playing 
level from the operator, Setup sets up 
the playing level parameters and initial- 
izes the locations of the molecules, and 
BRD draws the playing area on the 
screen. 

Demon then executes a loop that up- 
dates the location and movement of 
each active molecule. FIGCNT contains 
the number of passes to be made 
through this loop. FIGX points to a list 
containing the molecule control vari- 
able addresses in the sequence to be up- 
dated. Notice that each active hot mol- 
ecule appears twice in the list and each 
active cold molecule appears once. This 
causes the hot molecules to be moved 
twice as fast as the cold ones. 

For each pass through this loop, 
Demon updates a molecule by calling 
four routines. Each routine requires 
that the IX register contain the address 
of the molecule control variable list. 
Wall controls the animation of the wall 
bouncing — it checks for wall contact, 
and if any occurs, it changes the move 




First in 

Its Class 

and 

Looking 

for 

Work. 



TRS-80 Model I, II, III 

Five multiple regression procedures 
(including stepwise, backward elimination, all 
subset, and ridge), 24 transformations, com- 
prehensive data base manager (with search 
and sort), descriptive statistics, hypothesis 
testing (7 tests), time series analysis (7 
models), random variate generation, discrete 
probability distributions, sampling distribu- 
tions, nonparametrics {5 tests), and com- 
plete documentation. 

Complete package with manual — $125 

To order, send payment plus $2.00 shipping 
and handling to: 

Quant Systems 

P.O. Box 628 

Charleston, S.C. 29402 

803-571-2825 

S.C. residents add 4% sales tax 

Overseas orders add $7 for shipping 
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Monthly magazine loaded with Software and Hardware Reviews, Useful How-to Tips, Program 
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charter subscriptions are available for a limited time at *9.00 for 6 months or *16.00 for 12 

months. ^£ [~H customers call 800-227-1617 axt 425 

In California 800-772-3545 exf 425 or send check or Money Order to: 



560 South Hartz Avenue, Suite 447 • Danville, CA 94526 



Complete Business 
Software Package 



TRS-80 MOD. 11/12/ 16 
FLOPPY OR HARD DISK 
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direction in the control variable list for 
that molecule. 

REM removes the molecule graphics 
from the screen. Move calculates the 
next screen location for the molecule, 
and Add redraws the molecule graphics 
at the new location. 

When Demon finishes with the mol- 
ecule update loop, it calls the Open rou- 
tine to control the opening or closing of 
the partition. It then executes a time de- 
lay before restarting the loop. During 
this delay, any wall contact produces a 
beeping sound through the cassette 
port. When the time delay is finished, 
the loop is repeated unless the break key 
is pressed. The break key restarts the en- 
tire program, letting the operator select 
a new playing level. 

At slow playing levels, Demon calls 
the Open routine in the middle of the 
molecule update loop. This provides 
better response time for the operator. 



"During this delay, any 

wall contact produces a 

beeping through the 

cassette port." 



Routines 

The MSG routine clears the screen 
and displays the opening message with 
the name of the program and a list of 
the playing levels. MSG scans the mes- 
sage text and transfers each character to 
the video memory. There are two con- 
trol characters that MSG processes dif- 
ferently: The dollar sign indicates a car- 
riage return and an asterisk signals the 
end of the message. 

The GETLVL routine reads the 
memory-mapped keyboard byte for the 
number keys to determine the playing 
level selected. It loops until it detects a 
bit set, indicating a depressed key. It 
then shifts and counts the bits to find 
the key and the corresponding playing 
level. 

The Setup routine establishes control 
parameters based on the selected play- 
ing level. The parameters consist of 
the number-of-molecules updates, 
FIGCNT; the time delay between up- 
dates, TIMING; and the molecule up- 
date list pointer, FIGX. Setup then per- 
forms a block move from HC to HO to 
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7104 20 




00510 


COLD5 


DEFB 


20H 


7105 30 




00511 






DEFB 


30H 


7106 30 




00512 






DEFB 


3 0H 


7107 10 




00513 






DEFB 


10H 


7108 0A 




00514 






DEFB 


0AH 


7109 0D 




00515 






DEFB 


0DH 


710A 0C 




00516 






DEFB 


0CH 


710B 04 




00517 
00520 






DEFB 


04H 






00530 


;MOLECULE UPDATE SEQUENCE - INDEXED BY PLAYING LEVEL 


710C 1871 




00540 


LEVELX DEFW 


LI 


710E 2471 




00541 






DEFW 


L2 


7110 2471 




00542 






DEFW 


L2 


7112 3C71 




00543 






DEFW 


L4 


7114 3C71 




00544 






DEFW 


L4 


7116 3C71 




00545 






DEFW 


L4 


7118 A672 




00550 


LI 




DEFW 


H0 


711A C472 




00551 






DEFW 


H5 


711C CA72 




00552 






DEFW 


C0 


711E A672 




00553 






DEFW 


H0 


7120 C472 




00554 






DEFW 


H5 


7122 E872 




00555 






DEFW 


C5 


7124 A672 




00560 


1,2 




DEFW 


H0 


7126 AC72 




00561 






DEFW 


HI 


7128 CA72 




00562 






DEFW 


C0 


712A BE72 




00563 






DEFW 


H4 


712C C472 




00564 






DEFW 


H5 


712E D072 




00565 






DEFW 


CI 


7130 A672 




00566 






DEFW 


H0 


7132 AC72 




00567 






DEFW 


HI 


7134 E272 




00568 






DEFW 


C4 


7136 BE72 




00569 






DEFW 


H4 


7138 C472 




00570 






DEFW 


H5 


713A E872 




00571 






DEFW 


C5 


713C A67 2 




00572 


T.4 




DEFW 


H0 


713E AC72 




00573 






DEFW 


HI 


7140 CA72 




00574 






DEFW 


C0 


7142 B272 




00575 






DEFW 


H2 


7144 B872 




00576 






DEFW 


H3 


7146 D072 




00577 






DEFW 


CI 


7148 BE72 




00578 






DEFW 


H4 


714A C472 




00579 






DEFW 


H5 


714C D672 




00580 






DEFW 


C2 


714E A672 




00581 






DEFW 


H0 


7150 AC72 




00582 






DEFW 


HI 


7152 DC72 




00583 






DEFW 


C3 


7154 B272 




00584 






DEFW 


H2 


7156 B872 




00585 






DEFW 


H3 


7158 E272 




00586 






DEFW 


C4 


715A BE72 




00587 






DEFW 


H4 


715C C472 




00588 






DEFW 


H5 


715E E872 




00589 
00590 






DEFW 


C5 






00600 


; MOLECULE UPDATE TIMING - INDEXED BY PLAYING LEVEL 


7160 60 




00610 


TIMX 


DEFB 


96 


7161 30 




00611 






DEFB 


48 


7162 0C 




00612 






DEFB 


12 


7163 08 




00613 






DEFB 


8 


7164 04 




00614 






DEFB 


4 


7165 01 




00615 
00620 






DEFB 


1 






00630 


; MOLECULE UPDATE COUNT - INDEXED BY PLAYING LEVEL 


7166 06 




00640 


FIGCTX DEFB 


6 


7167 0C 




00641 






DEFB 


12 


7168 0C 




00642 






DEFB 


12 


7169 12 




00643 






DEFB 


18 


716A 12 




00644 






DEFB 


18 


716B 12 




00645 
00650 






DEFB 


18 


716C 4D 




00660 


MSG 


DEFM 


1 MAXWELL ■ 


41 58 


57 


45 4C 


4C 








7173 27 




00670 






DEFB 


27H 


7174 53 




00680 






DEFM 


'S DEMONS' 


20 44 


4 5 


4D 4F 


4E 


24 






717C 24 




00690 






DEFM 


'SENTER PLAYING LEVEL:? 1 


45 4E 


54 


45 52 


20 


50 


4C 




41 59 


4 9 


4E 47 


2 


4C 


45 




56 4 5 


4C 


3A 24 










7192 24 




00700 






DEFM 


1 $1. 4 SLOW MOLECULES' 


31 2E 


20 


20 34 


20 


53 


4C 




4F 57 


20 


4D 4F 


4C 


45 


4 3 




55 4C 


4 5 


53 










71A7 24 




00710 






DEFM 


'$2. 8 SLOW MOLECULES' 


32 2E 


20 


20 38 


20 


53 


4C 




4F 57 


20 


4D 4F 


4C 


45 


43 




55 4C 


45 


53 










71BC 24 




00720 






DEFM 


'S3. 8 MEDIUM MOLECULES' 


33 2E 


20 


20 38 


20 


4D 


45 




44 49 


55 


4D 20 


40 


4F 


4C 




45 43 


55 


4C 45 


53 








71D3 24 




00730 






DEFM 


'S4. 12 MEDIUM MOLECULES' 


34 2E 


20 


31 32 


20 


4D 


45 




44 49 


55 


4D 20 


4D 


4F 


4C 




45 43 


55 


4C 45 


53 








71EA 24 




00740 






DEFM 


'S5. 12 FAST MOLECULES' 


35 2E 


20 


31 32 


20 


46 


41 




53 54 


20 


4D 4F 


4C 


45 


43 




55 4C 


45 


53 










71FF 24 




00750 






DEFM 


'$6. 12 SUPER FAST MOLECULES*' 


36 2E 


20 


31 32 


20 


53 


55 




50 45 


52 


20 46 


41 


53 


54 




20 4D 


4F 


4C 45 


43 


55 


4C 




45 53 


2A 


00760 










721B 4C 




00770 


PROMPT DEFM 


'LEVEL X - ' 


45 56 


45 


4C 20 


58 


20 


2D 
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20 












7225 50 


00780 




DEFM 


'PRESS 


SPACE BAR TO OPEN DOOR - ' 


52 45 53 


53 20 


S3 50 


41 






43 45 20 


42 41 


52 20 


54 






4F 20 4F 


50 45 


4E 20 


4 4 






4P 4F 52 


20 2D 


20 








7244 50 


00790 




DEFM 


"PRESS 


BREAK TO EXIT 1 


52 45 53 


53 20 


42 52 


45 






41 4B 20 


54 4F 


20 45 


5 8 






49 54 


00800 










00 01 


00810 


DOOR 


DEFS 


1 


;Z=DOOR OPEN, NZ=DOOR CLOSED 


0001 


00820 


LEVEL 


DEFS 


1 


; PLAYING LEVEL (0-5) 


0001 


00830 


TIMINC 


DEFS 


1 


;TIME DELAY INBETWEEN UPDATES 


0001 


00840 


FIGCN1 


DEFS 


1 


; MOLECULE UPDATE COUNT 


0002 


00850 


FIGX 


DEFS 


2 


; MOLECULE LIST POINTER 


0001 


00860 
00870 


WALLF 


DEFS 


1 


;NZ=WALL CONTACT, Z=NO CONTACT 


725E 00 


00880 


HC 


DEFB 





;H0 PIXEL 


725F A73C 


00890 




DEFW 


3CA7H 


; VIDEO ADDRESS 


7261 00 


00900 




DEFB 





;MOVE DIRECTION 


7262 9470 


00910 




DEFW 


HOTX 


; GRAPHICS POINTER 


7264 00 


00920 




DEFB 





;H1 


7265 033E 


00930 




DEFW 


3E03H 




7267 01 


00940 




DEFB 


1 




7268 9470 


00950 




DEFW 


HOTX 




726A 00 


00960 




DEFB 





;H2 


726B 333F 


00970 




DEFW 


3F33H 




726D 2 


00980 




DEFB 


2 




726E 9470 


00990 




DEFW 


HOTX 




7270 00 


01000 




DEFB 





;H3 


7271 0F3E 


01010 




DEFW 


3E0FH 




7273 07 


01020 




DEFB 


7 




7274 9470 


01030 




DEFW 


HOTX 




7276 02 


01040 




DEFB 


2 


;H4 


7277 7B3D 


01050 




DEFW 


3D7BH 




7279 04 


01060 




DEFB 


4 




727A 9470 


01070 




DEFW 


HOTX 




727C 02 


01080 




DEFB 


2 


;H5 


727D 5B3D 


01090 




DEFW 


3D5BH 




7 27F 06 


01100 




DEFB 


6 




7280 9470 


01110 




DEFW 


HOTX 




7282 00 


01120 




DEFB 





;C0 


7283 0F3D 


01130 




DEFW 


3D0FH 




7285 00 


01140 




DEFB 







7286 D070 


01150 




DEFW 


COLDX 




7288 00 


01160 




DEFB 





J CI 


7289 333F 


01170 




DEFW 


3F33H 




728B 01 


01180 




DEFB 


1 




728C D070 


01190 




DEFW 


COLDX 




728E 00 


01200 




DEFB 





;C2 


728F 033E 


01210 




DEFW 


3E03H 




7291 02 


01220 




DEFB 


2 




7292 D070 


01230 




DEFW 


COLDX 




7294 00 


01240 




DEFB 





;C3 


7295 A73C 


01250 




DEFW 


3CA7H 




7297 04 


01260 




DEFB 


4 




7298 D070 


01270 




DEFW 


COLDX 




729A 00 


01280 




DEFB 





;C4 


729B 0F3E 


01290 




DEFW 


3E0FH 




729D 05 


01300 




DEFB 


5 




729E D070 


01310 




DEFW 


COLDX 




72A0 00 


01320 




DEFB 





;C5 


72A1 333F 


01330 




DEFW 


3F33H 




7 2A3 07 


01340 




DEFB 


7 




7 2A4 D07 


01350 
01360 




DEFW 


COLDX 






01370 


; MOLECULE CONTROL VARIABLE! 


0006 


01380 


H0 


DEFS 


6 




0006 


01390 


Hi 


DEFS 


6 




0006 


01400 


H2 


DEFS 


6 




0006 


01410 


H3 


DEFS 


6 




0006 


01420 


H4 


DEFS 


6 




0006 


01430 


H5 


DEFS 


6 




0006 


01440 


C0 


DEFS 


6 




0006 


01450 


CI 


DEFS 


6 




0006 


01460 


C2 


DEFS 


6 




0006 


01470 


C3 


DEFS 


6 




0006 


01480 


C4 


DEFS 


6 




0006 


01490 
01500 


C5 


DEFS 


6 






01510 


; START 0) " IGRAM 




72EE P3 


01520 


DEMON 


DI 




; DISABLE INTERRUPTS 


72EF 310080 


01530 




LD 


SP,8000H ..-"■ •"<-';■ - ■! ■ 


72F2 CD4B73 


01540 




CALL 


DMSG 


; DISPLAY OPENING MESSAGE 


72F5 CD7973 


01550 




CALL 


GETLV 


;GET PLAYING LEVEL 


72F8 CD8E73 


01560 




CALL 


SETUP 


;SET UP INITIAL LOCATIONS 


7 2FB CDBE7 3 


01570 




CALL 


BRD 


; DISPLAY PLAYING BOARD 


72FE 2A5B72 


01580 


DEM0N1 LD 


HL, (FIGX) 


MOLECULE LIST POINTER 


7301 3A5A72 


01590 




LD 


A, (FIGCNT) 


NO. OF MOLECULE UPDATES 


7304 47 


01600 




LD 


B,A 






7305 C5 


01610 


DEM0N2 PUSH 


BC 






7306 E5 


01620 




PUSH 


HL 






7307 5E 


01630 




LD 


E,(HL) 




MOLECULE CONTROL LIST 


7308 23 


01640 




INC 


HL 






7309 56 


01650 




LD 


D, (HL) 






730A DD210006 


01660 




LD 


IX, 






730E DD19 


01670 




ADD 


IX, DE 






7310 CD2174 


01680 




CALL 


WALL 




REFLECT FIGURE OFF WALL 


7313 CDB274 


01690 




CALL 


REM 




REMOVE FIGURE 


7316 CDE274 


01700 




CALL 


MOVE 




MOVE FIGURE 


7319 CD1175 


01710 




CALL 


ADD 




ADD FIGURE 


731C 3A5872 


01720 




LD 


A, (LEVEL) 




731F FE02 


01730 




CP 


2 






7321 DC3F75 


01740 




CALL 


C,OPEN 




OPEN/CLOSE DOOR 












Listing continues 



initialize the molecule locations and 
move directions. 

The BRD routine draws the playing 
area on the screen. It stores a one into 
the door status flag (DOOR) indicating 
a closed door. It displays the playing 
level and operating instructions on the 
last line of the screen. 

The Wall routine deflects molecules 
after a wall contact by changing the 
move direction appropriately. It also 
takes into account a corner contact, 



"The Wall routine 

deflects molecules after 

a wall contact by changing 

the move direction 

appropriately. " 



where the molecule can touch two walls 
simultaneously. 

The Wall routine checks for a wall 
contact by extracting the X and Y coor- 
dinates of the molecule location and 
then comparing these values to the 
known locations of the walls. Figure 2 
shows the pixel positions where wall 





Left Wall Contact 
Pixel positions 
0, 1,2 




Right Wall Contact 
Pixel positions 
0, 1,2 




Upper Wall Contact 
Pixel positions 
1,4 



Down Wall Contact 
Pixel positions 

2,5 



Fig. 2. Possible Pixel Positions for Wall 
Contacts. 
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MODEL IV DISK UPGRAD 
w FROM MICRO MAINFRAM 



SHIPPING FROM ST 
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• Our FDC-3C Premium Grade controller is for double sided and or 8" disk drives. 

BOTH COMPLETE DISK UPGRADE KITS INCLUDE THE TEC 5 SINGLE SIDED, DOUBLE DENSITY TEC DISK DRIVE. Double 
sided drives will be available at extra cost. 8" drives are available from a number of vendors. Please order accordinq to the stock numbers 
listed below: . , ; J,^?^ : : : : r..,^, & ,:•*■• : . ■„ ;, ■•, . . . ./ , /;"-'"'> ■%■ xfT£. \\ ; * . "7 ' 









* SUPPLY, INSTALLATION KIT, TEC DISK DRIVE AND LER, SWITCHING POWER 
.ETE INSTRUCTIONS. COMPLETE INSTRUCTIONS. 



CONTROL- 
I KIT, AND 



rasnJsrKWeTSrfrS 



FDC-3B (Standard Grad 



)LLOWS. MODEL-HI" COMPUTER COMPLETE WITH DUAL TEC DISK 

S 79.95 DRIVES, 48K RAM, AND A MICRO MAINFRAME FACTORY IN- 

S 99.95 STALLED DISK UPGRADE KIT. 

M32-1 Model-Ill" * with FDC-3BKD $1495.00 

M32-2 Model-Ill 7 ' with FDC-3CKD $1595.00 



ALMOST A... 

"you are having diffi 









■n ..jiiju n i ij 



• MICRO MAINFRAME c 

haven't yet thought of. 

• MICRO MAINFRAME products have been proven over the long> 
. period of time of any in the industry and are state of the art. Thanks; 

our high volume production . we can offer the highest quality product 
at the most competitive price in the industry. 

• EVERY MICRO MAINFRAME CONTROLLER PRODUCED HAS 
INCLUDED GOLD PLATED CARD EDGE CONNECTORS FOR 
INCREASED RELIABILITY AT NO EXTRA COST. 




TO USE THE STATE OF THE ART 









first FDC-3C disk controller Unlike other c~ 

MENTS ARE EVER REQUIRED TO OUR DATA SEPARATOR. 

• MICRO MAINFRAME IS FIRST TO PROVIDE FOR 8 DISK OP- 
ERATION ON BOTH OUR FDC-3A and FDC-3C MODELS. 

IF GIVES YOU A SYSTEM THAT CAN GROW WITH YOUR 
NEEDS, from floppy disk systems to state of the art hard disk systems 
with full ECC and the industry's only SASI Multiplexer with our SASI- 
NET i % 

• MMF's NEW 24 PAGE INSTALLATION MANUAL IS SECOND TO 
NONE. Installing a disk upgrade kit from MICRO MAINFRAME is now 

r than ever before. 



disk controllers for the 



<>itiirwiir» BiriMiHlBfejui»iiM3»i'^j~H< 






O MAINFRAME does not accep 

a 10°o deposit upon placement. All non-certified fur 



your shipment, or 



computer system. Call or write f< 
OLICI 






E3SMMWEs?3zF 






11325 Sunrise Gold Circle 

Building A 

> Cordova, CA 

(916)635-3997 



mKUBBmma 






mmm 
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7324 3A5972 


01750 




LD 


A, (TIMING) ; 


DELAY BETWEEN UPDATES 


7327 47 


01760 




LD 


A , A ; 




7328 3A5D72 


01770 




LD 


A,(WALLF) ; 




732B C5 


01780 


DEM0N3 


PUSH 


BC ; 




732C EE03 


01790 




XOR 


3 1 




732E D3FF 


01800 




OUT 


(255), A » 


BEEP WHEN WALL CONTACT 


7330 0640 


01810 




LD 


B,40H ; 




7332 10FE 


01820 




DJNZ 


$ ; 




7334 CI 


01830 




POP 


BC J 




7335 10F4 


01840 




DJNZ 


DEMON3 ; 


CONTINUE DELAY LOOP 


7 3 37 El 


01850 




POP 


HL ; 




7338 CI 


01860 




POP 


BC ; 




7339 23 


01870 




INC 


HL t 




733A 23 


01880 




INC 


HL f 




733B 10C8 


01890 




DJNZ 


DEMON 2 ; 


CONTINUE UPDATE LOOP 


733D CD3F75 


01900 




CALL 


OPEN t 


OPEN/CLOSE DOOR 


7340 3A4038 


01910 




LD 


A,(3840H) | 


BREAK KEY? 


7343 E604 


01920 




AND 


4 t 




7345 CAFE72 


01930 




JP 


Z,DEMONl ; 


CONTINUE IF NOT BREAK 


7348 C3EE72 


01940 
01950 


t 


JP 


DEMON > 


ELSE START PROGRAM OVER 




01960 


; DISPLAY OPENING MESSAGE 




734B 21003C 


01970 


DMSG 


LD 


HL,3C00H I 


CLEAR SCREEN 


734E 11013C 


01980 




LD 


DE,3C01H / 




7351 01FF03 


01990 




LD 


BC,1023 ; 




7354 3620 


02000 




LD 


(HL),20H I 




7356 EDB0 


02010 




LDIR 






7358 116C71 


02020 




LD 


DE,MSG f 


MESSAGE ADDRESS 


735B 21003C 


02030 




LD 


HL,3C00H J 


VIDEO ADDRESS 


735E 1A 


02040 


DHSG1 


LD 


A,(DE) J 


GET MESSAGE CHARACTER 


735F FE2A 


02050 




CP 


.*. , 




7361 C8 


02060 




RET 


Z J 


RETURN IF END OF MESSAGE 


7362 FE24 


02070 




CP 


'$' t 




7364 CA6D73 


02080 




JP 


Z,DMSG3 f 


JUMP IF CARRIAGE RETURN 


7367 77 


02090 




LD 


(HL) ,A f 


STORE CHARACTER IN VIDEO 


7368 13 


02100 




INC 


DE f 




7369 23 


02110 




INC 


HL t 




736A C35E73 


02120 




JP 


DMSG1 J 


NEXT CHARACTER 


736D 13 


02130 


DHSG3 


INC 


DE t 




736E 7D 


02140 




LD 


A,L J 


COMPUTE NEXT LINE ADDR 


736F E6C0 


02150 




AND 


0C0H J 




7371 6F 


02160 




LD 


L,A t 




7372 014000 


02170 




LD 


BC,64 J 




7375 09 


02180 




ADD 


HL,BC ) 




7376 C35E73 


02190 
02200 




JP 


DMSG1 » 


START NEXT LINE 




02210 


;GET PLAYING LEVEL 




7379 3A1038 


02220 


GETLV 


LD 


A,(3810H) I 


KEYBOARD NUMERIC KEYS 


737C E67E 


02230 




AND 


7 EH 1 


MASK FOR KEYS 1-6 


737E CA7973 


02240 




JP 


Z, GETLV 


LOOP UNTIL 1-6 PRESSED 


7381 0F 


02250 




RRCA 






7382 0E00 


02260 




LD 


C,0 » 




7384 0C 


02270 


GETLV1 


INC 


C 




7385 0F 


02280 




RRCA 






7386 30FC 


02290 




JR 


NCGETLV1 


LOOP UNTIL KEY FOUND 


7388 0D 


02300 




DEC 


C 




7389 79 


02310 




LD 


A,C 




738A 325872 


02320 




LD 


(LEVEL) ,A 


SAVE PLAYING LEVEL 


738D C9 


02330 
02340 




RET 








02350 


;SET UP PLAYING LEVEL r-AR,\",TERS 






02360 


; AND 


INITIAL 


FIGURE LOCATIONS At 


JD MOVE DIRECTIONS 


738E 3A5872 


02370 


SETUP 


LD 


A, (LEVEL) 




7391 4F 


02380 




LD 


C,A 




7392 0600 


02390 




LD 


B,0 




7394 216671 


02400 




LD 


HL,FIGCTX 




7397 09 


02410 




ADD 


HL,BC 




7398 7E 


02420 




LD 


A, (HL) 




7399 325A72 


02430 




LD 


(FIGCNT) ,A 


NO. OF MOLECULE UPDATES 


739C 216071 


02440 




LD 


HL,TIMX 




739F 09 


02450 




ADD 


HL,BC 




73A0 7E 


02460 




LD 


A,(HL) 




73A1 325972 


02470 




LD 


(TIMING) ,A 


DELAY BETWEEN UPDATES 


73A4 79 


02480 




LD 


A,C 




73A5 87 


02490 




ADD 


A, A 




73A6 4F 


02500 




LD 


C,A 




73A7 210C71 


02510 




LD 


HL,LEVELX 




73AA 09 


02520 




ADD 


HL,BC 




73AB 5E 


02530 




LD 


E,(HL) 




73AC 23 


02540 




INC 


HL 




73AD 56 


02550 




LD 


D,(HL) 




73AE ED535B72 02560 




LD 


(FIGX) ,DE 


MOLECULE UPDATE LIST 


73B2 014800 


02570 




LD 


BC , 7 2 


SET MOLECULE VARIABLES 


73B5 215E72 


02580 




LD 


HL,HC 




73B8 11A672 


02590 




LD 


DE,H0 




73BB EDB0 


02600 




LDIR 






73BD C9 


02610 
02620 




RET 








02630 


;DRAW 


BOARD 






73BE 21003C 


02640 


BRD 


LD 


HL,3C00H 


; CLEAR SCREEN W/GRAPHICS 


73C1 11013C 


02650 




LD 


DE,3C01H 




73C4 01FF03 


02660 




LD 


BC,1023 




73C7 3680 


02670 




LD 


(HL) ,80H 




73C9 EDB0 


026 80 




LDIR 






73CB 21003C 


02690 




LD 


HL,3C00H 


;DRAW TOP WALL 


73CE 11013C 


02700 




LD 


DE,3C01H 




73D1 013F00 


02710 




LD 


BC,63 




73D4 3683 


02720 




LD 


(HL) ,83H 




73D6 EDB0 


02730 




LDIR 






73D8 21803F 


02740 




LD 


HL,3F80H 


;DRAW BOTTOM WALL 


73DB 11813F 


02750 




LD 


DE,3F81H 




73DE 013F00 


02760 




LD 


BC,63 




73E1 36B0 


02770 




LD 


(HL) ,0B0H 




73E3 EDB0 


02780 




LDIR 






73E5 21003C 


02790 




LD 


HL,3C00H 


;DRAW LEFT WALL 


73E8 3EBF 


02800 




LD 


A,0BFH 


; 

Listing continues 



contacts are possible. For the left and 
right walls, the molecule must be in pix- 
el positions zero, 1, or 2. Only pixel 
positions 1 and 4 can contact the upper 
wall. For the down wall, only pixel posi- 
tions 2 and 5 can make contact. 

If Wall finds that a molecule is at a 
wall with the right pixel position, it calls 
CONTC to change the move direction 
unless the wall is the partition and the 
door is open. If the Y coordinate of the 
molecule is within range of the door, 
Wall makes no change to the move di- 
rection and lets the molecule continue 
through. 

Wall handles a corner contact by first 
processing the left or right wall move 
change and then recalling CONTC for 
the upper or lower wall. 

CONTC finds the new move direc- 
tion for a molecule contacting a wall. It 
requires that the E register contain the 
wall number zero, 2, 4, or 6 
(corresponding to left, right, up, or 
down). It uses this wall number, along 
with the move direction. CONTC stores 
the new move direction in the molecule 
control variable list by way of the IX 
register. 

The REM routine removes the mol- 
ecule graphics from the screen. It per- 
forms two loops, each processing four 
graphics characters. To avoid too much 
interference with an overlapping mol- 
ecule, it masks out the graphics bits 
rather than storing blanks. REM uses 
the pixel position and the type of mol- 
ecule to index into the proper table to 
find the graphics characters. 

The Move routine calculates the next 
location and pixel position for a mol- 
ecule. It indexes into the move table to 
find the next pixel position and video 
address offset. It then adds this offset to 
the current video address and stores it 
into the molecule control list. 

The Add routine redraws a molecule 
on the screen. It performs a logical OR 
of the graphics bits with the video mem- 
ory bits for each graphics character and 
prevents any blanking of an overlap- 
ping molecule or wall. 

The Open routine opens or closes the 
door in response to the space bar. If the 
space bar is pressed and the door is 
closed, it blanks out the door on the 
screen. If the space bar is not pressed, it 
draws the door on the screen. It also 
redraws the partition each time in case it 
is overwritten by a passing molecule. ■ 



Contact Lee Morgenstem at 14358 
Dyer St., Sylmar, CA 91324. 
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Listing continued 












73EA 


114000 


02810 




LD 


DE,64 J 




7 3 ED 


060F 


02820 




LD 


B,15 7 




73EF 


77 


02830 


BRD1 


LD 


(HL) ,A » 




73F0 


7 9 


02840 




ADD 


HL,DE ; 




73P1 


10FC 


02850 




DJNZ 


BRDl ; 




73F3 


213F3C 


02860 




LD 


HL,3C3FH ; 


DRAW RIGHT WALL 


73F6 


060F 


02870 




LD 


B,15 ; 




73F8 


77 


02880 


3RD 2 


LD 


(HL) ,A t 




73F9 


19 


02890 




ADD 


HL,DE ; 




73FA 


10FC 


02900 




DJNZ 


BRD2 f 




73FC 


211F3C 


02910 




LD 


HL,3C1FH ; 


DRAW MIDDLE PARTITION 


73FF 


IB 


02920 




DEC 


de ; 




7 43 


060F 


02930 




LD 


B,15 t 




7402 


77 


02940 


BRD3 


LD 


(HL) ,A J 




7423 


23 


02950 




INC 


HL t 




7404 


77 


02960 




LD 


(HL) ,A 1 




7 40 5 


19 


02970 




ADD 


HL,DE f 




7406 


10PA 


02980 




DJNZ 


BRD3 ; 




7408 


3E01 


02990 




LD 


A,l ; 


INDICATE DOOR CLOSED 


7 40 A 


325772 


03000 




LD 


(DOOR) ,A f 




740D 


211B72 


03010 




LD 


HL, PROMPT I 


DISPLAY PROMPT AT BOTTOM 


7 410 


11C23F 


03020 




LD 


DE,3FC2H f 




7413 


013C00 


03030 




LD 


BC,60 1 




7 416 


EDB0 


03040 




LDIR 






7418 


3A5872 


03050 




LD 


A, (LEVEL) J 


DISPLAY PLAYING LEVEL 


7 4 IB 


Co 31 


03060 




ADD 


A,31H J 




741D 


32C83F 


03070 




LD 


(3FC8H),A I 




7420 


C9 


03080 
03090 




RET 


i 








03100 


; REFLECT OFF 


WALL 








03110 


; INPUT 


IX POINTING TO PIXEL, VIDEO ADDR,HOVE DIRECTION 






03120 


; OUTPUT NEW 


MOVE DIRECTION IF WALL CONTACT 


7421 


AF 


03130 


WALL 


XOR 


A 




7422 


325D72 


03140 




LD 


(WALLF) ,A j 


INDICATE NO WALL CONTACT 


7 425 


DD6E01 


03150 




LD 


L,(IX+1) 1 


GET FIGURE VIDEO ADRESS 


7 428 


DD6602 


03160 




LD 


H, (IX+2) 




742B 


7D 


03170 




LD 


A,L J 


EXTRACT COORDINATES 


742C 


1100C4 


03180 




LD 


DE,-3C00H j 




742F 


19 


03190 




ADD 


HL,DE ) 




7 430 


29 


03200 




ADD 


HL,HL ) 




7431 


29 


03210 




ADD 


HL,HL J 


H = Y COORDINATE 


7 4 3 '/. 


E63F 


03220 




AND 


3FH 




7 43 4 


6P 


03230 




LD 


L,A | 


L = X COORDINATE 


7435 


DD7E00 


03240 




LD 


A, (IX) 


GET PIXEL POSITION 


7438 


FE03 


03250 




C? 


3 




7 43 A 


D26F74 


03260 




J? 


NC, WALLl 


JUMP IF HALF POSITION 


7 430 


7D 


03270 




LD 


A,L 


GET X COORDINATE 


743E 


1E00 


03280 




LD 


E,0 


INDICATE LEFT WALL 


7 44 


FE01 


03290 




CP 


1 




7442 


CA6C74 


03300 




JP 


Z,WALL2 


JUMP IF WALL CONTACT 


7445 


FE21 


03310 




CP 


33 




7 4 4 7 


CA597 4 


03320 




,;? 


Z,WALL3 


JUMP IF PARTITION CONT 


7 44 A 


1E02 


03330 




LD 


E,2 


INDICATE RIGHT WALL 


744C 


FE1C 


03340 




CP 


28 




744B 


CA597 4 


03350 




JP 


Z,WALL3 


JUMP IF PARTITION CONT 


7 451 


FE3C 


03360 




CP 


60 




7 453 


CA6C7 4 


03370 




JP 


Z,WALL2 


JUMP IF WALL CONTACT 


7456 


C36F74 


03380 




JP 


WALLl 


CHECK UP, DOWN WALLS 


7459 


3A5772 


03390 


WALL3 


LD 


A, (DOOR) 


GET DOOR STATUS 


7 4 5C 


A7 


03400 




AND 


A 




7 4 50 


C26C74 


03410 




JP 


NZ,WALL2 


JUMP IF CLOSED 


7 460 


7C 


03420 




LD 


A,H 


GET Y COORDINATE 


7 461 


FE06 


03430 




CP 


6 




7463 


DA6C7 4 


03440 




JP 


C,WALL2 


JUMP IF TOO HIGH 


7466 


FE08 


03450 




CP 


8 




7468 


D26C74 


03460 




JP 


NC,WALL2 


JUMP IF TOO LOW 


746B 


C9 


03470 




RET 




ALLOW PASSAGE THRU DOOR 


746C 


CD9774 


03480 
03490 


WALL2 


CALL 


CONTC 


CHANGE MOVE DIRECTION 
CONTINUE IF CORNER 


746P 


DD7E00 


03500 


WALLl 


LD 


A, (IX) 


GET PIXEL POSITION 


7472 


FE01 


03510 




CP 


1 




7474 


CA7C7 4 


03520 




JP 


Z, WALLlA 


JUMP IF MIDDLE PIXEL 


7 477 


FE04 


03530 




CP 


4 




7479 


C28574 


03540 




JP 


NZ,WALL1B 


JUMP IF NOT MIDDLE PIXEL 


7 47C 


7C 


03550 


WALLlA 


LD 


A,H 


GET Y COORDINATE 


7 47D 


1E04 


03560 




LD 


E,4 


INDICATE UPPER WALL 


747F 


FE00 


03570 




CP 







7481 


CA9374 


03580 




JP 


Z,WALL4 


JUMP IF WALL CONTACT 


7484 


C9 


03590 




RET 




t 


7485 


FE02 


03600 


WALL1B 


CP 


2 




7487 


CA8D74 


03610 




JP 


Z,WALL1C 


JUMP IF BOTTOM PIXEL 


748A 


FE05 


03620 




CP 


5 




74SC 


C0 


03630 




RET 


NZ 


RET IF NOT BOTTOM PIXEL 


748D 


7C 


03640 


WALLl C 


LD 


A , H 


GET Y COORDINATE 


7 4 8E 


1E06 


03650 




LD 


E,6 


INDICATE DOWN WALL 


7 4 90 


FE0D 


03660 




CP 


13 




7492 


C0 


03670 




RET 


NZ 


j RET IF NO WALL CONTACT 


7493 


CD9774 


03680 


WALL4 


CALL 


CONTC 


GET NEW MOVE DIRECTION 


7496 


C9 


03690 
03700 




RET 










03710 


;GET NEW WALL REFLECTION MOVE DI 


RECTION 






03720 


; INPUT IX POINTING TO PIXEL, VID 


EO ADDR,MOVE DIR 






03730 


; INPUT E=WALL NUMBER (0,2,4,6) 


(L,R,U,D) 






03740 


; OUTPUT NEW 


MOVE DIRECTION 




7497 


E5 


03750 


CONTC 


PUSH 


HL 




7498 


3E01 


03760 




LD 


A,l 




749A 


325D72 


03770 




LD 


(WALLF) ,A 


•INDICATE WALL CONTACT 


749D 


1600 


03780 




LD 


D,0 




749F 


216C70 


03790 




LD 


HL,WALLX 


;GET WALL TABLE ADDRESS 


7 4A2 


19 


03800 




ADD 


HL,DE 


; COMPUTE WALL LIST 


74A3 


4E 


03810 




LD 


C,(HL) 


;GET MOVE DIR LIST ADDR 


7 4A4 


23 


03820 




INC 


HL 




7 4A5 


46 


03830 




LD 


B, (HL) 




7 4A6 


DD6E03 


03840 




LD 


L, (IX+3) 


;GET MOVE DIRECTION 


74A9 


2600 


03850 




LD 


.4,0 


I isli'n' continues 




for EPSON 



EXCEPT I DNAL MX SER I EB 
PRINT DRIVER UTILITY 



tf PLUS * 



COMPLETE 
CHARACTER EDITOR 



!&=¥♦** 






13^ SUPPORTS AJi GRAFTRAX- ' '"• FEATURES 

► TEXT CONTROL USING CONTROL CHARACTERS * 

» EASY TRANSPARENT USE " 

&= CREATE SPECIAL LETTERS AND PRINT FONTS 

» USE WITHIN. YOUR WORDPROCt SSOP » 

* J." POWERFUL EDI I OR COMMANDS » 

« UREAI FOR BUSINESS UR PROFESSIONALS * 

* LOTS OF CREATIVE FUN 100 * 

►^= POWERFUL TRIPLE MENU CONTROL MODE 

• IDEAL FUR 001 t'r- PRINIfcR Sfc 1 -UP « 

k#- TRUE PROPORTIONAL MARGIN JUSTIFICATION 

« COMPATIBLE Wl IH U I HER FEATURES » 

l^= WORKS WITH MOST POPULAR PROGRAMS 

» scrips] r® * i.azyuiri rt:R « pencil * 

» ANY BASIC PROGRAM » 
BPPI TI QISftL P EATURES? 

+ COMPLETE PAGE AND FORM CONTROL 

' CONTIN UOUS ONDERLINING 

♦ EPSON n no/ l " J '- e ' , SCRIPTS 

* AUTO-CENTERING 

* SUPER SCRIPTS 

+ SUB SCRIF ' ,S 
+ ITALICS 



CREATI 



NEUJ CHARACTERS 



MAXPRINT ru "" CONTAINS A POWERFUL YET EASY- 
TO-USI CHARAC1LR EDITOR THAI ALLOWS YOU !(l 
QUICKLY DESIGN SPECIAL LETTERS AND PRINT 
FONTS FOR YOUR EPSON PRINTER WITH 
GRAFTRAX' • "". THEN USE THESE SYMBOLS 

WITHIN YOUR WORD-PROCESSOR TEXT FOR .... 

+ MATH t< SCIENCE — n Z X * * + * 

+ BUSINESS — © ® R £. •* * % 1 

* FOREIGN LANGOAGE — a a 6 or S.-1*#'' 

«- PERSONAL FUN - * * * 4> = & 12?= 

MAXPfUNT"" L "■ i« an exceptionally versatile 
Printer- driver utility speci t i cal 1 v 

designed for Epson M< Series printer;; with 
GRAFTRAX- 1 -"' 3 . It allows you tc. utilise 

any Grattrax text feature on a Character- 
by-character basis. Changes are created 
by inserting simple control characters' 
within word processing text. 



Th« character editor 
create any letter i 
program is 1007. i 
extremely smooth, 
ed) tor and char acts 



feature allows von to 
lagin^ble. The entire 
isembly language for 
quick response. 35 

generation commands 



<! 1' 



to 



with a built-in help file 
perform functions like copy, find, merge, 
replicate, and delete. Completed letter 

files can be stored and recalled from disk 
for future use. 

The standard MAXPRINT"-"" worls with 
all BASIC programs. Adapter programs are 
provided for SCR I PS IT, LAZY WRITER, and 
PENCIL. Minimum system requirements are a 
48k Model I or Model III with one disk 
drive. (Model III needs two disk drives 

to convert only.) Epson MX Series printer 
must be equipped with GRAFTRAX•''- , -'* , . 

Unleash the true potential o£ your EPSON . 
MAXPRINI is supplied on disk with manual, 
adapter programs, and shipping for only: 



Call 

Or und check 



TO ORDER: 
(617) 436-1*12 VI ma / Haetercard 
money order to: 

Pa»OQ yt i— on ± c= at, ^333 

249 South Highway 101, Suite 471 
Solaria Beach, California 92*73 



'A rniwrnt 
• II tut printed 



41 tlltl t 



ii // Scriput T" of Tuiy Corp. 



-See List of Advertisers on Page 323 
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INTRODUCING!!! 

a FAST, fiOPmnCATLV 
and USER FRIENDLY -75 

graphics and text program 



NEWI 

from 

Lichen 

Software 



KW1KDRAW 



WITH KWIKDRAW YOU CAN QUICKLY AND EAS- 
ILY CREATE/EDIT DISPLAYS COMBINING 
GRAPHICS, TEXT, AND SPECIAL CHARACTERS. 
YOU CAN: • Save/Load displays to/irom disk in 3 
formats: B ASIC/ASCII/object • Save/Load/ 
Overlay displays to/from 10 RAM buffers • Print in 
a variety of formats, with multiple copy and 
BACKGROUND printing • 2 cursor sizes, each can 
move at one of 255 speeds from slow to VERY FAST! 
Set delay before keys repeat • Have cursors stop at 
screen edge or wraparound to opposite edge • Fast 
ine & circle • Move/Duplicate/Erase individual 
figures and/or text • Fill figures • Reverse black/ 
white • Scroll entire screen with/without 
wraparound • 2 mirror image routines • View direc- 
tories • 8 menu/help screens • AND MUCH MORE!! 
Logical key assignments are easy to learn. 50+ 
page manual with instructions for using displays 
in your programs. What makes it KWIK? Written in 
100% machine code — no SLOW BASIC or com- 
piled BASIC! Backups allowed. REQUIRES: 48K 
Model III* & 1 disk drive. Printing routines require 
an Epson MX" series printer. TERMS: S74.95 — 
cash, certified check, money order, or personal 
check. Allow 2-3 weeks for personal checks to 
clear, all other orders will be shipped within 48 
hours. LICHEN SOFTWARE, 6603 N. LEE ST. 
SPOKANE, WA 99207, (509) 448-4026 'Trademark 
of Tandy Corp. "Trademark of Epson America, Inc. 



TRS-80® 

Programmer's Sourcebook 



TRS-80* 

Programmer's 
Source hook 




First Edition 

Now there is a national TRS-80 sourcebook with 
system software listings plus club listings, all in 
addition to many new application software 
listings, all of which are separated by model 
number The first edition of this * by 1t-inch bright 
yellow publication is now in national distribution in 
both the US and Canada, and is available 
through your favorite computer store, book store 
(ISBN 0-912043-0) or you can order direct from us 
by sending $4.95 (plus $100 postage and 
handling) to 

Ocean, Inc. ^m 

P.O. Box 2331 
Springfield, VA 22152-0331 

Visa and Master Card accepted. 
(Dealer's inquiries invited.) 

'TRS-80 is a registered trademark of Tandy Corp 
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74AB 09 


03860 




ADD 


HL,BC 


; 


74AC 7E 


03870 




LD 


A,(HL) 


;GET NEW MOVE DIRECTION 


74AD DD7703 


03880 




LD 


(IX+3) ,A 


; STORE 


74B0 El 


03890 




POP 


HL 


; 


74B1 C9 


03900 
03910 


; 


RET 








03920 


; REMOVE FIGURE 








03930 


; INPUT IX POINTING TO PIXEL, VIDEO ADDR, MOVE DIR, FIGURE 


74B2 DD7E00 


03940 


REM 


LD 


A, (IX) 


;GET PIXEL 


74B5 87 


03950 




ADD 


A, A 




74B6 5F 


03960 




LD 


E,A 




74B7 1600 


03970 




LD 


D,0 




74B9 DD6E04 


03980 




LD 


L,(IX+4) 


;GET FIGURE POINTER 


74BC DD6605 


03990 




LD 


H,(IX+5) 




74BF 19 


04000 




ADD 


HL,DE 




74C0 5E 


04010 




LD 


E, (HL) 


;GET GRAPHICS POINTER 


74C1 23 


04020 




INC 


HL 




7 4C2 56 


04030 




LD 


D,(HL) 




74C3 DD6E01 


04040 




LD 


L,(IX+1) 


;GET VIDEO ADDRESS 


74C6 DD6602 


04050 




LD 


H,(IX+2) 




74C9 0604 


04060 




LD 


B,4 




7 4CB 1A 


04070 


REM1 


LD 


A,(DE) 


;GET VIDEO CHARACTER 


74CC 2F 


04080 




CPL 






7 4CD A6 


04090 




AND 


(HL) 


;MASK OUT FIGURE 


74CE 77 


04100 




LD 


(HL) ,A 


; STORE VIDEO 


74CF 23 


04110 




INC 


HL 




74D0 13 


04120 




INC 


DE 




74D1 10F8 


04130 




DJNZ 


REM1 


) CONTINUE FIRST LINE LOOP 


74D3 013C00 


04140 




LD 


BC,60 




74D6 09 


04150 




ADD 


HL,BC 


; COMPUTE NEXT LINE ADDR 


74D7 0604 


04160 




LD 


B,4 




74D9 1A 


04170 


REM2 


LD 


A,(DE) 


;GET VIDEO CHARACTER 


7 4DA 2F 


04180 




CPL 






7 4DB A6 


04190 




AND 


(HL) 


•MASK OUT FIGURE 


74DC 77 


04200 




LD 


(HL) ,A 




74DD 23 


04210 




INC 


HL 




74DE 13 


04220 




INC 


DE 




74DF 10F8 


04230 




DJNZ 


REM2 


1 CONTINUE SECOND LINE 


7 4 El C9 


04240 
04250 




RET 








04260 


;MOVE FIGURE 








04270 


; INPUT 


IX POINTING TO PIXEL, VIDEO ADDR, MOVE DIR 




04280 


; OUTPUT NEW PIXEL, NEW VIDEO ADDR 


74E2 2670 


04290 


MOVE 


LD 


H,MOVX<-8 


MOVE TABLE 


74E4 DD7E00 


04300 




LD 


A, (IX) 


GET PIXEL 


74E7 87 


04310 




ADD 


A, A 




74E8 6F 


04320 




LD 


L,A 




74E9 5E 


04330 




LD 


E,(HL) 


GET MOVE POINTER 


74EA 23 


04340 




INC 


HL 




74EB 56 


04350 




LD 


D,(HL) 




7 4EC EB 


04360 




EX 


DE,HL 




74ED DD7E03 


04370 




LD 


A, (IX+3) 


GET MOVE DIRECTION 


74F0 87 


04380 




ADD 


A, A 




7 4 -'I 5F 


04390 




LD 


E,A 




74F2 1600 


04400 




LD 


D,0 




74F4 19 


04410 




ADD 


HL,DE 




74F5 7E 


04420 




LD 


A, (HL) 


GET NEW PIXEL 


74F6 DD7700 


04430 




LD 


(IX) ,A 


SAVE IN VARIABLE LIST 


74F9 23 


04440 




INC 


HL 




74FA 6E 


04450 




LD 


L,(HL) 


GET VIDEO ADDR OFFSET 


74FB 2600 


04460 




LD 


H,0 




74FD CB7D 


04470 




BIT 


7,L 




74FF 2802 


04430 




JR 


Z,MOVEl 




7501 26FF 


04490 




LD 


H,0FFH 




7503 DD5E01 


04500 


MOVE1 


LD 


E, (IX+1) 


GET CURRENT VIDEO ADDR 


7506 DD5602 


04510 




LD 


D, (IX+2) 




7509 19 


04520 




ADD 


HL,DE 


COMPUTE NEW VIDEO ADDR 


750A DD7501 


04530 




LD 


(IX+1) ,L 


SAVE IN VARIABLE LIST 


750D DD7402 


04540 




LD 


(IX+2) ,H 




7510 C9 


04550 
04560 




RET 








04570 


;ADD FIGURE 








04580 


; INPUT 


IX POINTING TO PIXEL, VIDI 


O ADDR, MOVE DIR, FIGURE 


7511 DD7E00 


04590 


ADD 


LD 


A, (IX) 


GET PIXEL 


7514 87 


04600 




ADD 


A, A i 




7bJ.o 5F 


04610 




LD 


E,A j 




7516 1600 


04620 




LD 


D,0 , 




7518 DD6E04 


04630 




LD 


L,(IX+4) ; 


GET FIGURE POINTER 


751B DD6605 


04640 




LD 


H,(IX+5) | 




751E 19 


04650 




ADD 


HL,DE | 




751F 5E 


04660 




LD 


E,(HL) ; 


GET GRAPHICS POINTER 


7520 23 


04670 




INC 


HL l 




7521 56 


04680 




LD 


D,(HL) ; 




7522 DD6E01 


04690 




LD 


L,(IX+1) l 


GET VIDEO ADDRESS 


7525 DD6602 


04700 




LD 


H,(IX+2) 




7528 0604 


04710 




LD 


B,4 j 




752A 1A 


04720 


ADD1 


LD 


A,(DE) > 


GET VIDEO CHARACTER 


752B B6 


04730 




OR 


(HL) 1 


ADD FIGURE 


752C 77 


04740 




LD 


(HL) ,A j 


STORE VIDEO 


752D 23 


04750 




INC 


HL ; 




752E .13 


04760 




INC 


DE ; 




752F 10F9 


04770 




DJNZ 


ADD1 J 


CONTINUE FIRST LINE LOOP 


7531 013C00 


04780 




LD 


BC,60 ; 




7534 09 


04790 




ADD 


HL,BC f 


COMPUTE NEXT LINE ADDR 


7535 0604 


04800 




LD 


B,4 f 




7 53 7 1A 


04810 


ADD 2 


LD 


A,(DE) ; 


GET VIDEO CHARACTER 


7538 B6 


04820 




OR 


(HL) ; 


ADD FIGURE 


7539 77 


04830 




LD 


(HL),A ; 


STORE VIDEO 


753A 23 


04840 




INC 


HL ; 




753B 13 


04850 




INC 


DE ; 




753C 10F9 


04860 




DJNZ 


ADD2 | 


CONTINUE SECOND LINE 


753E C9 


04870 
04880 




RET 








04890 


•OPEN/CLOSE DOOR 




753F 3EBF 


04900 


3PEN 


LD 


A,0BFH ; 


RESTORE PARTITION 

Listing continues 
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Listing continued 










7541 


32DF3C 


04910 


LD 


(3CDFH) r A 




7544 


32E03C 


04920 


LD 


(3CE0H) ,A 




7547 


321F3D 


04930 


LD 


(3D1FH) ,A 




754A 


32203D 


04940 


LD 


(3D20H) ,A 




754D 


325F3D 


04950 


LD 


(3D5FH) ,A 




7550 


32603D 


04960 


LD 


(3D60H) ,A 




7553 


325F3E 


04970 


LD 


(3E5FH) ,A 




7556 


32603E 


04980 


LD 


(3E60H) ,A 




7559 


329F3E 


04990 


LD 


(3E9FH) ,A 




755C 


32A03E 


05000 


LD 


(3EA0H) ,A 




755F 


32DF3E 


05010 


LD 


(3EDFH) ,A 




7 56 2 


32E03E 


05020 


LD 


(3EE0H) ,A 




7565 


3A5772 


05030 


LD 


A, (DOOR) 


GET DOOR STATUS 


7 36 


A7 


05040 


AND 


A 




7569 


CA7775 


05050 


JP 


Z,OPEN3 


JUMP IF DOOR OPEN 


756C 


3A4038 


05060 


LD 


A,(3840H) 


GET SPACE BAR STATUS 


756F 


E6 80 


05070 


AND 


80H 




7 57 3 


CA7D7 5 


05080 


JP 


Z,OPEN2 


JUMP IF NOT PRESSED 


7574 


C39775 


05090 


JP 


OPEN1 


JUMP IF PRESSED 


7577 


3A4038 


05100 OPEN3 


LD 


A, (3840H) 


GET SPACE BAR STATUS 


7 57 A 


E680 


05110 


AND 


80H 




7 57C 


C0 


05120 


RET 


NZ 


RET IF SPACE BAR PRESSED 


7 57D 


3E95 


05130 OPEN2 


LD 


A,095H 


CLOSE DOOR 


757F 


325772 


05140 


LD 


(DOOR) ,A 




7582 


329F3D 


05150 


LD 


(3D9FH) ,A 




7 5 85 


32DF3D 


05160 


LD 


(3DDFH) ,A 




7538 


321F3E 


05170 


LD 


(3E1FH) r A 




758B 


3EAA 


05180 


LD 


A,0AAH 




758D 


32A03D 


05190 


LD 


(3DA0H) ,A 




7 590 


32E03D 


05200 


LD 


(3DE0H) ,A 




7593 


32203E 


05210 


LD 


(3E20H) ,A 




7596 


C9 


05220 


RET 






7 597 


3E80 


05230 OPEN1 


LD 


A,080H 


OPEN DOOR 


7 5 9 9 


329F3D 


05240 


LD 


(3D9FH) ,A 




759C 


32A03D 


05250 


LD 


(3DA0H) ,A 




759F 


32DF3D 


05260 


LD 


(3DDFH) ,A 




75A2 


32E03D 


05270 


1 ,D 


(3DE0H) ,A 




75A5 


321F3E 


05280 


LD 


(3E1FH) ,A 




75A8 


32203E 


05290 


LD 


(3E20H) ,A 




75AB 


AF 


05300 


XOR 


A 




7 SAC 


325772 


05310 


LD 


(DOOR) ,A 




7 5AF 


C9 


05320 
5330 ; 


RET 






72EE 




05340 


END 


DEMON 




00000 TOTAL 


ERRORS 









TRS-80* 



WO BOS 



w o 

Basic Operating System 

WOBOS I is a menu driver, prestructured program in BASIC thai 
provides access to over 30 utility (unctions during development or 
actual use of a program. Its unique layout allows you to develop 
your programs within a well organized environment that provides 
a very strong foundation to build upon. You always had to start 
trom scratch before but now, after loading WOBOS I, you'll start 
with over 11 K of subroutines and system utilities. Imagine what 
this can do for your productivity! WOBOS I is not an accessory 
to your program. It actuals Nv tmn its *oundationl 




Illustrated above is the Primary Menu ot WOBOS I for Mode 
In addition to the features shown, the DEVICE I/O generate; 
separate 9-choice menu that will allow you to compile, updi 
sort and output your data tiles. It also includes a utility that 
save both the DATA and WOBOS I on tape and or disk. 
With controllable SOUNDI 





Once you've 


used it. 
program 


youtl ne 
without 


'*' wr " e 




Model 


Ill 


I 


COLOR 


BASIC 


MODEL III 


DISK 


LEVEL II 


DISK 


Extended 


DISK 


P N 


CC1021 


CD 1031 


CC 102S 


CD 1032 


CC1023 


CD 1033 



Shipped First Class Airmail at no extr 
if you mention this ad. 

ON QUALITY CASSETTE * MANUAL 



ORDER PHONE 
(503)289-1133 



VISA' MostefCard 



ONLY 

s35 



*#- 



^tns 



SEND CHECK, MONEY ORDER OR NUMBER AND 
EXPIRATION DATE OF YOUR CREDIT CARD TO; 

WISFBW OPEBAITCGIMS 

395 N. Hayden Bay Drive, Portland, Oregon 97217 

'JeM-a/et/ (Sv #zee//e»ce imef i91K 

- IIS II ll • 1M «t URIY CUP. 

wmmmmm 




Try 

The Disassembler That 
Even Tracks Down DATA!!! 

NEW!!! VERSION 2 * ■ 

• Outputs fully labeled R.S. or APPARAT** EDTASM* - 
format code to display, printer, cassette or disk. 

• Loads programs from cassette or disk and 
displays main entry point. 

• Printer output fully paginated. 



■ Outputs " H37F7 DEFM 'Cass? ' 
DEFB 03H 
instead ot the meaningless "equivalent", 



X 



AB25 



LS.L 

H,C 

(HL).E 

(HL).E 



etc 



LD 

LD 

LD 

LD 

CCF 

JR NZ,$*5 

• Automatically identifies such data areas. 

• Relocates itself to any desired RAM area, up/down 
one byte or as many as required . 

• Runs on TRS--80 Model I (Level II) or Model III, 
16K or more, cassette or disk 

Toorder DIJoDfllO pnonel 5 -.3) 435-4480 
(M-F, 9 a.m. - 5 p.m. EST), or send check or money 
order for: 

#1354-12 (Model l/lll cassette) $34.95 

#1354-22 (Model III diskette). TRSDOS - 

format $39.95 

(U.S. Funds only) Add $2.00 shipping (U.S.) 
$5,00 (Foreign). $3.00 Additional on COD. Orders. 

Ohio Residents please ado 6 5% Sales Tax 



Professional Software for both Novice and Expert 




Pro/Am Software 
220 Cardigan Road 
Centerville, Ohio 45459 

Visa and Mastercard accepted 

tfVnen ordering na caro tncluae card number. <nte»Dank 
dumber expiration dale, your name adoiess and 
prione numoer 

• 260 



Put your 

in touch with 

IBM's universe 

Now you can have full IBM 
communications capability through 
Innovative Data Technology's 1/2" 
magnetic tape peripherals. 
Featuring industry-standard interfaces, 
rapid data transfer rates, full operating 
and command subsets and a wide , 
selection of models and configurations, 
IDT's magnetic tape subsystems 

provide economical and reliable 

data/program interchange, 
40M bytes of storage and 
disc back-up. All IDT sub- 
systems come complete and 
include tape transport, 
formatter, intelligent 
controller, computer resident 
coupler, cables, documentation "•' 
and software. But most 

ntly, they help put your 




TD-1012-3 

Tape 

Subsystem 




4060 Morena Blvd. • 



Eastern Regional Office: 

P.O. Box 1093 • McLean, VA 22101-1093 

(703) 821-1101 • TWX: (710) 833-9888 

IBM is a trademark of International Business Machines Corp. 
TRS-80 Is a trademark of the Tandy Corporation 



-See List of Advertisers on Page 323 
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GAMES 




by Gary Michaels 




member "Kings and Catapults"? Well, now you 
can enjoy that same kind of action on your 
Color Computer with this exciting variation. 



As an avid Dungeons & Dragons 
player and a semi-accomplished 
adventure fanatic, 1 was intrigued by 
William C. Adams' fantasy role- 
playing game, "Kings and Catapults" 
{80 Micro, February 1982, p. 232). 

Adams' program was written for the 
Model I or III. Since there are few ad- 
venture programs available for the Col- 



or Computer, I decided to try my hand 
at converting his program to Extended 
Color Basic. After many hours editing 
and reediting it, I believe I've come up 
with a reasonable facsimile, and added 
a few surprises along the way (see Pro- 
gram Listing 1). 

The Game 

Like its predecessor, Kings and 
Castles is a one- or two-player game in 
which each participant takes the role of 
a king. Each king commands a large ar- 
my of fierce warriors, a kingdom of 
civilians, an arsenal of cannon, and a 
number of infiltrators available for 
hire. Players can also acquire a catapult 



The Key Box 

Color Computer 
16KRAM 
Extended Color Basic 




which, if used properly, inflicts substan- 
tial damage. 

At the start of every war, each king 
has a large sum of money, which he uses 
to pay his troops, buy cannon, or hire 
infiltrators (at $10,000 each). In- 
filtrators are potentially the most deadly 
weapons at your disposal. If they sur- 
vive the opposing king's guards, they'll 
strike the king down, making you the 
victor. 

You can also claim victory if your 
opponent's castle loses all of its vul- 
nerable spots (hit points), or if you de- 
stroy all of his warriors. However, addi- 
tional men can be recruited from the 
civilian ranks. 

On occasion, your father (who is also 
a very powerful king) ships you aid in 
the form of money, warriors, cannon, 
civilians, catapults, or, if you're for- 
tunate, a sampling of each. 

The first ruler to overcome his oppo- 
nent five times becomes the victor, 
and is deemed the monarch of both 
kingdoms. 

Significant Changes 

On the surface, Kings and Castles ap- 
pears almost identical to its predecessor, 
but there are several significant 
changes. 

The opponents' names, accompanied 
by their ranks, appear in a scoreboard 
at the top of each title screen. This lets 
you know when you can afford to live 
dangerously and when it's time to in- 
filtrate to save your skin. 

Catapults are fired either at your op- 
ponent's men or his castle. 

The computer (in a one-player game) 
is now an extremely worthy opponent. 
In Kings and Catapults, it selected op- 
tions unavailable to it, such as attempt- 
ing to infiltrate when it had no spies left, 
causing it to lose a turn. This happened 
with alarming regularity, as the com- 
puter's moves were chosen by an 
'X = RND (4)' statement. In addition, it 
was unable to buy cannon when all its 
cannon were destroyed, or to hire civil- 
ians when its warriors were decimated. 
The latter often caused the computer to 
lose entire wars, making for an extreme- 
ly boring game. 

In this version, however, the com- 
puter chooses its options more method- 
ically. It fires cannon or catapults at 
your warriors or castle, not randomly 
but according to what causes you to lose 
more quickly. It no longer stupidly ad- 
vances troops into battle with only 200 
men left. It infiltrates when necessary, 
hires civilians when warriors are becom- 
ing an endangered species, and pur- 
chases cannon when supplies run out. 



Program Listing I. Kings and Castles. 

5 CLS:PRINT@160," I'M SETTING UP A SERIES OF BAT-TLEFIELDS WITH 
A RANUuM SEED GE-NERATOR, INDICATED BY THE NUM- BERS AT LOWER R 
IGHT. WHEN THEY STOP, WE'LL BEGIN. IT WILL BE A FEW MOMENTS, SO 

PLEASE BKAR WlTHME " 

10 'RNuGEN DEVISED BY CRAIG TOOKER, COL'S OH 

15 X=TIMER 

20 IFX>10000THENX=X/10:GOTO20 

25 FORZ=iTOX: Y=RNu(RND(X) ) : PRINT@505 , Z ; :NEXTZ 

30 'BY GARY MICHAELS, COLUMBUS, OH 43229, 614/476-0578 

35 CLt;AR(100) :>-LS: PRINT-KINGS AND CASTLES" : PRINT: PRINT" THE SCEN 

E IS SOMEWHERE IN THE DAMP, FOGGY REGION WHICH IS NOW KNOWN AS 

SCOTLAND, SOMETIME IN THE MIDDLE AGES . " : GOSUB815 

40 PRINT: SOUND180, 10: INPUT" WHO SHALL BE THE NORTHERN KING? (UP T 

EIGHT LETTERS) "; N$ : PRINT: SOUND220 , 10 : INPUT" AND THE RULER OF T 

HE SOUTHERN KINGDOM? (TYPE IN computer IF YOU WISH TO WAR AGA 

INST ME) ";S$ 

45 IFS$= n COMPUTER"THENGOSUB765:GOSUB765:PRINT@483,"*I WELCOME TH 

E CHALLENGE *"; :GOSUB765:GOSUB765 

50 ER=0:WR=0 

55 GuSUBb45:M5=0:M=RND(30000) : M=M+150000 :NM=M: SM=M 

60 R=0:R1=U 

65 X=RNu(10000) :NW=X+20000:X=RND(10000) : SW=X+20000 :N=RND ( 10000) : 

N=N+20000:S=RND( 1000 0) : S=S+200 00 : CN=50 : CS=500 

70 NC=RND(10000) :SC=RNu(10000) :I=RND(5) :Il=RNu(5) 

75 X=RND(100) :IFX<25THEN NS=1ELSE NS=0 

80 X=RND(100) : IfX<25THEN SS=1ELSE SS=0 

85 GOSUB725:Cl,S:PRINT@2,N$; : PRINT@18 ,S$; 

90 Q=w 

95 IF Nm<=0THEN NM=0ELSE NM=NM 

100 IF SM<=0THEN SM=0ELSE SM=SM 

105 IFNW<=uTHEN NW=0ELSE NW=NW: IFSW<=0THEN SW=0ELSE SW=SW:IF NC< 

= 0THEN Ni-=0ELSE N>_=NC 

110 IF S(^ = 0THEN SC = 0ELSE S(J=SC 

115 pRiNT@32 / n ************** ************** " :T$="*" :PRINT@0,T$ 

; :^RINT@11,WR;:PRINT@11,T$; : FRINT@13 ,T$ ; : PRINT@16 , T$ ; :PRINT@27,E 

R;:^RINT@27,T$; : PRINT029 ,T$ ; 

120 PRINT@96,"$ n NM:PRINT@112,"$"SM 

125 PRINT@128,"WAR'RS: " ; : IFNW<=0THEN46 5ELSEPRINTNW; : PRINT@144 , "W 

AR'RS:"; : It'SW<=0THEN47 0ELSEPRINTSW; : PRINT@16 , "HIT PTS : " ; :IFN< = 

THEN550ELSEPRINTN; : PRINT@176 , "HIT PTS : " ; : lFS<=0THEN555ELSEPRINTS 

130 IFCN<=0THENCN=0 

135 IFCS<=0THENCS=0ELSE140 

140 PRINT@192, "CANNON: "CN: PRINT@208 , "CANNON: "CS: PRINT@224 , "CIV 1 L 

NS:"; :1FNC<=0THENNC=0:PRINTNC; : GOT0145ELSEPRINTNC 

145 PRINT@240, "CIVILIANS: ";SC; 

150 PRINT@256, n SPIES: n ;I:PRINT@27 2, n SPIES:";Il:IFNS>=lTHENPRINT@ 

288, "CATAPULTS: " ; NS 

155 IFSS>=1THENPRINT@304, "CATAPULTS: ";SS 

160 IFT=0THENT=1:PRINT@480,N$" 'S TURN"; : GOTO165ELSEIFT=1THENT=0 : 

PRINT@480,S$" 'S TURN" ; : IFS$="COMPUTER"THENPRINT@499 , "DONT RUSH M 

E"; :GOT0285ELSE285 

165 PRINT@352,"F) IRE CAN. A) DVANCE QATAPULT H) IRE CIV. B) UY 

CAN. DNFILTRT R) ELEASE WARRIORS" : SOUND180 , 1 

170 A$=INKt;Y$:IFA$=""THEN170ELSECLS:GOSUB435:GOSUB475:GOSUB670:I 

FA$="F"THENl7 5ELSEIFA$="A n THEN215ELSEIFA$="C n THEN225ELSEIFA$="H" 

THEN245ELSEIFA$= n B"THEN265ELSEIFA$="I"THEN56 0ELSEIFA$="R"THENl90 

ELSE165 

175 CLS:PRINT"CANNON FIRED" 

180 IFCN<=0THENPRINT"NO CANNON LEFT, SIR" : CN=0 : GOTO540ELSEPRINT" 

FIRE AT HIS OASTLE OR HIS M) EN": PRINT 

185 A$=INKEY$: IFA$="C"THENPRINT"CASTLE" : GOSUB760 : GOT0195ELSEIFA$ 

="M"THENPRINT"MEN":GOSUB7 60:GOTO210ELSE185 

190 CLS:PKINT"RELEASING WARRIORS" : PRINT: PRINT"HOW MANY TO LET GO 

?": INPUT A: if A>NW THEN190ELSE NW=NW-A: GOSUB775 : PRINT"THEY ' RE ON 

THEIR WAY HOME!":GOTO540 
195 V=RND(3) :IFV=1THENPRINT"WAY OFF !": GOTO540ELSED=RND ( 5000) :S=S 
-D: PRINT" BOOM J !":PRINTS$" LOST" D" HIT POINTS!" :D=RND(100) :CS=CS-D 
: PRINT" AS WKLL AS"D"CANNON" : D=RND ( 99) 

200 SC=SC-D:± j KINT"ANd";D"CIVILIANS": IFSS<1THENGOTO540ELSED=RND ( 1 
0) :IFD<4THENPRINT"***AND YOUR CATAPULT !***": SS=SS-1 : IFSS<1THENSS 
=0:GOTO540ELSEGuTO540 
205 GOTO540 

210 V=RNli(3) : IFV=1THENPRINT"Y0U HIT A FIELD ! " : GOTO540ELSED=RND ( 5 
000) :SW=SW-D:PRINTS$" LOST"D"MEN 1 " : IFD>3000THEND=RND( 3000) :NW=NW 
-D:PKINT"BUT "N$"'S WARRIORS WERE TOO" ;: PRINT@192 , "CLOSE TO "S$" 
'S TROOPS. ":PRINTN$" LOST"D"MEN. " : GOTO540ELSEGOTO540 
215 CLS:PRINT"TROOPS ADVANCED" : PRINT: GOSUB800 

220 D=RNu (45 00) :SW=SW-D: PRINTS $" LOST"D"MEN, AND" : D=RND ( 4500) : NW 
=NW-D:PRINTN$" LOST"D"OF HIS" : PRINT"WARRIORS IN THIS BATTLE. " : GO 
TO540 

225 CLS: PRINT" CATAPULT FIRED" : IFNS<1THENPRINT: PRINT"YOU DON'T HA 
VE ONE!":GOTO540ELSEPRINT"FIRE AT HIS C)ASTLE OR HIS M)EN?" 
230 A$=INKEY$:IFA$= B C"THENPRINT"CASTLE n :GOSUB760:GOTO235ELSEIFA$ 
="M"THENPRINT n MEN n :GOSUB760:GOTO240ELSE230 

235 X=RND(10) :IFX=5THENPRINT"IT BACKFIRED 1 ": D=RND ( 1000) :N=N-D:PR 
INTN$" LOST"D"HIT POINTS !": GOTO540ELSEX=RND ( 2) : IFX=2THENPRINT"NO 

Listing 1 continues 
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Listing I continued 

T EvtJN CLOSE1":GOTO540ELSED=RND(11000) : S = S-D: PRINTS $"' S CASTLE L 

OST"D"HIT POINTS l":GOT05 40 

240 X=RND(3) :IFX<3THENPRINT"YOU MISSED! n : GOTO540ELSED=RND ( 11000) 

:SW=SW-D:PRINTS$" LOST"D"OF HIS WARRIORS ! n :GOTO540 

245 CLS:PKlNT n HIRING CIVILIANS" : PRINT 

250 IFN«-=0THENPRINT"NO ONE LEFT TO RECRUIT" : GOTO540 

255 PRINT"HOW MANY DO YOU NEED?" 

260 INPUT A: it' A>NC THENPRINT"THERE ARE ONLY"NC" ! " : GOTO540ELSE N 

C=NC-A:NW=NW+A:GOSUB785:PRINT"THEY'RE HEADING FOR THE FRONT! " : GO 

TO540 

265 CLS: PRINT" BUxING CANNON" : PRINT 

270 GOSUB7 80:PRINT"A LOUD HORN IS BLOWN BELOW. ONE OF THE MERCHA 

NTS ASKS HOW MANY YOU WOULD LIKE?" 

275 X=RND(100) :PRINT"CANNON COST $";X"EACH" 

280 INPUTA:A1=A:A1=A1*X:IFA1>NM THENPRINT" YOU DON'T HAVE ENOUGH 

GOLD, SIR!" :GOTO540ELSEPRINT"THE CANNONSMITH IS LOADING YOUR WAG 

ONS ! " : NM=NM-A1 : CN=CN+A: GOTO540 

285 PRINT@352,"F) IRE CAN. A) DVANCE C) ATAPULT H) IRE CIV. B) UY 

CAN. DNF1LTRT R) ELEASE WARRIORS" : SOUND220 , 1 

290 IFS$="COMPUTER"THENGOSUB815:GOSUB50 5:GOTO3 0ELSEA$=INKEY$:IF 

A$=""THEN290ELSECLS:GOSUB50 5:GOSUB67 0:IFA$="F"THEN3 20ELSEIFA$="A 

"THEN3 65ELSEIFA$="C"THEN37 5ELSEIFA$="H"THEN3 95ELSEIFA$="B"THEN41 

5ELSEIFA$="I n THEN5 80ELSEIFA$="R"THEN2 95ELSE285 

295 IFS$="COMPUTER"THEN290ELSECLS:PRINT"RELEASING WARRIORS" : PRIN 

T:PRINT"HOW MANY ARE LEAVING?" : INPUT A: IF A>SW THEN295ELSE SW=SW 

-A:GOSUB775:PRINT"THEY'RE GLAD TO GO HOME ! " : GOTO540 

300 IF NS> = 1AND SW<11000AND SO = lTHEN310ELSEIFSW<8000AND SC>=1TH 

EN310ELSEIF Ct><lAND SM>4999THEN315ELSEIF NS> = 1AND SW<11000AND SM 

>9999ANU I1>=1THEN580ELSEIFSW<8000AND SM>9999AND II >=1THEN580ELS 

EIF NS>=lANu S<11000AND SM>9999AND II >=1THEN580ELSE305 

305 IF S<8000ANli SH>9999AND II > = 1THEN580ELSEIF NWO000AND SW>600 

0THEN365ELSEIF SS>=lTHEN375ELSEIF CS>=lTHEN320ELSE365 

310 IFSW<11000THEN D=11000 : X=D-SW: IFSOX THENCLS : PRINT"HIRING"X" 

CIVILIANS ":SW=ll000:SC=SC-X:GOSUB785:GOTO540ELSEIFSW<8000ANDSC>5 

0THENCLS: PRINT" HIRING "SC "CIVILIANS n :GOSUB7 85 : SW=SW+SC : SC=0 : GOT05 

40ELSE315 

315 IFCS<1ANUSM>5000THEND=RNU(50) : A1=D*100 : CS=CS+100 : SM=SM-A1 : CL 

S:PRINT"BUYING 100 CANNON AT $"D" EACH . " : GOSUB7 80 : GOTO540 

320 CLS:PKlNT"CANNON FIRED" 

325 IFCS<=0THENPRINT"YOU HAVE NONE LEFT" : GOTO540ELSEPRINT" AT HIS 

M) EN OR HiS C)ASTLE?" : PRINT 

listing 1 continues 



A legend now appears at the top of 
the screen notifying you and your oppo- 
nent which option the other has chosen. 
(Previously it was difficult, especially 
when battling against the computer, to 
ascertain just how your men or castle 
were destroyed.) 

Floods and plagues, which occur 
from time to time and inflict a tremen- 
dous amount of damage, now cannot 
occur when either king has fewer than 
10,000 warriors or hit points, so battles 
must be decided by head-to-head com- 
bat. Although this is unrealistic, you'd 
be surprised at how tedious it was previ- 
ously to lose battles because of a devas- 
tating plague. This was particularly an- 
noying to the Northern ruler, because if 
both kings' castles were wiped out, the 
Northern king always lost. 

Infiltrators must fight a minimum of 
two guards to kill the opposing king — it 
was much too simple to fell a lone guard 
in Kings and Catapults. 

Sound effects are added to each 
phase of the battles. They include 
"We're In The Money" for payday, 
"Taps" for either king's demise, 
"Jaws" for floods, "The Love Boat 
Theme" when fathers ship aid, the 
Wizard of Oz's guard song ("Ohh-ee- 
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Listing I continued 

33 IFS$="COMPUTER"THEN3 35ELSEA$=INKEY$:IFA$=""THEN33 0ELSEIFA$= n 

C"THEN340ELSEIFA$="M"THEN355 

335 IF N<NW THEN340ELSE355 

340 PRINT"CASTLE":GOSUB760:V=RND(3) : IFV=lTHENPRINT n WAY OFF!":GOT 

O540ELSED=RND(5000) : N=N-D : PRINT"BOOM ! " : PRINTN$" LOST"D"HIT POINT 

S!":D=RND(100) : CN=CN-D: PRINT" AS WELL AS "D" CANNON" : D=RND ( 99) 

3 45 NC=NC-D:PRINT"AND";D n CIVILIANS":IFNS<lTHENGOTO5 40ELSED=RND(l 

0) :IFD<4THENPRINT n ***HE HIT YOUR CATAPULT 1 ***": NS=NS-1 : IFNS<1THE 

NNS=0ELSE NS=NS:GOTO540ELSE540 

350 GOTO540 

355 PRINT"MEN":GOSUB760:V=RND(3) :IFV=1THENPRINT"Y0U HIT A FIELD! 

n :GOTO5 40ELSED=RND(500 0) : NW=NW-D: PRINTN$ n LOST "D" MEN 1 " : IFD>3 000T 

HEND=RND ( 3000) :SW=SW-D: PRINT n BUT n S$"'S WARRIORS WERE TOO";:PRIN 

T@192, "CLOSE TO "N$"'S TROOPS .": PRINTS $" LOST"D"MEN . " 

360 GOTO540 

365 CLS:PKlNT"TROOPS ADVANCED" : PRINT: GOSUB800 

370 D=RND(4500) : NW=NW-D: PRINTN$" LOST"D"MEN, AND" : D=RND ( 4500) : SW 

=SW-D:PRINTS$" LOST"D"OF HIS TROOPS" : PRINT" IN THIS BATTLE. " :GOTO 

540 

375 IFS$="COMPUTER"ANDSS<1THEN290ELSECLS:PRINT"CATAPULT FIRED": I 

FSS<J.THEN± J RINT:PRINT"YOU DON'T HAVE ONE" : GOTO540ELSEPRINT"FIRE A 

T HIS C)ASTLE OR HIS M)EN?" 

380 IFs$="COMPUTER"AND N<NW THENPRINT"CASTLE" : GOSUB760 : GOT03 85EL 

SEIFS$="COMPUTER"THENPRINT"MEN":GOSUB760:GOTO390ELSEA$=INKEY$:IF 

A$="C"THENPRINT" CASTLE" : GOSUB760 : GOT03 85 ELSEIFA$="M"THENPRINT"ME 

N" :GOSUB760:GOTO390ELSE380 

385 X=RND(10) :IFX=bTHENPRINT"IT BACKFIRED 1 ": D=RNU ( 1000) :S=S-D:PR 

INTS$" LOST"D"HIT POINTS !": GOTO540ELSEX=RND ( 2) : IFX=2THENPRINT"NO 

T Evh'N CLOSE! " : GOTO540ELSED=RND ( 11000) : N=N-D: PRINTN$" 'S CASTLE L 

OST"D"HIT POINTS!" :GOTO540 

390 X=RND(3) : IFX<3THENPRINT"YOU MISSED I ": GOTO540ELSED=RND ( 11000) 

:NW=NW-D:PRINTN$" LOST"D"OF HIS WARRIORS !": GOT05 40 

395 CLS:PRINT"HIRING CIVILIANS" : PRINT 

400 IFtiC<=0THENPRINT"NO ONE LEFT, SIR":GOTO540 

405 PRINT"HOW MANY DO YOU WANT?" 

410 INPUTA:IFA>SC THENPRINT"YOU ONLY HAVE"SC"CIVILIANS I " : GOTO540 

ELSESC=SC-A:SW=SW+A:GOSUB785:PRINT"THEY'RE DONNING THEIR ARMOR!" 

:GOTO540 

415 PRINT"BUXING CANNON" : PRINT 

420 GUSUB780:PRINT"A TRUMPET'S BLARE COMES UP FROM THE VILLAGE. 

THE CANNONSMITH WANTS TO KNOW HOW MANY?" Listing I continues 



oh, Ee-ohh-oh") for troop advances, 
and "You're In The Army Now" for 
hiring civilians. 

I have also included a random seed 
generator. Since the Color Computer 
doesn't have one built in, each time the 
game loaded from tape, the first status 
listing gave the same number of war- 
riors, castle hit points, and civilians. 
North's father would always bring aid 
on his second turn, and it was always 
$23,302. 

Fortunately, a friend at a local Radio 
Shack store came to my rescue, writing 
the 'RNDGEN' subroutine that ap- 
pears in lines 5-25. This subroutine re- 
places a Random routine found in 
Model I or III programs. Without it, 
this program is useless. 

Possible Modifications For 32K Users 

As this program uses all but about 
500 bytes of the 16K Color Computer's 
memory, further changes are all but 
impossible for those with that system. 
But 32K owners may want to make 
these relatively simple modifications. 

Playing this game with female friends 
might elicit comments like, "Why does 
it always call me 'him'?" The remedy is 
to insert a question at the beginning of 
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ems, Ltd. is a leader in the Model III 
marketplace with our JFD-III Disc Controller. With 
thousands in operation, we have set new standards 
in controller performance and reliability. We bring 
these same high standards to the COCO, resulting 
in the highest quality disc controller system on the 
market. Compare these functions before you buy: 
/ / / 

• Price. $449 includes controller, first drive, disc " 
basic in ROM, and manuals. Just plug it in. 

• Never needs adjusting. Our exclusive Digital 
/ Phase Lock Loop Data Separator and Digital Pre- 

comp Circuit eliminates the 3 adjustments found 
on other controllers. / 

• High quality standard production disc drives. For 
- improved service and reliability. Tandon & Teac 

drives provide twice the read sensitivity that the 
drives found in other disc systems do, and hold 
their alignment far longer. / 

• Gold-plated card edge connectors thn 

• Software compatible with Radio Shack 
Basic, Flex, and OS/9. / 
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Program Listing 2. Instructions 

5 PM0DE3,1:PClS:SCREEN1,1 

10 DRAW"BM12,156U100L5U10R10D5R10U5R10D5R10U5R10D5R10U5R10D10L5D 

10 0BM20,51E22F22BM42,29U20R20G3F3L20":PAINT(42,35) , 8 , 8 : PAINT ( 6 3 , 

50) ,8,8:PAINT(22,50) , 8 , 8 : PAINT ( 45 , 11) ,3,8 

15 CIRCLE (42,66) , 10 , 8 ,1 , . b , 1 : DRAW n BM32 , 6 6D15R20U15" : PAINT ( 42 , 66) 

,3,8 

20 FORX=1TO500:NEaT 

25 DRAW"BM182,156U100L5U10R10D5R10U5R10D5R10U5R10D5R10U5R10D10L5 

Dl 00BM190,51E22F22BM212,29U20R20G3F3L20BM20 2, 66D15R20U15": CIRCLE 

(212,66) ,10, 8,1,. 5,1: PAINT (214, 10) , 3 , 8 : PAINT ( 212 , 3 5 ) , 8, 8: PAINT (1 

92,50) ,8,8:PAINT(233,50) , 8 , 8 : PAINT( 212 , 66) ,3,8 

30 FORX=1TO500:NEaT 

35 DRAW"BM7 2,7 9R10D5R10U5R10D5R10U5R10D5R10U5R10D5R10U5R10D5R10U 

5R10BM112,126D30R3 0U30": CIRCLE (127, 126) ,15 , 8 , 1 , . b , 1 : PAINT ( 127 , 12 

6) ,8,8:FORX = 1TO500:NEXT:DRAW"BM0,156R255D25L255U25* , :PAINT(127,17 

5) ,2, B 

40 FORX=1TO2000:NEXT:PAINT(0,0) ,3 , 8 : FORX=1TO2000 : NEXT: PAINT( , 0) 

,8,l:FORX=lTO2 00 0:NExT:PAINT(8,47) , 8 , 2 : PAINT ( 2 , 17 0) ,3 , 8: F0RX=1T0 

500:NExT 

45 PAINT (0,0) ,3,3:DRAW"BM16,16D30BM16,31R15E15G15F15BM56,16D30BM 

66,4bU30F3 0U3 0BM116,36R20D10L30U3 0R30D5BMl7 6,16L30Dl0R3 0D20L30": 

FORX=lTO500:NExT:DRAW"BMl6,92Ul5El5F15D15BM16,77R3 0BM56,92U30F3 

U30BM96,92U3 0R15BM96,92R15": CIRCLE (111, 77) ,15, 8,1,. 75, .25 

50 FORX=1TO500:NEXT 

55 DRAW n BM42,108L26D3 0R26BM50,13 8U17El3F13D17BM110,108L26Dl0R26D 

20L26BH118,108R26BM131,108D3 0BM152,108D30R26BM206,108L20D30R26BM 

209,123L23BM2 46,108L26D10R26D20L26BM50,123R26":FORX=1TO50 0:NEXT: 

DRAW"BM57,170F10E10F10El0F10E10F10E10F10El0F10El0Fl0E10 n 

60 DRAWBM57, 17 0F21BM197 , 170G21" : PAINT (127, 185) , 4 , 8 : CIRCLE ( 127 , 1 

80) ,40,4, .5 ,.5,1:PAINT(127,175) ,1 , 8 : DRAWBM125 ,163U9L5U4R5U5R4D 

5R5D4L5D9":PAINT(127,15 5) , 4 , 8 : FORX=1TO200 : NEXT 

6 5 GUT07 5 

7 FORL=99T0255STEP2:SOUNDL,l:NEXT:RETURN 

7b CLS:PRINTia43,"K I N G S" : PRINT@109 , "A N D" : PRINT@169 , "C AST 

L E S" :GOSUB70:PRINT@257 ," A FANTASY ROLE-PLAYING ADVEN- TURE 
GAME WHICH PITS TWO KINGS AND THEIR KINGDOMS AGAINST ONE ANOTH 
ER.":GOSUB115 

80 FORL=200TO255:SOUNDL,1:PRINTI3420,"*BY GARY SMITH MICHAELS* n :N 
EXx:tuRL=200TO255:SOUNDL,l:PRINT@453 ,"*PREPARE TO DO BATTLE*":NE 
XT 

85 'BY GARY MICHAELS, 4561 BRIDGEWOOD CT., COLUMBUS, OH 43229, ( 
614) 4/6-0578; INITIAL IDEA FROM 'KINGS AND CATAPULTS', BY WILLI 
AM C. ADAMS, FROM 2/«2 ISSUE OF '80 MICROCOMPUTING 
90 GUTO120 

95 SOUND1 , 10 : SOUND3 , 5 : SOUND70 , 10 : SOUND110 , 20 : FORX=1TO50 : NEXT: S 
OUND11 , 5 : FORX=1TO20 : NEXT : SOUND11 ,10: SOUND90 , 10 : SOUND70 , 5 : SOU 
ND90 , 10 : SOUND70 , 10 : SOUND3 0,5 : SOUND70 ,15 
100 FORX=1TO500: NEXT: RETURN 

105 PRINT:PRINT: INPUT"PRESS <ENTER>. .."; A: RETURN 
110 INPUT-PRESS <ENTER>. . . n ;A:RETURN 
115 FORX=1TO2000:NEaT: RETURN 

120 cls: print" welcome to 'kings and castles'" :print@64," ruler 

s, you will each beuj.n with a kingdom, a large amount of mon 

ey, several thousand war- riors , 500 cannon, and a civi- lian p 

opulation." 

125 print" yuur ambition is to demolish your opponent by destr 

oying his castle's hit points or his war- riors, or by killing t 

he king himself. ":gosub105 

130 cls: print" you accomplish this by advan- cing your troops i 

nto battle, firing cannon, or by unleashing your catapult, if 

you're furtu- nate enough to acquire one." 

135 print" at the start of the war, you 

d infll- trators at your disposal, at a 

WHO Will SEEK OUT THE OPPOSING KING AND 

UDE THE KING'S PROTECTORS. ": GOSUB1 5 

140 CLS: PRINT" EACH OF YOUR WARRIORS IS PAID $2 EACH PAYDAY FOR 

FIUHTING. SHOULD YOU FIND THAT YOU NEED MORE SOLDIERS, HIR 
E CIVILIANS ATTHE SAME RATE. REMEMBER, YOU PAYNOTHING UNTIL PAYD 
AY." 

145 PRINT" IF, AT ANY TIME, YOU HAVE MORE WARRIORS THAN YOU CAN 
AFFORD TO PAY, THEY CAN BE RELEASED AND SENT HOME." 
150 PRINT" IF YUUR CANNON ARSENAL SHOULD DIMINISH, MORE ARE AVA 
ILrtBLE FuRPURCHASE. n :GOSUBl05 

155 CLS:PRINT" YOUR FATHERS ARE BOTH VERY POW-ERFUL KINGS AND, S 
INCE EACH ONE W/\NTS HIS SON TO WIN THE WAR, FROM TIME TO TIME 
THEY WILL SENDGIFTS OF MONEY, WARRIORS, REPAIRCREWS, CANNON, CIV 
iLiANS, SPIES, CATAPULTS, OR SOME OF EACH." 

160 PRINT" HOWEVER, THE BATTLES ARE NOT WITHOUT THEIR NATURAL 
HAZARDS, AS FLOODS AND PLAGUES OCCUR NOW AND THEN. THESE CAN BE 

DEVASTA- TING, SO TRY NOT TO HAVE TOO FEWWARRIORS AT ANY TIME." 
:GOSUB105 
165 CLS:PRINT@224," **YOU'D BEST DON YOUR ARMOUR** **I THINK I 

HEAR BaoPIPES!**" : GOSUB100 : GOSUB95 
170 CLS:PKINT" WHEN YOU SEE THE 'OK', PRESS THE POWER OFF BUTT 
ON — not the reset button — AND THEN PRESS IT AGAIN TO POWER 
UP AND TYPE INTHE FOLLOWING. ..": PRINT§160 , " YOU MAY WANT TO WRIT 

listing 2 continues 



HAVE A NUMBER OF ALLIE 
COST OF $10,000 EACH, 
KILL HIM — if THEY EL 



the program that asks which gender 
each player is, and have the computer 
change each affected statement accord- 
ingly, so that king becomes queen, he 
becomes she, and so on. 

Modify the program so that firing 
cannon at your opponent's warriors 
also knocks out a few of his cannon, as 
it does when you fire at his castle. 

When you fire your catapult at the 
opposing king's castle and he has a cat- 
apult, you should be able to destroy it. 
Perhaps you can use a statement like the 
one found in the 'Fire Cannon At 
Castle' lines. 

Add statements that allow fathers to 
send aid only when it is needed. That 
way, he wouldn't bring you 30,000 war- 
riors when you really need a castle 
repair crew. 

Calculate the number of opponent 
warriors killed according to which army 
is stronger. That way, if your troops are 



"Infiltrators must fight 

a minimum 

of two guards 

to kill the 

opposing king. 



larger than those of your opponent, you 
stand a better chance of destroying him 
by advancing your troops. 

The last is the most obvious — add 
graphics to the program. Artistic graph- 
ics would add immensely to the fun. 

Entering and Loading the Programs 

Due to the memory size of the 16K 
computer, the instructions are given in a 
separate program, which includes a col- 
orful graphics display (see Program 
Listing 2). Again, if you have 32K or 
more, you can add this program to the 
main program. If you own the basic 
16K computer, you can dispense with it 
altogether, if desired, but it includes the 
complete loading instructions which 
save you the trouble of referring back to 
this article. 

Enter and load the instructions pro- 
gram as usual. CSAVE the program on 
tape (or disk if you have 32K). Turn 
your computer off and then on again. It 
is important that you follow the above 
directions carefully. Do not attempt to 
simply type in 'NEW or use a delete 
statement. They will not work. 
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The main "Kings and Castles" pro- 
gram does not fit into the 16K Color 
Computer's normal memory even with 

a PCLEAR 1 statement because it uses 
approximately 14,100 bytes. So type in 
the following before attempting to enter 
or load the program: 

POKE25.6 (ENTER) 

POKE27,6 (ENTER) 
POKE29.6 (ENTER) 
POKE3 1,6 (ENTER) 

These instructions work in Color 
Computers with Basic 1 .0 and the newer 
Basic 1.1. I've been told the following 
can be used in 1 . 1 machines in place of 
all those POKE statements, but I can't 
confirm or deny it: 

POKE25.6 (ENTER) 

NEW (ENTER) 



". . . it is advisable 

to wipe out 

your opponent's castle 

as soon as possible. " 



Strategies for Battles 

Except for infiltrators, catapults are 
the most powerful weapons on the 
battlefield. They destroy up to 10,999 
warriors or castle hit points. The com- 
puter uses it when it has one, as you 
should. 

Catapults are always located in cas- 
tles. The only way to destroy them is to 
fire cannon at the castle. In light of the 
above statistics, it is advisable to wipe 
out your opponent's catapult as soon as 
possible. 

Cannon kill up to 4,999 men, or take 
out an equal number of hit points. They 
also destroy up to 100 opposing can- 
non, so five good hits on your oppo- 
nent's castle can send him to the 
cannonsmith, wasting one of his turns. 
Additional cannon cost from $1 to $99, 
depleting his cash reserve and possibly 
stopping him from using an infiltrator 
later. 

Payday comes around every 12th 
turn, during which each warrior is paid 
$2 from his king's coffers. So if you 
have 25,000 men, payday costs you 



Listing 2 continued 

E THIS DOWNON YOUR TAPE. IGNORE THIS IF YOUHAVE A 3 2K COCO." 

175 PRINT@298,"POKE 25,6 <ENTER>" : PRINT@330 , "POKE 27,6 <ENTER> 

":PRINT@362,"POKE 29,6 <ENTER>" : PRINT@394 , "POKE 31,6 <ENTER>" : 

PRINT 

180 GOSUB110:CLS:PRINT" THIS SETS ASIDE 14631 BYTES OF MEMORY. Y 
OU must TURN POWER Ot'F AND ON AGAIN BEFORE ENTERING POKE STAT 
EMENTS." : PRINT" DON'T JUST TYPE 'NEW OR USE A DELETE STATEMENT, 

AS YUU WILL Be REWARDED WITH A ?SN ERROR WHEN YOU RUN"; 
185 PRINT" THE PROGRAM. ": PRINT" IF YOU DO GET THE SYNTAX ERROR, T 
YPE IN THE FOLLOWING: ' PRINTPEEK ( PEEK ( 25) *256) ' 

THE NUMBER PRINTED WILL PROBAB-LY BE 170, BUT IF IT'S ANY NUM- B 
ER GREATER THAN 0, TYPE THIS: "-.PRINT 

190 GOSUB110:CLS:PRINT@5, " ' POKEPEEK ( 25) *256,0" ": PRINT: PRINT" MAN 
Y THANKS TO CHROMASETTE MAG-AZINE FOR THAT LITTLE TIDBIT. ": PRINT 
@160," OK, TURN ME OFF AND ON, ENTER THOSE POKE STATEMENTS, CLO 
AD THEMAIN PROGRAM, AND RUN IT. ": PRINT: GOSUB110 
195 END 



Line Description 

5-25 Random seed generator 

30-45 Introduction and set players' strings 

50-110 Initialize variables 

1 1 5 Scoreboard display 

120-155 Status display 

160 Determines and prints whose turn 

165 North's option display 

170 North's INKEY routine 

175-280 Carry out all of North's options but infiltration 

285 South 's option display 

290 South's INKEY routine 

295 South's 'release warriors' option 

300-31 5 Determine computer's move in one-player game 

320-430 Carry out balance of South's options but infiltration 

435 Checks for payday; if so, $2 per warrior is paid 

440-455 Determine how men react if their king cannot pay them 

465 North loses due to lack of warriors 

470 South loses due to lack of warriors 

475-500 North's father possibly sends aid 

505-530 South's father possibly sends aid 

535-540 'Press enter to continue' subroutines 

545 String data for status reports 

550 North loses due to lack of hit points 

555 South loses due to lack of hit points 

560-575 North's infiltration routine 

580-595 South's infiltration routine 

600 North's infiltrator kills Southern king 

605 South's infiltrator kills Northern king 

615 String data for ranks 

620-630 Check for, display, and sound North's rank 

635-645 Check for, display, and sound South's rank 

650-655 Another game? 

660-665 Display message if cither king has won five battles 

670 Determines if there is a plague or flood 

675-695 Flood subroutine 

700-720 Plague subroutine 

725-730 Check for either king not having enough warriors or hit points to continue 

740-745 Determine rank values 

755 Sound: Infiltrator killed a king 

760 Sound: Cannon or catapult fired 

765 Sound: Infiltrating 

770 Sound: "Taps"— A king is dead 

775 Sound: "Happy Days Are Here Again"— Releasing warriors 

780 Sound: Buying cannon 

785 Sound: "You're In The Army Now"— Hiring civilians 

790 Sound: "The Love Boat Theme"— Father shipped aid 

795 Sound: "We're In The Money"— Payday 

800 Sound: Guard song from "Wizard of Oz"— Advancing troops 

805-815 For ... Next loops 

Table 1. Kings and Castles line descriptions. 
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From unsolicited letters of testimonial 
I recently purchased your 
amber CRT for my Model III 
with anti-glare features. I 
seldom write regarding prod- 
ucts I've purchased for the 
computer, but I felt that your 
product warranted a short 
note. I am extremely happy 
with my new CRT. The color is 
great, and easy on the eyes, as 
you claimed. Your documenta- 
tion was excellent. I am by no 
means electronically inclined, 
but I had no problem with the 
installation. 

Just wanted you to know 
that I would recommend your 
product to anyone interested 
in upgrading their CRT. Thank 
you for your excellent service 
also. 

A. P. 

New Monmouth, NJ 
I have got my Orange CRT 
installed in my computer and it 
sure is a good tube. Now after 
looking at the screen for 8 
hours my eyes aren't falling 
out. Thank you very much for 
all the trouble you had to go 
through with my order. This 
tube works fine, and after a lit- 
tle getting used to the color I 
like it a lot better than green 
and 100% better than B/W. 
Your company is sure wonder- 
ful to do business with. You 
can be sure I will tell anybody 
that is looking for a replace- 
ment CRT where to get one. 
Also tell Donna thanks for all 
the help she gave me. ..she 
was right about the color; it is 
a lot better to look at once you 
get used to it. Again, thank 
you very much. 
K.L 
Saginaw, Ml 




LSIS's NEW SOFT-VIEW 
REPLACEMENT CRT 

FOR THE t 

FULL STORY, 
SEE PAGE 41 



Langley-StCIair 

^ Instrumentation 
Systems, Inc. ^462 

132 West 24th St., NY, NY 10011 
1-800-221-7070 
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$50,000. You begin with over $120,000 
so money is usually not a factor unless 
you run out of cannon or elect to use an 
infiltrator. 

While cannon or catapults are not 
guaranteed to hit their targets — you can 



". . . you don't 

want to opt 
for troop action 

if you 're 
low on men. . . " 



hit a field or your weapon might back- 
fire — advancing troops into battle is a 
sure killer. It's a little risky, as you and 
your opponent always lose men, up to 
4,999 in fact. So you don't want to opt 
for troop action if you're low on men, 



especially if you have no civilians left to 
hire. But it's an excellent option if your 
opponent is down to 500 men and you 
have 10,000. 

I like to save my infiltrators until I'm 
in deep trouble. Although they can win 
the game for you on the first move, they 
are much more useful when you're 
down to 1,000 warriors and 760 hit 
points. They're your last hope for vic- 
tory when you're down. 

One Final Note 

Due to space considerations, there 
are no remark statements in the pro- 
grams, but each line is covered in the 
line descriptions (see Table 1). Don't 
add additional spaces between charac- 
ters in the main program. ■ 



Write to Gary Michaels at 4561 
Bridgewood Court, Columbus, OH 
43229. 



Variable 


Description 


N$ 


Northern king 


S$ 


Southern king 


WR 


North's current rank 


ER 


South 's current rank 


M5 


Determines payday 


M 


Initial money amount for both kings 


NM 


North's current money amount 


SM 


South's current money amount 


NW 


North's warriors 


sw 


South's warriors 


N 


North's hit points 


S 


South's hit points 


CN 


North's cannon 


cs 


South's cannon 


NC 


North's civilians 


sc 


South's civilians 


I 


North's infiltrators 


11 


South's infiltrators 


NS 


North's catapults 


ss 


South's catapults 


T 


Monitors whose turn it is 


P 


North's pay figure 


PI 


South's pay figure 


Y = l 


North wins a battle 


Y = 2 


South wins a battle 


C$ 


Cannon 


w$ 


Warriors 


D$ 


Catapult 


HS 


Hit points 


M$ 


Money 


E$ 


Civilians 


WBS 


Rank (0) 


SA$ 


Rank (1) 


JL$ 


Rank (2) 


NB$ 


Rank (3) 


GW$ 


Rank (4) 


LBS 


Rank (5) 


R 


Number of times North's father has brought aid this game 


Rl 


Number of times South's father has brought aid this game 




Table 2. Kings and Castles variables list. 




THE MICRO COMPUTER RUSINESS 
WILL GROW FROM $10 TO $100 BILLION 




K 



. The micro computer business is predicted to grow from its present $10 billion to $100 billion before 1990! Imagine the 
possibilities this opens for you! No matter where you live, if you're starting up or presently in business, no other industry otters 
you more opportunities! 

Now, finally, all the inside information you need to secure a prosperous future in this dynamic industry is available in 
one place - THE COMPUTER ENTREPRENEUR MANUAL! An immense information source, compiled by our inquisitive research 
team, aided by a panel of experts and business people from all areas of the computer industry! 

We present the inside story of more than 100 lucrative computer businesses you can enter, where you'll find the real 
opportunities for the eighties: from one man operations like Programming Author, Word Processing Center or Consulting, to 
Systems House, Service Bureau, Computer Store etc! Many at little or no investment! All the invaluable facts and figures: 
How to start, Capital needs, Profit estimates and Margins, How to Sell and Market, How missing technical or business 
experience need not stand in your way, Source of Suppliers, etc! Details that could take years to find out on your own! 

We'll show you inside tricks, like how to never again pay retail for computer products and consumer electronics, even for 
one item - right now, while you're starting your business! How to get free merchandise and trade show invitations, etc. This alone 
will more than pay for the manual! You'll read actual case histories of other computer entrepreneurs, so you can learn from their 
mistakes, and profit from their success stories! Where you'll be one year from now depends on your actions today! Let us 
show you how to take the first crucial steps! 

Order now and take advantage of our limited introduction special, THE COMPUTER ENTREPRENEUR MANUAL, and a 
six month subscription to THE COMPUTER ENTREPRENEUR REPORT/NEWSLETTER ( so you're always up-to-date with the 
industry ) both for only $29.95! You must be convinced on how easy you can strike it rich in the micro computer business - or you 
may return the manual for a full refund within thirty days! USE OUR TOLL FREE NUMBER TO ORDER! 




EVERYTHING YOU NEED TO KNOW 

TO SUCCEED IN THE COMPUTER RUSINESS 

IS ALL IN THIS MANUAL! 



THE COMPUTER ENTREPRENEUR MANUAL has the answers lo all your questions about 
selecting, starting and succesfully running a computer business! There has never been such a 
comprehensive collection ol know-how and information about this business in one place! All the 
facts you need to plan and acheive your goals in easy-to-follow, step-by-step instructions! 
These are some of the 100-plus businesses covered in PART ONE of the manual, with the 
facts on How to start and run, Start-up Cost ( Even how to operate on a shoestring ), What profits 
to expect, Wholesale prices, Mark-ups, Suppliers, future outlook, case histories for each, etc: 

Systems House, Software Author ( who to sell to and who to avoid ) Service Bureau, Sort- 
ware Publisher ( How to find programs that sell. Word Processing Service. Consulting and Con- 
'sultant Broker ( use your skills or those of others, make S150 - S10O0 a day!). The incredible 
Games Business, Computer Store ( Franchises: Pro and Contra, or a low inventory store in your 
home! ), OEM. Hardware Mfg, Data base and Teletext Service ( big prospects! ). Used Com- 
puters, Repairs, Rent-A-Computer. Promote Fests and Trade Shows. Turnkey Systems. 
Bartering, Mail Order. Compile and rent mailing lists, Specialized Data Headhunting and Temp Help Service, Tech Writer Shop. Custom Engineering. The 
highly profitable Seminars and Training Business, and many more! 

Many new ideas and ground floor opportunities! Interviews and success stories on companies of all sizes! Privy info on the profits made: How some 
computer store operators net $100 - 5250,000! I irtle known outfits that made their owners millionaires, one of these low key companies, making simple boards, 
went from nil to S20,000,000 and 100 employees in four years! Programmers that make $300,000, Thousands of micro millionaires in the making, etc' 

Whatever your goal is - Silicon Valley Tycoon, or just a business at home - we guarantee you'll find a business to suit you - or your money back! 
PART TWO of the manual is loaded with the know-how and "streetfighting" savvy you need, both as a novice or business veteran, to get started, to stay 
and to prosper in the micro computer business! A goldmine of information in clear and easy-to-use instructions: How to prepare your Business Plan, Outside 
financing, The mistakes you must avoid, How to hire and manage employees, Incorporation ( when and how to do it cheaply ), Surviving bad times. Record 
Keeping, how to estimate your market before you start. Use multiple locations to maximize profits, how to promote and stay steps ahead of the competi- 
tion! How to get free advertising, free merchandise, free advice. Power negotiating with suppliers to double your profit margins, etc! Fven how to keep a 
present job while starting a business part time! 

Don't miss this opportunity to be part of this great industry - the next success story could be your own! Order the manual today! Part one and two. 
bound in a deluxe ring binder, where you can also collect our newsletter ( free for six months with the manual - a $32.50 value! ) - all for only $29.95! 



Order by phone (Credit cards only), or use the coupon: 

^549 
lllllll^^^^llllllllllllMllllllllllllllllllillllllllllllllllllllllllllllll 

= Mail to THE COMPUTER ENTREPRENEUR PUBLISHING CO. 

| PO BOX 456, Grand Central Station, New York, N.Y. 10163 

= Please send me THE COMPUTER ENTREPRENEUR 

E MANUAL, and the six month free subscription to 

E THE COMPUTER ENTREPRENEUR REPORT/NEWSLETTER. 

E All for only $29.95, plus $3 for postage/handling ( NY resi- 

E dents: add $2.64 for sales tax |. If I decide not to keep the 

E manual I mav return it within 30 days for a full refund. 





THE COMPUTER ENTREPRENEUR NEWSLETTER - 

ALL THE LATEST INSIDE BUSINESS NEWS! 

NOW! SIX MONTHS FREE WITH YOUR MANUAL! 

You're always attuned to the industry, and your 
manual kept up-to-date, with our newsletter! Each issue has 
the latest business news, ideas, new suppliers, our in- 
dispensible "watchdog" column on profits, discounts 
( don't miss mfg's promos, like recently, when top video moni- 
tor sold at $80 - that's half wholesale, one third of the retail 
price! ), the competition, the big deals, etc! Feature stories 
with start-up info and case histories on new micro busi- 
nesses! 

You'll get invitations to trade shows and conventions, 
the usage of our advisory service and our discount buying 
service for your purchases' 

You'll find many items m our newsletter that will save 
you the cost of your manual many times over! 



CALL TOLL FREE! 

CHARGE IT! 

Credit Card Orders 

( MC. VISA only ) 

accepted 24 hours/day 

1-800-227-3800 

Ask for extension 1135 

In California call 

1-800-792-0990 




= NAME: 



= ADDRESS: 



= CITY, STATE, ZIP: 

E ^7| Check or MO. enclosed Charge to Q VISA 

= CARD* — 

= Exp. Date: 



E SIGNATURE: 



■■&. 1982, THE COMPUTER ENTREPRENEUR 
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GAME 



by Stephen Mills 



LOAD 80 




Strip blackjack adapts the concept of 
strip poker to computer blackjack. The 
result is more interesting than either. 
The program shows off the graphics 
and sound capabilities of the TRS-80, 
as well as the computing power of 16K 
memory. 

The stakes involved are real, person- 
al, and legal in most places. Finally, the 
game is protracted enough to give play- 
ers a sense of involvement that strip 
poker doesn't provide. 

The rules of play are similar to casino 
blackjack. The computer acts as both 
bank and dealer. A player's stakes are 
chips allotted by the computer for each 
article of clothing worn. As dealer, the 
computer always draws last, draws on 
16 points, stands on 17, and wins pre- 



If you find that strip 
poker has lost its 
charm, liven up your next 
party with a new hit game. 



emptively with 21 points on the deal. 

The game observes the five-card rule; 
if a player has five cards totaling 21 or 
less, he wins automatically, as if a 
blackjack were drawn on the deal. 

An option is available to include 
jokers in the deck. If the computer 
draws a joker, all bets are lost; if a 
player draws one, the program random- 
ly decides the consequences. A player 





Table 1. Program Description 


10-75 


Packed string graphics 


85-140 


General initialization 


150-240 


Instructions 


250-370 


Initialization of game parameters 


380-750 


Main playing loop 


380-450 


Betting; cards are dealt into array 


460 610 


Individual player interactive processing 


620 640 


End-of-round display 


650-700 


Dealer's activities 



I'uble i continues 



can win or lose the round automatical- 
ly, or receive extra chips from the com- 
puter. There is also the less likely 
possibility of losing practically every- 
thing on a joker. 

Betting is more structured than in 
conventional blackjack. The computer 
awards a specific number of chips for 
each article of clothing. It maintains 
each player's clothing in a hierarchical 
order, with clothing worth the least 
number of chips, like shoes and sweat- 
ers, at the upper level and undergar- 
ments at the bottom level. 

Players can bet only according to 
this hierarchy. That is, shoes and 
sweater chips are bet first, undergar- 
ment chips last. 

A player's bet can range anywhere 
from zero chips to the total number of 
chips a piece of clothing is worth. So, if 
a player is wearing a sweater, he can bet 

Continues on p. 258 



The Key Box 

Model I and III 

32K RAM 

Cassette Basic 

Audio Amplifier Optional 
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Table I continued 



710-750 

770 

780 920 

930-960 

97a 1030 

1040 

1050 

1060 

1070 

1100 

1110 1140 

115(1 1260 

1280-1300 

1310-1320 

1340 1360 

1370-1380 

1390 

1400-1480 
1490-1520 
1520 

1530 1570 

1580-1600 

1610 1660 

1670 

1680-1730 

1740-1760 

1770 1920 

1930 

1940-1960 

2000-2040 



End of play; results and internal maintenance 

Subroutines 

Home cursor; video maintenance 

Player entry and stakes setting 

Player level informational routine 

Dealer's cards display 

Clears the on-screen instructions 

Displays play instructions 

INKEYS subroutine 

The current level of player Y is returned as S 

Displays card image 

Convert numeric card values to display form 

Extra chip round 

Player X loses one level 

Find next valued level of player X 

Random selection of one card 

Shuffling— initialize card matrix 

Executes card selection routine and stores it in 

player's hand 

Player's joker processing 

Deck display 

Clears hands 

Review contents of hands 

Video paging routine 

Process individual clothing questions and responses 

Title display 

Clothing query block for items common to both sexes 

Recompute current betting level 

Sound subroutines 

Evaluation of card points 

Error traps 

Chip equalization option routine 



System Modifications 



Multiple USR Functions 

Disk Basic and some tape operat- 
ing system enhancements provide 
multiple USR functions. To provide 
for this, change line 30 from: 

POKE16526,PEEK(Z+ l):POKE16527, 
PEEK(Z + 2) 

to: 
DEFUSR4 = Z! 

Change all occurrences of USR to 
USR4 in lines 1770-1920. 

Cassette Sound 

You can produce sound through 
an amplifier or a modified cassette 
system. The latter method requires 
turning on the cassette system relay. 
Program Listing 2 supports the 
former technique, and does not op- 
erate the cassette relay latch. 

You must make some changes to 
provide operation of the relay on the 



Model I. In line 100, one of the data 
elements is a space. The interpreter 
reads this as a numeric value of zero. 
Change the space to 4. 

In line 1400, find POKEZ1 + 
32,8. Replace the 8 with a 12. In lines 
1480and 1880, findPOKEZ! + 32,0 
and change the zero to 4. 

Memory Differences 

This program will run on memory 
in 16K, although you should prob- 
ably delete the instruction section in 
lines 140-240. The presence of any 
operating system utilities could make 
a critical difference. 

You can adjust this to some extent 
by modifying the amount of string 
space reserved in line 120. An op- 
tional 650 bytes allow the maximum 
number of players, but you can do 
with less. 

Another possibility is to add lines 
that delete 10-85 (90 and 95 are 
available). You must enter Run 
again after the graphics display. ■ 



r~i-',. 



IEEE-488 TO TRS-80* INTERFACE 

Everything needed to add powerful 
BASIC GPIB-488 controller capability to 
TRS-80 Model 1, 3 or 4, Level 2 or DOS 
with a minimum of 16K. 



4BB-80C 

For Model 3 or 4 
Operation 488-80B 

For Model 1 
Operation 



Model 488-80B or 488-80C Price: $375 
+ shipping, insurance & tax 

WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING 
LABORATORIES 

11 Neil Drive • Old Bethpage, NY 11804 

-203 



m 



Telephone: (516) 694-3370 



'Trademark of Tandy Corp. 
There is no atiiliation between Scientific 
Engineering Laboratories and Tandy Corp. or 
Radio Shack. 

mmgm 



"CC" RISER 




• Raises & tilts TV monitor for easy viewing 
•Allows CC keyboard to slip under monitor 

for more desk space 

• Matching silver-gray fiberglass 
•$37.50 + $2.50 shipping 

"80" DEMI-CASES 

• Models for LNW or MDX I & II Boards 
•$32.50 + $2.50 shipping 

N.Y.S. Residents Add 7% Tax •' 174 

SYRACUSE R&D CENTER 

Box 125, Dewitt, N.Y. 13214 

"Specializing in Electronic Packaging" 



MICRO DESIGN 



MICRO-DESIGN fon till smviti IRS 80 

kARCrWARf SLppORI. MiCRO DisiqN olfiRS tht 
IKS 80 OWNtR A COMpilll liNt ol (OMUOI 

sysuMs, pRiNifRs, tp^RAdis, disk ditivis & 

MLCh MORI. MiCRO DfSiqN Also Off CM AN 

AMA/iNqly low pRictd coMpliu Modi I 4 
sysiEM ihAi iNckdts dotbli disk cIrjvis an<I 
ihi coMplcu lvlOXtpqRAdfd"iviisclt"sysiiM. 

\ !s\ & M\su K( Mid A< ( ipud 



MICRO DESIGN 

101 Manchaca Road. Suite B Austin. Texas. 78 f 4 

1-800-531-5002 



Texas Res. Call 512-441-7890 



sSee List of Advertisers on Page 323 
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Continued from p. 2)6 

up to 3 points, the total allotment for 
sweaters. Whenever a player loses all 

the chips for a given level, he must sacri- 
fice the associated apparel. 

Winnings are always kept separate 
and are always bet and lost first. 

Sequence of Play 

The game begins with a full-screen 
display, followed by an option to dis- 
play instructions. The computer then 
asks if you have sound capability. This 
requires attaching the cassette AUX 
plug to a speaker. This program pro- 
vides a variety of interesting sound 
effects. If you do not use sound, the 
program skips the sound subroutines to 
circumvent tedious time delays. 

The computer prompts for the num- 
ber of players, the number of decks to 
use, and the number of jokers to add. 
You are allowed up to 10 players or you 
can play solitaire. The default is one for 
the number of decks and zero for the 
number of jokers. 

The option for a fast or slow game 
follows. This decision affects the num- 
ber of chips allocated for each player's 
clothing. 

The program asks each player for 
name, sex, and clothing worn. The 
clothing interview consists of yes/no 




Definitely THE BEST of the space 
games for the TRS-80MOD l/IM 

• 1,2 or 3 SIMULTANEOUS players! 

• Each piloting a seperate space ship 

• Incredibly realistic graphics! 

• Fast arcade responce! 

• Options individually selected! 

• Meteors • Blackhole Gravity 

• Flying Saucers • Objects & Mines 

• Bounce or Wrap-Around Screen 

• Weapons: Missiles or Lasers 

• Difficulty options selectable! 

• # of Saucers • Saucer Speed 

• Space Ship Power • Gravity Force 

• Meteor Speed • Fuel Supply 

• Weapon Supply • Laser Length 

• Sophisticated ship controls! 

• Variable thrust level • Rotation • Flip 

• Fire left or right barrel • Hyperspace 

• Cooperative or Competitive! 

• Numerous scoring options 

• 1 player can fly 2 ships - 1 with each hand! 

• Alpha & Trisstick compatable • Sound 

32K Disk $29.95 or 16K Tape $26.95 

Specify MOD I or III. 22 page manual included. 

California residents add 6% sales tax. 

Outside USA (except Canada) add $10.00 

Copyright 1983 by John McAfee 



r M. IANOV COBP 



FT SYSTEMS 
& CONSULTING 

PO BOX 60031 Santa Barbara. CA93160 



Integer Variables 

CI 



C2 

F 

LS 

N 



ND 
PC 

PO 



PS 
R 

S 

T 
Tl 
TA 
X 

V 

ZD 



Numeric value for the rank of a card (1 = ace, 

13 = king) 

Suit code for a card 

Free/e-play flag, used with one of the joker effects 
Long/slow game flag used by the chip allocation 
algorithm to compute value 

Used to construct the betting ranks table of player Y 
during initialization interview; 2nd-dimension pointer 
for arrays B and V 
Number of decks in play 
Number of players 

Players out. Tallied each round to check for an end- 
of-game condition. If not, the tally is continued dur- 
ing rounds to decide whether dealer must draw 
Position on CRT used for PRINT® 
Remaining cards in shuffled deck 
A flag used for making special adjustments to the B 
and V arrays 

Total point value of a group of cards 
Dealer's total 

Total number of aces possessed 
A miscellaneous local variable, sometimes used to 
identify a player (see text) 

Loop variable usually identifying the player being 
processed 
Flag for the use of sound 



Single-Precision Variables 

X! Loop variables for fractional decrementing 

Z! PEEK/POKE address pointer 



String 

A 

AS 



ec 

BD 

CBS 

CMS 

CIS 

NS 

S$ 

Z7$ 

ZDS 



Variables 

Item name during initialization interview 

His or Her depending on SX(Y) 

Player's name (same as B(Y,0)) or other temporary 

functions 

A screen width graphics bar 
— separator 

Deck or Decks depending on ND 
Graphic representation of the bottom edge of a play- 
ing card 

The middle of a card 
The top of a card 
The display format of a card's rank 
The display format of a card's suit 
String where data for the sound routine is stored 
String in which the machine-language sound USR 
routine is stored 



Arrays and Matrices 

B(PC, 1 0) String array. B(Y,0) is the player's name; other 

second-dimension elements are names of items worn 

C(PC,4, 1) Card hands. First dimension is the player (dealer 

= zero). Second dimension is card number. Third di- 
mension is rank (zero) and suit (one) of card 

CI (PC) Pointer to the player's active betting level 

D(13,4) Deck of cards by rank and suit; zero elements are not 

used 

I$(12) String array of packed graphics 

SX(PC) Sex code (zero = Female; one = Male) 

1 (PC) Carries player's point total from play to end-of-round 

results; can carry special values indicating no play, 
joker, and so on 

V(PC, 10) Value of items in the B array. The second-dimension 
zero element stores winnings 

W(PC) The wager each player makes on the round 

Table 2. Variables and Arrays 
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WITH ZBASIC 2.2. 




• ■ .;■;-. '$ v.-, /■■■<■■'■ ^:y. ;: : . 



BELIEVE IT OR NOT WE VE ADDED MORE 
NEW FEATURES to the ONLY INTERACTIVE 
BASIC COMPILER for the TRS-801 

1. Speed increases of 10-100 times are typical after compilation. 

2. Compiled code can be RELOCATED to run anywhere in memory. Code is even 
ROMable! 

3. ZBASIC 2.2 NOW SUPPORTS BOTH RANDOM and SEQUENTIAL DISK I/O. 

4. ZBASIC 2.2 is now a super tool for business programmers: RANDOM ACCESS 
FILES, and PRINT USING statements are supported as well as a HIGH PRECI- 
SION MATH package (with no rounding problems). 

5. Special BUIL T-IN MACHINE LANGUAGE COMMANDS to increase program 
operation by as much as 1000 times! Special commands are implemented lor 
fast memory searching (CPDR, CPIR). block memory moves (LDIR, LDDRj, in- 
putting and printing HEX numbers, inserting MACHINE LANGUAGE into 
COMPILED CODE, disabling and enabling interrupts, inverting memory, 1$ bit 
PEEKs and POKEs, and stack control, debug and much more. 

6. ZBASIC 2.2 compiles the ENTIRE PROGRAM into Z-80 machine language. 
(Not 8080 code or a combination of BASIC and machine language like some 
other compilers.) Clumsy LINKING LOADERS, and RUNTIME MODULES are not 
needed; ZBASIC 2.2 creates a ready to run MACHINE LANGUAGE program. 

7. NO ROYAL TIES imposed on registered ZBASIC owners. 

8. Typical COMPILA TION TIME is TWO SECONDS for a 4K program. 

9. Use TRS-80 Basic to write ZBASIC programs! 

10. Compile some existing programs with only minor changes. (BASIC program- 
ming experience is required.) 

11. Fully compatible with both the Model I and the Model III. Mod I compiled 
programs work on a MODEL III, and vice-versa. ZBASIC works with 
NEWDOS-80, NEWDOS+, DOSPLUS, LDOS, MULTIDOS, ULTRADOS, 
TRSDOS etc. (Not TRSDOS Mod I double density) 

12. BUILT-IN and much improved MUSIC and SOUND EFFECTS commands. 

13. Improved CHAINING for disk users. 

14. TIMES now available on DISK version. (Mod I only) 

75. ZBASIC 2.2 now has an INPUT @ command (similar to PRINT @). 

76. The TAB function will now tab 255 columns on a printer. (BASIC cannot tab 
past column 64.) 

17. NEWDOS 80 2.0 USERS can use the CMD "dos command" function! 
(DOSPLUS may use name "dos command") 

18. NEW and EASIER to use USR COMMANDS. 

19. New math functions to calculate XOR and INTEGER REMAINDERS of a 
DIVISION. 

20. Logical S TRING COMPARISONS are now supported. 

21. The disk commands INSTR, MID$ ASSIGNMENT are now supported on both 
DISK AND TAPE ZBASIC. 

22. DEFSTR is now supported. 

23. Eight disk files may be opened simultaneously; random, sequential or mixed. 

24. LINE INPUTS, is now supported. 

25. Invoke the compiler by simply hitting these two keys: ": - " 



ZBASIC 2.2 DOES NOT SUPPORT THESE 
BASIC COMMANDS: 

! ATN, EXP, COS, SIN, LOG, TAN, and exponentiation. (However, 
subroutines are included in the manual for these functions.) 

2. ERROR, ON ERROR GOTO, ERL, ERR RESUME. 

3. No direct commands like AUTO, EDIT, LIST, LLIST ETC, although 
these commands may be used when writing programs. 

4. Others NOT supported: CDBL, CINT, CSNG. DEFFN, FIX, FRE. 

5. Normal CASSETTE I/O. |ZBASIC supports it's own SPECIAL 
CASSETTE I/O statements.) 

6. SOME BASIC COMMANDS MAY DIFFER IN ZBASIC. For 
instance, END jumps to DOS READY, STOPjumps to BASIC 
READY etc. 

7. MEMORY REQUIREMENTS: to approximate the largest BASIC 
program that can be compiled in your machine (at one time), enter 
BASIC and type: PRINT (MEM-6500)/2. Remember, you can merge 
compiled programs together to fill memory. 

ZBASIC 2.2 SPEED COMPARISON DEMO 

To help give you an idea how fast compiled programs are, we have 

included this demo program: 

ZBASIC 2.2 DEMO PROGRAM 

Time to compile and run complete program :OMIN. 2 SEC. 

BASIC Execution speed MOD I, LEVEL II : 7 MIN. 34 SEC. 

ZBASIC Execution speed MOD 1, LEVEL II :0 MIN. 18 SEC. 

BASIC Program size (WITHOUT VARIABLES) : 895 BYTES 

ZBASIC Program size (WITHOUT VARIABLES) : 2 733 BYTES 
(Remember that the ZBASIC program includes an 1879 byte sub- 
routine package.) Program shown exactly as compiled and run in 
BASIC and ZBASIC. 

10 i ===.===== ZBASIC 2.2 EXAMPLE PROBRAM AND TIME TEST=======- 

£0 CLS:CLEPR100:DEFINT A-XjDEFSTR Z.-DIM PA (64, 24) , Z (50) : RANDOM 
30 AA=100:BB=-1000:Cr>3:DD=-3:EE=-9999:ST*«"START TIME "♦TIME* 
40 FOR I=1T0127STEP2 :FOR J-;47T01STEP-3 : XX=POINT ( I , J) :SET ( I , J) 
50 XX»'<I-J)/CC«<7+I+J> :XX*ABS(INT(RND(I»J)-AA>+7> :RESET<I,J) 
. 60 XX-PEEKd+J) : POKE 15360+1+ J, J J0UT255.J AND (3»J> lXX-INP<I) 
70 PB*=STRt(I+J> :BA*=LEFT*(AB«,2) :AA( 1/2, J/2) =VAL (BA«) +PP«3 
60 BA«=BA$+RIGHT*(BP«,RND(3> ) : XX = INSTR ( 1 , BA», "9") : XX=SGR ( I »J) 
90 BP*=MID*(BR*,2, 2) sMID* (BP«, 1 , 1 > =Z :IF XX THEN 100 ELSE CLS 
\m IF LEN(BR*>>3 UR GGN(XX)=1 RND RSC < Bfl« ) =32 THEN PRINT"+++"; 
110 IFPOS(0)>62 THEN TRON:TROFF:PRINT ELSE XX=NOT (RND (99) > +100 
120 P*=INKEY«:IF A*="Y" OR A«»"y" AND I>120 THEN PRINT-TRUE.." 
130 RESTORE iREADA, C, Z W> , D:GOSUB170:GOSUB170:GOSUB170:GOTO210 
140 NEXT :PRINT"*:";:NEXTI:CLS:PRINT9512,ST«,"ST0P TIME " 5 TIME» 
150 STOP' ============== END OF MAIN TEST LOOP =======— »-«==— 

160 DPTR 12345, -1, "TEST", -9999 

170 DN RND (6) GOTO 180,190,200,180,190,200 

1B0 RETURN 

190 RETURN 

?00 RETURN 

210 ON RND<9) GOSUB 180,190,200,180,190,200,180,190,200 

220 BO T 01 4tf 

NOTICE ZBASIC 2.0 OWNERS: you can upgrade your ZBASIC 2.0 for no charge, lust 
send us your original diskette/cassette and $15.00 with your registered serial number 
and copy of your invoice. We will send your ZBASIC 2.2 and updates to your manual 

VISA, MASTERCARD, AMERICAN EXPRESS, COD. ORDERS CALL. 

800 528-1 149 order line 

. ZBASIC 2.2 DISK VERSION AND MANUAL 89.95 

ZBASIC 2.2 TAPE VERSION AND MANUAL 79.95 

ZBASIC 2.2 DISK & TAPE VERSION AND MANUAL 99.99 

MANUAL ONLY. . . (APPLIES TO PURCHASE) 25.00 

SIMUTEK COMPUTER PRODUCTS INC. 

TECHNICAL QUESTIONS PLEASE CALL (602| 323-9391 
4897 E. SPEEDWAY, TUCSON, ARIZONA 85712 ^ l2 

TRS-80 is tm of Radio Shack, a Tandy Corp. 
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10 DIMI$(12) : 'STRIP BLACKJACK by S. 
15 I$(0)=" 

20 I$(l)=" 

25 I$U)=" 

30 I$(3)=" 

35 !$(«)=" 

40 I$(a)=" 

45 I$(6)=" 



Mills 



questions based on the player's sex. 
Typical and atypical (long underwear 
and corsets) apparel is included, but if 
the description does not seem appropri- 
ate, a player can press the = key at an 
analogous level and enter a more satis- 
factory description. 

Your answers affect the course of the 
interview; for example, a woman wear- 
ing a dress is not asked about pants. The 
program reviews your responses and al- 
lows corrections. 

After the interviews, the program dis- 
plays a comparative table of the players' 
stakes. The totals will vary, but the chip 
allocation algorithm produces roughly 
equivalent totals for each sex's typical 
casual attire. 

Play proceeds through rounds typical 



Program Listing i 
50 I$(7)=" 
55 I$(oj=" 
60 I$(y)=" 
65 I$(i0)=" 
70 I${11)=" 
75 I$(12)=" 

80 V-b847 7:W=l:X=l:Y=l:Z=l:FORX=0TO12:Y=PEEK(VARPTR( 
(VARPTR(I$(X) )+2) *256 

85 FORZ=wT063:READW:POKEZ+Y,W:V=V-W 

90 NEXTZ,X: iFVO0THENPRINT"Checksum error - data inc 
95 FORX=0TO12:PRINTI$(X) ; .-NEXTX: DELETE7 5-155: END 
100 DATA16 8, 191, 15 9, 143, 143, 143, 143, 143 ,143, 143, 143, 
3,143,143,143,191,189,3 2,32,32,32,3 2,32,32,32,32,32, 
,3 2,32,32,160,156,140,140,180,32,32,32,32,32,32,32,3 
32,32,32,32,32,32,32,32,32,170,191,149,168,185,32,32 
105 DATA32, 17 6, 17 6, 17 6, 176, 17 6, 176, 17 6, 176, 191, 191,1 
,17 6,17 6,17 6,17 6,176,32,32,32,32,32,32,32,32,168,151 
,17 6,184,180,17 6,144,32,32,32,32,32,32,32,32,32,32,3 
3 2,17 0,191,149,162,162,32,3 2,32,32,170,191,151,131,1 
110 DATA131, 131, 167, 183, 183, 183, 135, 131, 131, 131, 131, 
9,32,32,32,32,32,32,32,32,131,140,180,144,32,184,135 
,32,32,128,131,128,160,144,32,32,32,32,32,32,32,32,1 
,135,32,32,160,17 6,170,191,14 9,168,186,32,32,32,170, 
115 DATA14 9, 35, 32, 3 2, 3 2, 32, 32, 170, 191, 14 9, 32, 32, 32, 3 
76,32,160,186,135,170,14 9,32,160,158,131,171,144,168 
9,131,131,189,32,32,32,32,32,32,170,191,149,32,32,32 
1,191,149,160,180,32,17 6,17 6,172,163,163,172,35,32,3 
120 DATA3 2, 170, 191, 149, 32, 32, 32, 32, 32, 32, 32, 131, 131, 
131,131,131,32,32,32,131,129,13 0,187,135,131,131,131 
32,32,32,170,191,149,32,32,32,32,130,175,191,191,14 9 
49,157,147,189,179,182,163,141,17 2,32,32,32,170,191, 
125 DATA3 2, 3 2, 13 6, 188, 156, 14 0,14 0,1 8 8, 14 4, 136, 18 8, 15 
,32,160,188,144,142,133,184,156,140,172,17 6,136,188, 



I$(X) )+l)+PEEK 



orrect. " : END 

143,143,143,14 

32,32,32,32,32 

2,32,32,32,32, 

,32,32 

76,176,176,176 

,32,32,130,129 

2,32,32,32,32, 

63,131 

131,171,191,14 

,32,160,144,32 

70,191,149,130 

132,141 

2,32,138,183,1 

,183,32,160,15 

,32,191,191,19 

2,32,32 

131,129,32,32, 

,129,32,32,32, 

,128,129,128,1 

149,32 

6,128,32,32,32 

156,128,172,15 

Listing I continues 
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100% Radio Shack Equipment 

AVE A BUND 

Order Toll Free I -800-87 4-15 5 1 

FLA Residents 904-438-6507 collect 

PSON, OKI DATA, CITOH, TABCO Printer Switches 




704 W Michigan Ave; P.O. Box 8098 
Pensacola, FLA 32505 



^189 

TRS-80 is a trademark of Tandy Corporation 
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WORD 



DATA 



CopyArt II has earned the "Professional 
Software Programmers Association's 
Recommended Seal of Approval" 
Certification #1633 



s RECOMMENDED 1 

SEAL OF 

APPROVAL 

CEHTOS3 v/' 



&K 



°*te 



Columns 

Sorting 

Graphics 

Math 

Graphic Characters 

Justify/Proportional 

Super/Sub Script 

Underlining 

Change Character Size or 

Pitch Easily! 
Help Command 
Electric Webster Integration 
Headers/Footers 
Page Numbering 
Edit Basic Programs 



DOS Commands Like Dir, 

Kill & Free 
Hi-Res Graphics Supported on 

Most Printers with Capability 
Free Mail List Program Allows 

Merging Names with 

Form Letters 
Scripsit File Loader 
Imbed Printer Control Codes 
Block Move 
Find/Replace with Wildcard 

and Repeat 
Super Easy Manual & 

Reference Card! 



S* 



Add Graphics Easily! 

CUSTOMIZED PRINTER DRIVERS FOR 

Radio Shack LP II, V, VI, VIII, DMP2100, DMP100, DMP500, DMP600, 

Daisy Wheel II 
Epson MX-80, MX-80F/T, MX-100, FX-80 (all with or without Graftrax 80, 

Graftrax Plus, or Type III) Smith-Corona Daisy Wheel 

Okidata 80, 82A, 83A, 84, 92, 93 Brother HR-1 Daisy Wheel 

C. Itoh 8510, 1550, Prowriter Series, StarwriterF-10 series, Printmaster 
Others Supported. Call if yours is not listed. Printer must have mechanical ability 

to do some features. 



This Report Card was 
done for CopyArt 
Version One (since 
vastly improved to 
CopyArt II). 



"As a word processor 
with integral graphics 
capabilities, CopyArt is 
fabulous!" 



Dan Robinson, 
80 MICRO, Sept 82 



call toll free 



800-528-1149 




SPECIFY PRINTER WHEN ORDERING 

COPYART t49 '?5 Visa/MC/AMEX 

Extra printer drivers 19.95 

"ELECTRIC WEBSTER" . . 149.95 



Check/COD 



SIMUTEK 



Computer Products Inc. 

4897 E. Speedway Tucson, AZ 8571 2 
(602) 323-9391 ^sa 



Hardware Requirements TRS-80 Mod I, III or IV 

48K Memory One Disk Drive/Double Density Two Disk Drives/Single Density 



■ See List of Advertisers on Page 323 
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Listing I continued 

^i 7 ?^ 91 ' 149 ' 32 ' 32 ' 32 ' 32 ' 128 ' 32 ' 171 ' 191 ' 149 * 32 '32,32 r 151,183 f 166, 

132,191,136,137,187,186,32,32,32,170,191,149,32,32,32,128 

130 DATA191, 181, 176, 176, 159, 133, 32, 191, 149, 32, 32, 32, 32, 184, 18 j, 176 

,187,180,32,191,149,32,32,32,32,191,181,184,135,128,170,191,149,32 

,32,32,32,32,32,170,191,149,32,32,32,141,172,185,155,179,175,17 8,1 

74,170,32,160,32,170,191,149,32,32,32,128,191,149,32,32,191 

135 DATA14 9, 32, 191, 149, 32, 32, 176, 128, 191, 149, 32, 170, 191, 32, 191, 149 

,32,160,176,128,191,149,130,173,144,170,191,149,32,32,32,32,32,32, 

170,191,149,32,32,32,32,32,35,141,177,177,141,131,131,32,139,129,1 

70,191,149,32,32,32,130,131,131,131,131,131,32,130,131,131 

140 DATA131, 131, 131, 130, 131, 131, 32, 131, 131, 129, 130, 131, 131, 131, 128 

,130,131,131,128,131,131,130,143,143,143,143,143,143,143,143,175,1 

91,149,32,32,32,32,32,35,170,172,136,149,32,32,32,151,133,170,191, 

149,32,32,32,32,32,32,128,128,136,188,156,32,32,160,188,144 

145 DATA32, 128, 184, 156, 140, 172, 180, 136, 188, 156, 128, 172, 156, 132, 32, 

32,32,32,32,32,128,32,32,32,32,32,32,170,191,181,176,176,176,176,1 

76,184,187,187,187,185,176,176,176,177,176,186,191,149,32,32,32,32 

,32,32,32,32,128,191,149,128,184,183,176,187,180,128,191,149 

150 DATA32, 32, 32, 32, 191, 181, 184, 135, 128, 32, 32, 32, 32, 32, 32, 32, 128, 3 

2,32,32,32,32,32,32,130,131,131,131,131,131,131,131,131,131,131,13 

1,131,131,131,131,131,131,131,32,32,32,32,32,32,168,180,128,128,19 

1,149,128,191,149,32,170,191,128,191,149,32,160,176,128,191 

155 DATA149, 130, 173, 144, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 

32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32, 

32,32,32,32,128,131,131,131,131,32,130,131,131,128,131,131,129,130 

,131,131,131,129,130,131,131,128,131,131,32,130,131,32,32 



Program Listing 2 

10 DIMI$(12) : 'STRIP BLACKJACK by S. Mills 

80 CLS:FORX=0TO4:PRINTLEFT$(IS(X) ,30) : NEXTX : PRINTI $ ( 5) :PRINT@371 " 

;:PRINT§384,I$(6) ; : FORX=7T012: PRINTI$ (X) ;:NEXT 
85 PRINTCHR$(28) ; : fORX=0TO600 : NEXTX : FORX=0TO5 : PRINTI$ (X) ; :NEXT-FOR 
X=0TO300:NEXTX:PRINT@912,"A Symparanekromenoi Adult game" : FORX=lTO 
2000:NEXTX 

100 DATA205, 127, 10, 203, 124, 221, 33, 183, 127, 40, 7, 221, 117, 252, 221, 116 

Listing 2 continues 



of blackjack. Each player has a turn at 
the keyboard, with a display that shows 
the dealer's cards, the players' cards, 
and the stakes. 

Between rounds, players can examine 
the cards remaining in the deck, or re- 
view the hands of the current round. 
The rounds can continue until all but 
one player has lost everything. 

Theory and Strategy 

Ordinary blackjack is a tug-of-war to 
shift the available resources, the chips, 
to your advantage. In strip blackjack, 
you try to control a process of erosion. 

During a game, a player's stakes are 
limited to the clothing value, so the op- 
portunity to place a large bet is rare. 
Winning a few chips does not usually 
increase the potential bet, since the 
next bet is restricted to the winnings 
themselves. 

Other factors further increase the 
likelihood of a player losing. The dealer 
always wins on jokers; a player might 
lose. Also, winnings are good only for 
buffering your losses and for making 
immediate claims against another 
player. Winnings cannot increase indef- 
initely. The net result of winning more 
than 10 chips is to reduce, not increase, 
the total number of chips in play. 



'-_'^l it J.v$g4&:*i$ 
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RS204 



One size does not fit all . Our cases are designed for specific hardware con- 
figurations. When you putyour computer in our case, itfits hand-in-glove. 

Once your equipment is safely inside the attache-style carrying case, it never 
has to be taken out again . To operate, simply remove the lid and connect the 
power. To store your computer, disconnect the power, enclose your disks, 
working papers, and manuals in the compartments provided, and attach 
the lid. It's as easy as that. 



• AP106 

• P401 

• P402 

• P403 

• P404 

• P405 

• P406 

• P407 

• P408 

• P409 

• IB501 

• IB502 

• CC50 

• CC80 

• CC90 

• CC91 

• CC92 



CALL TOLL FREE: (800) 848-7548 



AmdekColorl, II or III Monitor 119 

Paper Tiger Printer (400/445/460) 99 

Centronics 730/737 & Radio Shack Printer 89 

Epson MX70 or MX80, Microline 82A Printer or Color 

Computer 89 

Epson MX100 Printer 99 

IDS560or Prism 132 Printer 109 

C. ltohStarwriter/PrintmasterF-10 Printer 119 

Okidata Microline 83A or 84 Printer 99 

C. Itoh Prowriter 2 Printer 99 

C. Itoh Prowriter (Apple Dot Matrix) or NEC PC8023 Printer . 89 

IBM Personal Computer with Keyboard 129 

IBM Monochrome Monitor 99 

Case Cart 7g 

Matching Attache Case (5") 85 

Matching Attache Case (3") 75 

Matching Accessories Case {5V*" Diskettes, Paper, etc.) ... 95 

5.25" Diskette Case (Holds 75 Diskettes) 49 




Computer Case Company, 5650 Indian Mound Court, Columbus, Ohio 43213 (614) 868-9464 
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f our price isn't already the lowest v.. 

. BEAT ANY PRICE IN 
MAGAZINE BY $1.00* 



OKIDATA 

Microline 80 334. 

Microline82 414. 

Microline 83 667. 

Microline 84 999. 

Microline 92 518. 

Microline 93 880. 

80/82a/92 Tractor 49. 

SMITH CORONA 

Daisy Wheel 599. 

C.ITOH 

Prowriter I (P) 363. 

Prowriter I (S/P) 540. 

Prowriter II (P) 699. 

Prowriter II (S/P) 766. 

EPSON 

MX-80 363. 

FX-80 535. 

MX-100 611. 

Graftrax Plus 59. 

BROTHER HR-1 

Daisy Wheel Printer ... 713. 
Tractor Feed 199. 

Printer Cable Ml/Ill 39. 

BY THE DOZEN 

Prowriter 35. 

Epson (MX-80 FX-80) 51 . 
Okidata 

(80/82/83/92/93) 39. 

Okidata 84 49. 



LYNX MODEM 300 Baud 

Complete with software and 
RS-232, ready to plug in and 
operate on Model I or 
Model III 229. 

HAYES SMARTMODEM 

300 Baud 219. 

1200/300 Baud 539. 

RS-232 for Model III .... 99. 

PRINTERMAID 

64K Spooler for Mod I or 
Mod III. Works with serial and 
parallel printers! $399. 



TIRED of EYESTRAIN on 
your present monitor? These 
monitors will work on your 
Model I and stop those 
HEADACHES! 

US1 12" AMBER 179. 

USI 12" GREEN 99. 

USI9"AMBER 139. 

BMC 12" GREEN 89. 

Model I Cable 15. 

MOD III MONITORS 

AMBER or GREEN . . $139. 
(Requires installation) 



MultiDOS 99- 

NewDOS80V.2 129. 

DOSPIus 129. 

TRSDOS1.3 29. 



MOD I DOSPLUS 
49.95 

while supply lasts! 



10-MEGABYTE 
HARD DISK 

Compete with LDOS for 
MOD I OR MOD III 
Specify Model 

Only $1499. 

JUST PLUG IT IN! 

PERCOM 

DOUBLER 

MODEL I USERS double 
the storage on your present 
disk drives! Installs in 5 minutes. 

JUST PLUG IT IN! 
Percon Doubler with 
DOSPIus 139. 



40 TRACK DRIVE 

for Mod I or III external 

249.00 COMPLETE! 

Includes Power Supply 

and Cabinet 

ONE 40 for MODEL III 

Drive Zero 

449.00 COMPLETE! 

Includes: PS, Hardware, 

Instructions & Drive 

TWO 40 TRACK DRIVES 

ModlllDRV0&1 

599.00 COMPLETE! 

Includes: PS, Hardware, 

Instructions & 2 Drives 



$14 

Mod l/l I I/Color 

w/inst. & 2-yr. warranty 

DISKETTES 

by100's 

Verbatim SS/DD 239. 

EctypeSS/DD 199. 



Smoke (holds 50) .... 19.95 

Plastic Box (10 boxes hold 10 

diskettes ea.) 19.95 



CALL TOLL FREE TO ORDER . . . 



TECHNICAL QUESTIONS CALL (602) 323-9391 




SIMUTEK 



SIMUTEK has hundreds of items IN 
STOCK! If you don't see it, call; we 
probably have it. 

ARIZONA RESIDENTS ONLY - ADD 
4% SALES TAX. Prices subject to 
change without notice. Personal checks 
require 3 weeks to clear. 



SHIPPING COSTS 

CONTINENTAL U.S.A. 

ONLY! 

AIR or FOREIGN 

CALL FOR COSTS 

C.O.D. is CASH or 

CERTIFIED CHECK ONLY 

and is S5 extra. 



send check, money Computer Products Inc. 

ORDER OR CREDIT 

CARD TO: 4897 E. SPEEDWAY TUCSON, AZ 85712 (602)323-9391 

VISA-MASTERCARD-AMERICAN EXPRESS ACCEPTED 

INVOICE SHIPPING 

"We'll beat any price in this magazine 
by $1.00. Just quote the ad with the 
page number. We reserve the right to 
refuse to meet prices below our cost. 



$20-$75 - 

$75-5200 - 

$200-$1000 

$1000up- 



-> $ 4.00 

4 $ 9.00 

•4 $19 00 

-> $22,00 



sSee List of Advertisers on Page 323 
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In ordinary blackjack, a player wins 
by gaining some of the dealer's resourc- 
es. The wins and losses of other players 
are irrelevant to your game. In this 
game, although you play cards and bet 
against the dealer, wins and losses are 
meaningful only in relation to the other 
players. 

Since playing is virtually guaranteed 
to erode everyone's stakes, each player 
is competing for the best status in rela- 
tion to the others. Winning is simply 
losing more slowly. 

Playing strategy— when to draw and 
when to stand— is identical to casino 
blackjack. You do have the option of 
reviewing the available cards. Since a 
good blackjack player attempts to keep 
track of this anyway, use the option; it 
eases the strain on your memory. 

Betting strategy is different. You are 
betting against the other players, so try 
to minimize your losses and maximize 
theirs. I recommend very conservative 
betting of your fundamental resources. 

The procedure for betting chips won 
(extra chips) is variable. There is little 
point in gambling for the extra chip 
round when the other players are bet- 
ting from a two- or three-chip rank. If 
they are at a more valued rank that you 
can eliminate by accumulating more 
than 10 extra chips, bet heavily off the 
extra chip rank. 

The Program 

The program's graphics display uses 
packed graphics strings to decrease 
memory requirements and provide fast 
execution. When you key in the pro- 
gram, you can either skip the graphics 
and go straight to Program Listing 2 for 
the substance of the program, or create 
the packed graphics array by transcrib- 
ing and running Program Listing 1, 
then adding the remainder, Listing 2. 

Listing 1 conceals the graphics in its 
data statements and POKEs them into 
the empty 1$ array. Packed graphics 
look strange when you list the program; 
the interpreter sees the graphics values 
as Basic statement tokens and translates 
them accordingly. Lines 15-75 of strip 
blackjack always resemble the chaos 
you get after a bad CLOAD. 

The machine-language USR subrou- 
tine for the sound effects is not packed 
in. The program carries it in the form of 
data statements (lines 100-110). No 
memory is ever protected for this sub- 
routine; at run time it resides in the 
string storage area. 

This is safe because the string vari- 
ables used are defined before any other 
strings, and never redefined. This as- 
sures that they will always reside at the 
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Listing 2 continued 

,253,201,221,117,254,221,116,255,219,255,230, ,95,221,86,251,221,7 

0,2 53,221,7 8,252,43,124,181,40,6,253,227,253,227,24,15 

110 DATA221, 10 2, 255, 221, 110, 254, 122, 7, 7, 87, 230, 3, 17 9, 211, 255, 3, 120 

,17 7,32,225,123,211,255,201 

120 CLEAR650:DEFINTC-Z:DEFSTRA-B:X=73:Y=5:Z=24:PC=0:Z!=0:ZD$=STRIN 

G$(X,Z!) :Z7$=STRING$(Y,Z) : Z=VARPTR ( ZD$) : Z ! =PEEK ( Z+l) +PEEK ( Z+2) *256 

:IFZl>J2767THENZ!=Z!-6 5536 

130 FORX=Zl TOZ!+72:READY:POKEX,Y:NEXTX:POKEl6526,PEEK(Z+l) :POKEZ! 

+7,PEEK(Z+1) :POKEl6527,PEEK(Z+2) : POKEZ I +8 , PEEK ( Z+2) : Z ! =PEEK ( VARPTR 

(Z7S) +1) +PEEK ( VARPTR (Z7$) +2) *256 : IFZ ! >3 27 67THENZ ! =Z ! -6 553 6 

140 BB=STRING$ (64,140) :BC= n 

":DIMD(13,4) :GOSUB1670:INPUT"DO YOU NEED TO READ THE RULES n ; A: IFLE 
FT$(A,1) <> n Y"THEN250 

150 PRINT@256, "STRIP BLACKJACK IS QUITE SIMILAR TO BLACKJACK, BUT 
INCLUDES SOMESPECIAL RULES. THE COMPUTER DEALS AND MANAGES ALL AC 
COUNTS. ATTHE BEGINNING OF EACH GAME, EVERY PLAYER MUST BUY CHIPS 

FROM ME. "; 
160 PRINT"THE NUMBER OF CHIPS A PLAYER GETS DEPENDS ON WHAT THAT P 
LAYER ISWEARING. I'LL FIX A PRICE ON EACH ARTICLE OF CLOTHING. P 
LAYERSMAY BEGIN WITH DIFFERENT BANKROLLS." 

170 PRINTBC'YOUR CLOTHES ARE RANKED FROM 'OUTER' TO 'INNER'. DURI 
NG A GAME, THE CHIPS YOU BET ALWAYS APPLY TO THE OUTERMOST ARTICLE; 

YOU CANBET AS MANY CHIPS AS YOU HAVE REMAINING FOR THAT ITEM.": GO 
SUB1580 

180 PRINT@256,CHR$(31) "YOU MAY ALSO HAVE EXTRA CHIPS WHICH YOU'VE 
WON FROM THE DEALER— THESE ALWAYS COUNT AS 'THE CURRENT RANK' AND 
ARE BET FIRST. ":PRINTBC n IF YOU LOSE ALL CHIPS AT THE CURRENT RANK 
(EXCEPT FOR 'EXTRAS') , YOU MUST SACRIFICE THAT ITEM." 

190 PRINTBC'YOU CANNOT ACCUMULATE MORE THAN 10 'EXTRA' CHIPS; ANYO 
NE WINNINGTHAT MANY EXTRA CHIPS IMMEDIATELY CLAIMS ONE ARTICLE OF 
CLOTHINGFROM ANOTHER PLAYER, AND CASHES IN 10 CHIPS .": GOSUB1580 
200 PRINT@256,CHR$(31) "THE DEALER PAYS OFF DOUBLE TO A PLAYER GETT 
ING '21' ON THE FIRSTTWO CARDS. A PLAYER DRAWING 5 CARDS TOTALLIN 
G '21' OR LESS IS AWINNER AUTOMATICALLY. THE DEALER BEATS LOWER S 
CORES AND TIES." 

210 PRINTBC" INSTEAD OF 'DOUBLING', A PLAYER MAY 'GO DOWN ' , TAKING 
1 CARD ANDBETTING ALL CHIPS ON THE CURRENT RANK. A WINNER GETS TH 
E NUMBEROF CHIPS REMAINING ON THE CURRENT ITEM . " : PRINTBC"TO 'GO DO 
WN' THE PLAYER MUST HAVE AN ACE OR A PAIR. " : GOSUB1580 
220 PRINT@256,CHR$(31) "THE GAME CAN BE PLAYED WITH 'JOKERS' (UP TO 

2 PER DECK). JOKERSIN THE DEALER'S HAND ARE AN AUTOMATIC WIN (LI 
KE '21'). BUT IN APLAYER'S HAND THEY HAVE WILD AND UNPREDICTABLE 
RESULTS." 

230 PRINTBC'THE "■AME USES SOUND EFFECTS, SO PUT THE CASSETTE'S ' AU 
X' PLUG INA SPEAKER JACK .": GOSUB1580 : PRINT@256 , CHR$ ( 31) "NEXT I MUS 
T ASK ABOUT THE PLAYER'S NAMES, WHAT THEY ARE WEARING, AND HOW THEY 

WANT TO PLAY.": PRINTBC" IF YOU FIND THAT MY ";CHR$(34); 
240 PRINT"CLOTHING"CHR$(34) " QUESTIONS DO NOT REALLY SUIT YOURATTI 
RE, REDO THE SERIES AND PRESS THE '=' KEY WHEN THE QUERY ISCLOSES 
T IN LEVEL AND FUNCTION. THEN SUBSTITUTE A DIFFERENT NAME, SUCH AS 
'BATHROBE' FOR 'DRESS', OR 'OVERALLS' FOR 'PANTS'. 

250 PRINTBC" ARE YUU USING SOUND?" : GOSUB1590 : IFQ$="Y"THENZD=1 : GOSUB 
1880 

260 INPUT" 

How many players" ; PC: IFPC<lTHEN260ELSEIFPO10THENPRINTPC"is too ma 
ny for a well-paced game. " :GOTO260 

270 X=1:DIMC(PC,4,1) ,B(PC,10) ,W(PC) ,T(PC) ,SX(PC) ,CL(PC) :IFPC>6THEN 
PRINTBC "THAT'S A BIG GAME! I RECOMMEND MULTIPLE DECKS. ":X=4 

280 ND=X: INPUT" 

HOW MANY CARD DECKS "; ND: IFNDOOR ND >6THENPRINTBC" YOU CANNOT HAVE" 

;ND; "DECKS! " :GOTO280 

290 IFNu=lTHENBD="DECK. " ELSEBD="DECKS . " 

300 INPUT" 

HOW MANY JOKERS"; J: IFJ<1THENJ=0 : PRINT" JOKER OPTION NOT USED."ELSEI 

FJ>ND*2THENPRINTBC"TOO MANY FOR"ND; BD : GOTO300 

310 PRINTBC" <F>AST OR <S>LOW GAME?" :GOSUB1590 : IFQ$="F"THENLS=1ELSE 

IFQ$="S"THENLS=2ELSE310 

320 GOSUB18 /0:CT$=CHR$( 190) +STRING$( 11,131) +CHR$( 189) : CM$=CHR$ ( 191 

)+CHR$(203)+CHR$(191) : CB$=CHR$ ( 17 5 ) +STRING$ ( 11 , 176) +CHR$ ( 15 9) :Y=1: 

IFPC=1THENA=" SOLITAIRE "ELSEA=" FIRST" 

330 GOSUB780:IFPC=1THEN370ELSEFORY=2TO PC : A="NEXT" : GOSUB780 : NEXTY 

340 GOSUB1880:GOSUB1670:PRINT"A REVIEW OF THE PLAYERS AND THEIR ST 

AKES: ":PRINTBC" ## RANKS" , "CHIPS" , "PLAYER ' S NAME 

350 FORX=lTO PC:U=0:W=U:FORY=0TO9:IFY=0ORV(X,Y) >0THENU=U+V(X , Y) :W= 
W-(Y>0) :ELSEY=10 

360 NEXTY:CL(X)=U:PRINTUSING"**#";X;:PRINTUSING" ##" ;W; : PRINTTAB ( 
16)USING"###";U;:PRINTTAB(36)B(X,0) : NEXTX : PRINTBB; : GOSUB1580 : GOSUB 
2000:IFQ$="Y"THEN340 

370 RANDOM:ONERRORGOTO1940:GOSUB1670:PRINT"The game begins." 
380 IFR<PC*3.6THENGOSUB1370 

3 90 F=0:PO=F:FORY=0TOPC:CL(Y)=0:GOSUB1530:IFY>0THENGOSUB1070:IFCL( 
Y) =10THENPO=PO+1 

400 NEXTY: IFPO>PC-l+ ( PC>1) THENCLS : PRINT@394 , CHR$ ( 23 ) ; "The game is 

over. 

" : END 

410 GOSUB930:GOSUB1870:FORY=1TOPC:PRINT@64,CHR$(30) ; : T ( Y) =0 : Z=CL ( Y 

) :IFZ = 10THENPRINT@2,B(Y,0) " IS OUT OF THE GAME. " ; : GOSUB1870 : FORT=l 

TO10 0:NEXTT:GOTO450ELSEW=V(Y,CL(Y) ) 

Listing 2 continues 



Listing 2 continued 

420 GOSUB770:V=1:PRINTB(Y,0) " HAS" ;W; "CHIPS . BET" ; : INPUTV: IFV>WTH 

ENPRINTV; "EXCEEDS YOUR CURRENT RANK i " ; : GOTO420 

430 IFV<0THENPRINTV; "IS AN INVALID BET. " ; : GOSUB1870 : GOTO420ELSEW( Y 

)=V 

4 40 IFV>0THENT=0:X=T:TA=T:T1=T:GOSUB1390:X=1:GOSUB13 90 
450 NEXTY:T=0:TA=T:GOSUB1340:C(0,0,0)=C1:C(0,0,1)=C2:GOSUB1340:C(0 
,1,0)=C1:C(0,1,1)=C2 

460 GOSUB970: IFT>0THEN470ELSET ( 0) =21 : T1=0 : GOTO620 

470 T(0) =T:Tl=TA:FORY=lTOPC: IFW(Y) =0ORCL(Y) =10THEN610ELSEPRINT@29 , 
CHR$(191) ; STRINGS (33, 143) ;CHR$(191) ; :PRINT@37," °;B(Y,0) ;"'S CHIPS 
"; :Z=9J:FORX=0TO9:IFV(Y,X)=0THEN4 90ELSEA=B(Y,X) : IFX=0THENA="WINNI 
NGS" 

480 PRINT@Z,CHR$(191) ; " " ; A; : PRINT@Z+34 ,CHR$ ( 191) ; : Z=Z+64 : IFV( Y , X) 
<23THENPRINT@Z-51,STRING$(V(Y,X) ,136) ; ELSEPRINT@Z-51 , STRINGS ( 21 , 14 

0); 

490 NEXTX:PRINT@Z,CHR$(143) ; STRINGS ( 33 , 140) ;CHR$(143) ; : PRINT@677 ,C 
HR$(b3);"- ";B(Y,0) ;"'S HAND" ;: PRINT@579 , "YOUR BET: "; STRINGS (W(Y) 



,1) :PS=642:GOSUB1090:C1=C(Y,1,0) :C2=C(Y,1, 



,136) ; :TA=0:T=TA 

500 C1=C(Y,0,0) :C2=C(Y,I 

1) :PS=647:GOSUB1090 

510 IFC(Y,0,0)=0ORC(Y,1,0)=0THEN1400 

520 IFT=11ANDTA=1THEN580ELSECC=1 

53 IFF=1THENFORL=1TO300:NEXTL:GOTO570ELSEGOSUB1050: IFA="S"THEN57 

ELSEIFA="H"THEN560 

540 IFCO1OR(C(Y,0,0) <>C(Y,1,0) AND TA=0) THENGOSUB1040 : GOSUB1850 : PR 

INT"YOU CAN'T 'GO DOWN ' 1 " ; : FORU=0TO800 : NEXTU : GOTO530 

550 W(Y)=V(Y,CL(Y) ) : PRINT@7 25 , "D" ; : PRINT@7 89 , "0" ; : PRINT@853 , "W" ; :P 

RINT@917,"N"; : PS=663 : X=3 : GOSUB13 90 : GOSUB1090 : IFC1=0THEN140 0ELSEFOR 

U=0TO99 9:NEaTU:GOTO57 
■56 CC=CC+1:PS=PS+6:X=CC:GOSUB1390:GOSUB1090:IFC1=0THEN1400ELSEIFT 

>21THENT=99 : GOTO57 0ELSEIFCC=4THENT=21 : GOSUB1040 : PRINT" 5-CARD ADVAN 

TAGE!"; : GOSUB1800 : F0RX=1T03 99 : NEXTX : GOTO570ELSE53 

570 GOSUB1930:IFT<22THEN600ELSEGOSUB1040:PRINT" — BUSTED1 — " ; : G 

OSUB1850:T(Y) =-1 : P0=P0+1 : F0RX=1T0999 : NEXTX : G0T06 

580 PRINT@808,"<< BLACKJACK >>";: GOSUB1900 : F0RU=1T0699 : NEXTU 

5 90 V(Y,0)=v(Y,0)+W(Y) : GOSUB1150 : V( Y, 0) =V( Y , 0) -W ( Y) : T ( Y) =22 : PO=PO+ 
1:T1=0 

600 POKEZ!+32,0:GOSUB970 
610 NEXTY 

620 Z=240:PRINT@100, "PLAYER", "TOTAL"; :PRINT@164," " ," "; : 

FORY=1TOPC:IFCL(Y)=10THEN650ELSEPRINT@Z-12,B(Y,0) ; 

630 IFT(Y)=22THENPRINT@Z," BJ" ; ELSEIFT (Y) =-lTHENPRINT@Z , "BUST" ; ELS 

EIFT(Y) <0THENPRINT@Z,"***";ELSEPRINT@Z,T(Y) ; 

640 Z=Z+64 

650 NEXTY:PRINT@Z-12,STRING$(19,95) ;: lFP0<PC,PRINT@Z+52, "Dealer dr 

aws on 16"; : PRINT@Z + 116 , " — stands on 17 . " ; :Cl=C(0 , ,0) :C2=C(0 , ,1 

) :PS=130:GOSUB1090 

660 X=2:PS=S78:T=T(0) :TA=T1:Y=0 

670 T(0) =T:T1=T:F0RU=1T0TA: IFTA>0ANDTl+10<22THENTl=Tl+10 

680 NEXTU: IFPO=PCTHEN710ELSEPRINT@24,T1; "TOTAL."; : 1FTK17THENPRINT 

@PS+7 , "Draws" ; ELSEIFX=2THENPRINT@PS+7 , "Stands" ; 

6 90 IFX>4ORT1>21THEN70 0ELSEFORU = 0TO3 99:NEXTU:IFTK17THENPRINT@24,T 
1; :GOSUB13 90:GOSUB1090:IFC1=0THENT1=21ELSEPS=PS+7:X=X+1:GOTO670 
700 IFT1>21THENPRINT@10,"* DEALER IS BUSTEDI * " ; : GOSUB1870 : Tl= 
0ELSEIFX>4THENPRINT@10,"* DEALER WINS ON 5 CARDS *" ; : Tl=22 : G0SUB18 

00 

710 FORZ=-200TO175:NEXTZ:PRINT@112, "RESULTS"; :PRINT@Z," "; :F 

0RY=1T0PC 

7 20 A=CHR$(8)+".":IFCL(Y)=10THEN7 25ELSEZ=Z+6 4:IFW(Y) <0THENPRINT@Z , 
"Jokered";ELSEIFT{Y) >Tl THENPRINT@Z , "wins" ; W( Y) ;A; : V( Y, 0) =V( Y , 0) +W 
(Y) :ELSEPRINT@Z,"Loses";W(Y) ;A; : V( Y,CL (Y) ) =V(Y,CL ( Y) ) -W(Y) 

725 W(Y) =0:NEXTY: IFPO6THENGOSUB1880 : GOSUB1580 

730 PRINT@57 6,CHRS(31) ; : fORY=lTOPC : IFCL ( Y) <10THENGOSUB1150 : IFV(Y,C 

L(Y) ) <1THENX=Y:Z=CL(Y) :GOSUB1270 

740 NEXTY:GOSUB1880:X=FRE(Q$) :PRINT@960, "PRESS: 1=EXAMINE ";BD;" 

2=REVIEW HANDS. ANY KEY TO PLAY. " ; : G0SUB15 90 : IFQ$=" l"THENGOSUB149 

0ELSEIFQ$="2"THENGOSUB15 40:GOSUB15 80 

750 GOTO380 

770 PRINT@0,CHRS(30) ;CHR$(191) " ";:RETURN 

780 B="":PRINTBC"NAME OF ";A;: INPUT" PLAYER" ; B: IFB= " "THENPRINTBC" Y 

OU MUST ENTER SOMETHING. ": GOTO780ELSEIFLEN ( B) >11THENPRINTBC"LET' S 

KEEP IT UNDER 12 CHARACTERS !" :GOTO780 

790 B(Y,0) =B:PRINTBC"SEX OF PLAYER (M/F)?" 

800 GOSUB1590:IFQ$="M"THENSX(Y)=1:AS=" HIS " : ELSEIFQ$="F"THENAS=" 

HER "ELSE800 

810 GOSUB1670:PRINTB;", PRESS 'Y' OR 'N' IN RESPONSE TO"CHR$ ( 222) " 

THE FOLLOWING QUESTIONS:" 

820 U=0:T=U:S=T:X=U:N=1:V=2:A="SHOES":GOSUB1610:V=3:A="A SWEATER": 

GOSUB1610:IFQ$="N"THENA= n A JACKET" : GOSUB1610 

830 IFSX(Y)=1THEN900ELSEA="PANTYHOSE":V=3:GOSUB1610:IFQ$="Y"THENX= 

N-1ELSEA="STOCKINGS":GOSUB1610:IFQ$="Y"THENX=-1ELSEA="TIGHTS":V=3: 

GOSUB1610:IFQ$="Y"THEN X=N-1 

840 V=/:A="A DRESS" : GOSUB1610 : IFQ$="Y"THENT=1ELSEA="A BL0USE":V=5: 

GOSUB1610:A="A SKIRT" :V=6 : GOSUB1610 : IFQ$="Y"THENT=2 

850 IFT=0THENGOSUB1680ELSEA="A SLIP" : V=8 : GOSUB1610 : IFQ$="N"THENGOS 

UB1660 

860 IFT<3ANDX<0THENA="A GARTER BELT" : V=2 : GOSUB1610 : IFQ$="N"THENA=" 

A CORSET" :GOSUB1610 

870 IFT<>3THENA="A BRA" : V=8 : GOSUB1610 : A="PANTIES" : GOSUB1610 : IFQ$=" 

Listing 2 continues 
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top of available memory, unmoved by 
the interpreter's string storage realloca- 
tion routines. 

The FRE(Q$) forces reallocation at 
the end of every round of play. This 
prevents interruption of the graphics 
during play, which use CHR$ and 
STRINGS in the preference to set and 
reset. 

The program lines are densely coded 
for speed and RAM economy. The 
functional breakdown by line number 
(Table 1) and the variable and array 
table (Table 2) should help in under- 
standing and customizing the program. 
In the nature of this program, execution 
is almost constantly in a For. . .Next 
loop, performing functions for each of 
the players. 

The variable Y is normally the loop 
variable identifying the current player. 
In cases where a subroutine cart be 
called for another player while the Y 
loop is still active (for example, 
1310-1320), the variable X is used. See 
the sidebar, "System Modifications," 
for the changes required for different 
system configurations. ■ 

Write to Stephen Mills at the Division 
of Business, Pfeiffer College, 
Misenheimer, NC 28109. 
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Listing 2 continued 

N-THENGOSUB1660 

880 IFX>0AND(T=4ORT=5)THENA=B(Y,S) :W=V(Y,S) : V(Y f S) =V(Y,X) :B(Y.S) =B 

(Y,X) :B(Y,X)=A:V(Y,X)=W 

890 GOTO910 

900 A="SOCKS":V=2:GOSUB1610:A="A SHIRT" :V=5:GOSUB1610:A="A T-SHIRT 

": V=3 : GOSUB1 61 : GOSUB1 6 80 : A= "UNDERWEAR" : V=8 : GOSUB1610 : IFQS="N"TH EN 

GOSUB1660 

910 B(Y,N)= ,,n :V(Y,N)=0:CL(Y)=l:PRINTBB:PRINTB n, S STAKES TOTAL" ;U; " 

ITEM" , "VALUE" , "ITEM" , "VALUE 

" , " " , " " , " " ! FORX=lTON-l : PRINTB ( Y f X) , : PRINTUSING" 

##";V(Y,X) ; .-PRINT" ",: NEXTX : PRINT: PRINTBC'ANY CORRECTIONS?" 

920 GOSUB1590: IFQ$="Y"THENA="THE SAME" : GOT07 80ELSERETURN 

930 GOSUB1670:PRINTBB;" ## CURRENT ITEM PLAYER"CHR$ ( 210) "CHIPS 

— "CHR$(210)" " : FORY=lTOPC 

940 Z=CL(Y) :IFZ=10THENZ=H:A=CHRS(143)+" NAKED! "+CHR$ ( 143 ) ELSEIF 

Z=0THENA=" EXTRA CHIPS " ELSEA=B ( Y , Z) 

950 W=V(Y,Z) :PRINTUSING" ## " ; Y; : PRINTA; TAB ( 20 ) B ( Y , 0) ; TAB ( 41 ) ; STR 

ING$(W,138) 

963 NEXTY:PRINTBB; : RETURN 

970 CLS : PRINT@10 , "DEALER SHOWS : " ; : PRINT@130 ,CHR$ ( 190) ; STRINGS (10,1 

91) ;CHR$(189) : PRINT0194 , STRINGS ( 12 f 191 ) :PRINT" " ; STRINGS ( 12 , 191 ) : 

PRINT" ";STRING$(12,191):PRINT" "; STRINGS ( 12 ,191) : PRINT" ";CHRS 

(175) ;STRINGS(10,191) ;CHR$(159) : PRINTSTRINGS ( 29 , 95) 

980 C1=C(0,1,0) :C2=C(0,1,1) : PS=143 :GOSUB1110 :GOSUB1100 

990 C1=C(0,0,0) :C2=C(0,0,1) :GOSUB1110 

1000 IFC(0,0,u>=UORC(0,l,0)=0THENPRINT@9,"** WILD CARD] **":GOSUBl 

800:GOTO1030 

1010 IFC( 0,1,0) >9ANDC(0,0,0)=1THEN103 

1020 IFC(0,0,0) >9ANDC(0,1,0)=1THEN1030ELSERETURN 

1030 PRINT@24,"** BLACKJACK ** " : GOSUB1880 : PO=PC : PS=13 : T ( ) =0 : T= 

0:T1=0:GOTO1100 

1040 PRINT@739,CHR$(214) ; : PRINT@808 , CHR$ ( 200) ; : PRINT@872 , " 

; : PRINT@ 936, CHR$( 200) ; :PRINT@739," " ; : RETURN 

1050 PRINT@739," INSTRUCTIONS " ; : PRINT@808 , " <H>IT ME";:PRI 

NT@872,"<S>TAND"; : PRINT@936 , " <D>OWN" ; :GOSUB1880 
1060 A=INKEY$:IFA= n H"ORA="D"ORA="S"THEN1600ELSE1060 
1070 S=CL(Y) : IFV(Y,S) >0THENRETURN 

1080 V(Y,S)=0:S=S+1:IFV(Y,S) >0ORS=10THENCL ( Y) =S : RETURNELSE1080 
1090 GOSUB1110 

1100 PRINT@PS,CT$; :PRINT@PS+64,CMS; :PRINT@PS+128,CM$; :PRINT@PS+192 

,CM$; :PRINT@PS+^56,CM$; : PRINT@PS+320 , CB$ ; : PRINT@PS+65 ,N$ ; :PRINT@PS 

+13 0,S$; : RETURN 

1110 IFC1=0THENNS=" JOKER" : S S = " *****": C2 = : TA=-99 : RETURN 

1120 IFC2=1THENSS="C "ELSEIFC2=2THENS$="H " ELSEIFC2=3THENSS="S "EL 

SES$="D " 

1130 IFC1=ITHENNS=" A" : TA=TA+1 : ELSEIFC1=11THENNS=" J " ELSEIFC1=12T 

HENN$=" Q "ELSEIFCl=13THENNS= n K " ELSEN$=STR$ ( CI) 

1140 IFCK10THENN$=N$ + " ": T=T+C1 : RETURNELSET=T+10 : RETURN 

1150 IFV(Y,0) <11THENRETURN' CLAIM ARTICLE FROM ANOTHER PLAYER 

1160 PRINTB(Y,0) ;" HAS" ; V(Y , 0) " EXTRA CHIPS .": PRINT: PRINT: GOSUB1900 

1170 V=0:FORX=1TOPC:GOSUB1890:IFSX(X) =1THENA=" HIS "ELSEA=" HER " 

1180 GOSUB1740:PRINTUSING"##. ";X; : IFX=YTHENGOSUB123 0ELSEIFZ=10PRI 

NTB(X,0)" ? ? ? 1"ELSEPRINT"MAKE ";B(X,0) n TAKE OFF" ; A;B ( X, Z) ; " . " 

1190 NEXTX: PRINTBC"MAKE SELECTION 1 TO";PC; 

1200 INPUTX:IFX<10RX>PCTHENPRINT@6 4,"TRY AGAIN"; : GOSUB1870 : GOTO120 



1210 IFX=YTHENGOSUB1250:Z=V+1:PRINTBC"OKAY, ";B(Y,0);" f ";:GOSUB12 

30:GOSUB1800ELSEGOSUB1740:GOSUB1280:GOSUB1820 

1220 V(Y,0) =V(Y,0)-10:RETURN 

1230 IFZ>1THENV=Z-1:PRINT"RECLAIM YOUR OWN " ; B ( Y , V) ; " . " ELSEPRINT"S 

ACRIFICE CHIPS." 

1240 RETURN 

1250 IFV>0THENV(Y,V) =5: IFCL(Y) >VTHENCL(Y) =V 

126 RETURN 

1270 IFCL(X) =0THENRETURNELSEZ=CL(X) 

1280 V(X,Z)=0:PRINTB(X,0) ;" TAKE OFF YOUR " ; : PRINTB (X p Z) " 1 ! 

1290 GOSUB1820: IFZ <10U=Z+1 : IFU>9 OR V(X,U) =0THENV(X , 0) =0 : U=10 : PRIN 

T"GET NAKED! " :CL(X) =0:PRINTBC; :GOSUB1820 

1300 IFCL(X) >wTHENCL(X) =U : RETURNELSERETURN 

1310 U=CL(X)+1 

1320 IFU=±0THENRETURNELSEIFV(X,U)=0THENU=U+1:GOTO1320 

13 40 C1=RND(R+D(0,0) ) :IFCK=D(0,0)THENC1=0:C2 = 0:D(0,0)=D(0,0)-1:RE 

TURN 

1350 C1=RND(13) :C2=RND(4) : IFD (CI ,C2) =0THEN1340 

1360 R=R-1:D(C1,C2)=D(C1,C2)-1:IFR>PC*3THENRETURNELSEGOSUB770 

137 PRINTBC"SHUFFLING";ND;BD:D(0,0)=J:R=52*ND+J 

13 80 FORK = lT04 : GOSUB176 : FORL=lTOl3 : D ( L , K) =ND : NEXTL , K : RETURN 

13 90 GOSUB1340:C(Y,X,0)=C1:C(Y,X,1)=C2:RETURN 

1400 F0RU=1T0299:NEXTU:CLS:P0KEZI+32,8:PRINT@146,CHR$(23) "* JOKER 

*" :PRINTBC;B(Y,0) :PRINTBC; :L=RND(10 0) 

1410 IFL>4THEN1440ELSEFORL=10TO1STEP-1:IFV(Y,L)=0THENNEXTL:GOTO145 



1420 PRINT"STRIP TO YOUR " ; B { Y , L) " 1 " : IFL>lTHENFORK=lTOL-l : V( Y ,K) =0 

:NEXTK:GOSUB1820 

1430 GOTO1480 

1440 IFL<50PRINT"AUTOMATIC BLACKJACK I ": GOSUB1900 :GOTO590 

Listing 2 continues 
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Listing 2 continued 

1450 IFL<65THENPRINT"YOU LOSE THIS ROUND. ": GOTO1480 

1460 IFL<75THENPRINT n FREEZE ALL HANDS" : F=l : GOSUB1880 : F0RL=1T0999 : N 

EXTL:GOTO53 

1470 L=RND(15) :V(Y,0)=V(Y,0)+L:PRINT"YOU GET" ;L; "EXTRA CHIPS. ":GOS 

UB1900:IFV(Y,0) >10THENPRINT"YOU WILL BE ABLE TO PLAY"CHR$ ( 204) "THE 

'EXTRA CHIP' ROUND." 
1480 FORL=1TO600:NEaTL:W(Y)=-1:PO=PO+1:T(Y)=-2:GOTO600 
1490 CLS:PRINT@74,"CARDS REMAINING IN YOUR";ND;BD 

1500 PRINT n RANKS CLUBS HEARTS SPADES DIAMO 
NDS" 

1510 FORCl=lTO13:GOSUB1110:PRINT n "N$; : F0RX=1T04 : PRINTTAB (X*13) ; ST 
RINGS (D( CI . ,X) ,132) ; : NEXTX : PRINT: NEXTC1 : IF J>0THENPRINT@10 , "YOU HAVE 
";D(0,0) "OUT OF"; J, -"JOKERS LEFT."; 
1520 GOSUB1 880 :FORX=0TO1 999: NEXTX: RETURN 
153 FORX=0TO4:C(Y,X,0)=-l:C(Y,X r l)=-l:NEXTX: RETURN 

15 40 GOSUB1670:A=STRING$( 9,140) +CHR$(188) : PRINTTAB ( 12) CHR$ ( 188) ;:F 
ORX=0TO4:PRINTA; :NEXTX: PRINT" "; :FORY=lTOPC: IFC(Y,0,0) <0THEN1550E 
LSEPRINTB(Y r 0) ; :GOSUB1560 

1550 NEXTY : Y=0 : PRINT"DEALER" ; : GOSUB156 : A=STRING$ ( 9 , 140) +CHR$ ( 143 ) 

: PRINTTAB ( 12) CHR$( 143) ; : FORX=lT05 : PRINTA; : NEXTX : RETURN 

1560 PRINTTAB ( 12) CHR$( 191) ;" " ; : FORX=0TO4 : IFC ( Y,X , 0) =-lTHENN$=" 

":S$=" "ELSEC1=C(Y,X,0) :C2=C(Y,X,1) : IFC1=0THENN$=" JOKER" : S$=" "EL 
SEGOSUB1110 

1570 PRINTN$;S$;" " ;CHR$ ( 191) ; " "; :NEXTX: RETURN 
1580 PRINT@974,"<PRESS ANY KEY FOR NEXT PAGE>"; 
1590 Q$=INKEY$:IFQ$=""THEN1590ELSEIFZD=0THENRETURN 
1600 POKEZi ,4:G=USR(-399) :G=USR(ASC(QS) AND15) : RETURN 
1610 W=LS*V:PRINTBC"ARE YOU WEARING ";A;" (Y/N) ?" 

1620 GOSUB15 90:IFQ$="N"THENRETURNELSEIFQ$="="THEN165 0ELSEIFQ$O"Y" 
THEN1620 

1630 IFLEFT$(A f 2)="A "THENA=RIGHT$(A,LEN(A) -2) 

1640 PRINT"I'LL ALLOW "B;W;"CHIPS FOR" ; AS ; A" . " : V{ Y ,N) =W: B ( Y ,N) =A: N 
=N+1:U=U+W: RETURN 

1650 INPUT"WHAT IS EQUIVALENT ARTICLE" ;Q$ : IFLEN ( QSX4THEN1650ELSEI 
FLEN(QS) >11THENPRINT"* BRIEFLY * " ; : GOTO1650ELSEA=Q$ : GOTO1630 
1660 IFN<3THENRETURNELSEU=U+.4*(V(Y f N-l) ) :W=V(Y,N-1)*1.4:PRINTBC"I 
N THAT CASE, I'LL INCREASE ";B"'S STAKE FOR"AS : PRINTB{ Y,N-1) " TO"W 
"CHIPS. " : V(Y,N-1) =W:RETURN 
1670 CLS:PRINT@148,"*- Strip Blackjack -* n : PRINT: RETURN 

16 80 A="PANTS":V=6:GOSUB1610:IFQ$="Y"THENT=5:S=N-1:GOTO173 

16 90 A="SHORTS n :V=5:GOSUB1610:IFQ$="Y"THENT=4:S=N-l:GOTO17 3 
1700 A="A SWIMSUIT":V=9:GOSUB1610:IFQ$="Y"THENT=3:RETURN 
1710 A="SLEEPWEAR":V=8:GOSUB1610:IFQ$= n Y"THENT=5:RETURN 
1720 PRINTBC'I ASSUME "B" IS EITHER SCANTILY CLAD . . . 

","OR HAS UNUSUAL, ATTIRE. ": IFN<2THENPRINTB" GETS 5 'EXTRA' POINTS 
— ": PRINTTAB (14) "THEN EVERYTHING COMES OFF! " : A="???" : W=5 : GOTO1640E 
LSEGOTO16 60 

1730 A="LONGJOHNS":V=2:GOTO1610 
1740 IFCL(X) >0THENZ=CL(X) :RETURNELSEZ=1 
1750 IFV(X,Z)=0ANDZ<10THENZ=Z+1:GOTO1750ELSERETURN 
1760 IFZD=0THENRETURN " 

1770 G=USR(-89) ;F0RX1=18T023STEP. 2 :POKEZl ,62 
1780 G=USR(CINT(X!) ) :G=USR(24) 

17 90 NEXTX 1 : FORX ! =1TO150 : NEXTX 1 : RETURN 
1800 IFZD=0THENRETURN 

1810 L=USR(-50) :POKEZI , 17 : FORG=lT04 : FORL=10TO1STEP-1 : L=USR( L) :NEXT 

L : FORL=lTOl : L=USR ( L) : NEXTL , G : RETURN 

1820 IFZD=0THENRETURN 

1830 POKEZI ,102:K=USR(-140) : FORL=10TO3STEP-1 : K=USR( L) :NEXTL: K=USR( 

-1000) :K=USR(2) 

1840 L=USR(-i00) :FURL=0TO80:NEXTL:FORG=10TO1STEP-1:G=USR(G) :NEXTG: 

F0RG=1T015 : L=USR ( G) : NEXTG: RETURN 

1850 IFZD=0THENRETURN 

1860 POKEZ 1, RND( 257) -1:G=USR( -140 0) :G=USR(16) :G=USR(0) :G=USR(16) :G 

=USR(0) :G=USR(18) :G=USR(0) :G=USR(15) :G=USR(0) :G=USR ( -7000) :G=USR(1 

8) :G=USR(23) : RETURN 

18/0 IFZD=lTHENG=USR(-99) : FORG=13T03STEP-l :G=USR(G) :NEXTG: RETURN 

1880 POKEZ1+32,0:IFZD=0THENRETURNELSEPOKEZI , 24 : FORG=lTORND ( 20) :K=U 

SR(RND(8)*-100) :K=USR(RND(11)) : NEXTG: RETURN 

1890 IFZD=0THENRETURNELSEG=USR(-100) :X=USR(X) :RETURN 

1900 IFZD=0THENRETURN 

1910 POKEZI, 27 :GOSUB1920:FORK=1TO110:NEXTK 

1920 K«USR(-3500) :K=USR(13) :K=USR(-6500) :K=USR(11) : K=USR(-1550) :K = 

USR(13) :K=USR(-3500) :K=USR(12) : K=USR( -8500) :K=USR{11) : RETURN 

1930 T(Y)=T:IFTA>0ANDT+10<22THENT=T+10:TA=TA-1:GOTO1930ELSERETURN 

1940 IFERRO16THEN1950ELSEIFU>9THENU=10 : RESUME 

1950 IFERR=10THENRESUMENEXT 

1960 ONERRORGOTO0: RESUME 

2000 A=" ":Q$=A:F=CL(1) :T=F:FORX=lTOPC: IFF>CL(X) THENF=CL(X) ELSEIFT 

<CL(X)THENT=CL(X) 

2010 NEXTX:X1=(F/T) : IFX1 >.8THENRETURNELSEIFXi >.7THENA=" MODERATELY 

"ELSEIFXK.5THENA=" VERY " 
2020 GOSUB1670:PRINT"THERE IS A";A;"WIDE DISTRIBUTION OF CHIPS FRO 
M" ;F; "TO" ;T, "AMONG THE" ;PC; "PLAYERS. " :PRINT: PRINT" YOU CAN USE THE 
'EQUALITY' OPTION TO RE-EVALUATE CLOTHING ITEMS FOR A MORE UNIFORM 

CHIP TOTAL.": PRINT 
2030 PRINT"DO YOU WANT TO USE THE EQUALITY OPTION?" :GOSUB1590 : IFQ$ 
= "N"THENRETURNELSEIFQ$O n Y"THEN203 

2040 FORY=lTOPC:F=T:X!=T/CL(Y) :F0RX=1T09:V(Y,X) =V(Y,X) *X1 :F=F-V(Y, 
X) :NEXTX:V(Y,0)=F:NEXTY:RETURN 




NOW FOR 
MODEL 100 




Say "Goodbye" to 
the awkward hunt & 
peck method of typ- 
ing! Instant Software 
introduces you to Typ- 
ing Teacher — the patient 
tutor that will improve 
your typing skills. This 
complete seven-part pack- 
age takes you all the way 
from initial familiarization 
with the keyboard, through 
words and phrases, to com- 
plete mastery of the keyboard. 
On screen diagrams show you 
the correct placement for fingers. Displays 
keep eyes up and away from keyboard to 
master proper techniques. 
Take home TYPING TEACHER today 
and type like a pro tomorrow. 
Requires: TRS-80* Model 100. 8K 
#0463RH $17.95. 

TRS-80*, Tape, Mod 1 and Mod III. 16K. 
#0099R $17.95 

TRS-80 Disk Model I & III w/CONVERT, 
or PMC, 16K, #0451RD $22.95 



□ YES! Send me 
Instant Typing 

from Instant Software. 

^_0463RH@$l7.95 

_0099RD@$17.95 0451RD@$22.95 

Please add $2.50 for postage & handling. 

VISA, MASTERCARD, 
AMERICAN EXPRESS ACCEPTED. 



MClSank" 



I-Apires 



Signature 



City- 



State Zip 

337B8T OR CALL TOLL FREE 

1-800-258-5473 



338B8T 



Instant Software 

Rt. 101 & Elm St. Instant Software 

Peterborough NH 03458 ^■"3HH 

'TRS-80 is a trademark of the Radio Shack Division 
of Tandy Corporation. 



sSee List o! Advertisers on Page 323 
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GAME 



by Donald David 



Light Cycle is a fast-paced, action- 
packed Model III game for one or two 
players. It is derived from a program 
called Boa by Jeff Myers (80 Micro- 
computing, May 1981, p. 294). 

In Light Cycle, each player uses four 
keys to maneuver a beam of light 
around the screen. As the beam travels, 



T 



ry to shade all of 
your Model III screen 



white. Obstacles and a 
maze make it tougher. 



Program Listing 



REM *********** LIGHT CYCLE *********** 

1 REM * BY DONALD DAVID-990 NORTH AVE .-DEERFIELD ILL. 60015 * 

2 REM * ORIGINAL PROGRAM CREATED BY JEFF MEYERS - 'BOA' * 

3 REM * FROM 80 MICROCOMPUTING MAY 1981 PAGE 294 * 

4 REM **************************** 

5 CLEAR1000:DEFINTA-Z:DIM P(150):DIM C ( 150) : PO=26 : CZ=0 : CP=1 : CN=-1 : 
KT=15010:KN=15009:KF=150 04:K0=153 60:GOSUB90 00 

10 GOSUB90 0:GOSUB8000:GOSUB950:P=2*P0+6:Q=3*Q0+4:SET(P,Q) :SET(P+CP 

,Q) :R=2*R0-CP:S=3*S0+4:SET(R,S) :SET(R-CP,S) :C=2 

13 P1=CP:Q1=CZ:R1=CN:S1=CZ 

100 ' A INPUT 

120 IFPEEK (KF) AND4THENQ1=CN: P1=CZ : GOTO20 

130 IFPEEK (KF) AND2THENP1=CN:Q1=CZ:G0T02 

140 IFPEEK (KF)AND128THENP1=CP:Q1=CZ:G0T02 00 

150 IFPEEK (KN)AND2THENQ1=CP:P1=CZ 

200 P=P+P1+P1 : Q=Q+Q1 : IFPOINT ( P ,Q) ORPOINT ( P+CP ,Q) THEN300 

210 SET(P,Q) :SET(P+CP,Q) : C=C+CP : GOTO500 

300 ' B WINS 

310 BS=BS+CP:WS="B":GOTO730 

500 ' B INPUT 

510 IFPEEK (KT) AND2THENR1=CZ : S1=CN:GOTO600 

520 IFPEEK (KT) AND4THENRl=CN:Sl=CZ:GOT06 00 

53 IFPEEK (KT) AND8THENR1=CP: SI =CZ:GOT06 00 

540 IFPEEK (KT)AND32THENS1=CP:R1=CZ 

600 R=R+R1 +R1 : S=S+S1: IFPOINT (R,S) ORPOINT ( R-CP , S) THEN7 00 

610 SET(R,S) :SET(R-CP,S) : C=C+CP : GOTO100 

700 ' A WINS 

710 AS=AS+CP:W$="A" 



Listing continues 



LOAD 80 




It leaves a trail of light. Try to shade as 
much of the screen as possible with 
light. The first beam to hit a wall, 
obstacle, or the other player's beam 
loses. 

After you play Light Cycle, the 
percentage of the screen shaded white 
appears at the bottom of the screen. 

Four levels of difficulty challenge 
your reflexes. The screen for the first 
level contains no obstacles — it is 
straightforward and fairly simple. 

Levels 2 and 3 each contain randomly 
placed obstacles, level 3 more than level 
2. You can pass through some of these 
obstacles. If you want to increase or 
decrease the number of obstructions, 
change the For . . . Next loop in lines 
8070, 8080, 9270, and 9280. 

The fourth level is a circuitous maze. 
Try to get through it! ■ 



Donald David can be reached at 990 
North Ave., Deer field, IL 60015. 



The Key Box 

Model 1 and III 

16KRAM 

Cassette or Disk Basic 
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- COMPUTER SHACK- 





Stronghold 

By Ken Olson and Larry Chow 

Using all the skill you can muster, 
protect your city by moving yourshield 
and stopping the bombs. From every 
angle, bombs will destroy the cities 
outer shielding until it reaches the city 
itself. It the city is hit, you and all your 
people will be destroyed. You can catch 
the bombs and launch them at oppos- 
ing cities, or just worry about saving 
yourself. 

One or two player action with sound 
and split second graphics that'll amaze 
the eye and ear. 



Moon Rover 



Tape. 



$22.95 Disk S25.95 



By Scott Watson 

When we first landed on the moon, 
scientist found it to be a dead planet. 
So we preceded to build ourfirst LUNAR 
STATION. 

But the moon was inhabited, and they're 
not as friendly as E.T.. On the ground and 
in the air they're attacking! Just keep mov- 
ing and hope that you are not stopped or 
that you don't fall into a crater before 
earth forces can arrive. 

With fantastic sound and truly excel- 
lent graphics, MOON ROVER will pro- 
vide hours upon hours of exciting play. 

Tape $22.95 Disk $25.95 



Time Bandit 

By Bill Dunlevy 

With TIME BANDIT, you virtually create 
your own game. You can choose from 
more than TWENTY places during the en- 
tire game. And each place has more than 
15 distinct variations and levels of difficul- 
ty; this means over 300 variations in all! 

Unbelievable speed, ultra crisp graphics 
(including scrolling maps and full an- 
imation), amazing sound, high scores 
that save to disk or cassette, voice (disk 
versions) - it's all here! The conquest of 
time and space awaits you. TIME 
BANDITthe latest game by Bill Dunlevy. 
Tape $24.95 Disk $26.95 



FIVE EXCITING NEW GAMES FROM COMPUTER SHACK 

We give you a discount if your order more than one program. 10% of your order 2, 15% if you order 3 and 20% if you 

order 4 or more programs (any software). 




Convoy 



by Philip Mackenzie and Jetfery 
Sorensen 

From the creaters of DEMON 
SEED comes a great new 
game that promises to keep 
you on the edge of yourseat . . 
CONVOY!!! 



A convoy of trucks has been 
assigned to move food rations 
for the troops in the field. You must protect the convoy, 
utilizing the firepower of the armies new super tank, from 
enemy fighter planes and helicopters seeking to block and 
destroy the convoy. As planes come rocketing down, destroy 
their bombs and send them to the ground in flames. At first, 
thefighters may seem to ignore you, but watch out!!! As your 
skill grows, they'll call out reinforcements that'll directly 
attack and destroy your tank You'll feel and see the 
spectacular battlescenes, you'll hear the planes as they 
dive into the road, and you'll react like you've never reacted 
before! 







CONVOY . . Can you take the challenge? 
Tape $22.95 Disk 



$25.95 



Fury 

By Doug Frayei 

In the background you hear the 
sirens blare! As your heart fills 
with dread you know what the 
sound means! The planet's 
been INVADED, the merciless 
Monnierian have arrived! 



With all the other voung pilots, 
you rush down the corridor, strapping on your suit and 
straightening you head gear. As the top closes on your 
fighter and the dials light up, you see the controller waving 
you on. This is it! This is the moment that decides your worth 
as a pilot! You better be quick and you better be ready! So 
with a reassuring whisper, you take a firm grasp on the 
controls and prepare yourself for the battle of a lifetime. 

Written by the thrice acclaimed Doug Frayer (Author of CYBORG 
and JOVIAN) FURY combines strategy and three wave pat- 
terns to the traditional space fight. Allowing one or two players, 
sound and graphics are used to their utmost and the disk version 
even talks! 
Tape $22.95 Disk $25.95 




OMPUTER SHACK 

1691 Eason • Pontiac. Michigan 48054 
nfo: (313) 673-8700 O Orders: CALL TOLL FREE (800) 392-8881 

.ase add S3. 00 for shipping in the U.S.A. - S5.00 for Canada or Mexico - Properpostage outsit 
jrs for all items in this ad. Write for our catalog and price list. 




■See List of Advertisers on Page 323 
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hy settle for less on 

TRS-80 Model 4 

Computers & Accessories? 



Get Service, Selection, and Shipment 
not just a low price! 

Sure we ship mail order, 
but Computer Discount of 
America is a full-service, 
multi-store retail operation. 

Our staff of experts is willing 
and able to help you fill your 
needs and get the most out of your computer. 

We offer a complete variety of computers, as well as 
all the popular brands of Printers, Monitors, Soft- 
ware, and Accessories. All orders are shipped within 
24-48 hours from the largest inventory in the North- 
east, in factory-sealed cartons. And, we will replace 
any merchandise that is defective or damaged. 

Whether we talk to you on the phone or in person, 
your satisfaction is important to us. 

If you're looking for price, selection and service, call 
Computer Discount of America — where the only thing 
we discount is price. 



ORDER TOLL FREE: 800-526-5313 

COMPUTER DISCOUNT OF AMERICA. INC. 
15 Marshall Hill Road. West Milford Mall 
West Milford. New Jersey 07480-219 
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Make A Name 
For Youi 




Wayne Green Books announces a 
September 1, 1983 deadline for sub- 
mitting manuscript proposals for the 
upcoming publication list. Ideas for 
book-length manuscripts about any 
microcomputer system or area of elec- 
tronics will be considered. In addition 
to payment and royalties, we offer our 
distribution channels and the market- 
ing support your book deserves. 

Send proposals or requests for a 
copy of our Writer's Guide to: Editor, 
Wayne Green Books Peterborough, NH 
03458. Or call toll-free 1-800-343-0728. 
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AAAAAAAAAAAAAAAAAAA 

OMNITEK COMPUTERS INTERNATIONAL, INC. 
1 300 MAIN STREET TEWKSBURY, MASS 01 876 
617-851-4580 ^195 



CBM64 295.00 

Verbatim 5.25" D.L 25.00 

5 Vi " Head Cleaning Kits 5.00 each or 3 for $ 1 2.00 

Okldata Microline 80 299.00 

Okidata Microllne 82A 399.00 

Okldata Microline 83A 629.00 

Okidata Microline 92 ( 1 60 C.P.S.) corresponds mode 499.00 

Okldata Microline 93 799.00 

Smith Corona Daisy Wheel Printer 559.00 

13" Green Monitor 99.00 

B.M.C. 13" Color Monitor 299.00 

Epson FX80 IT 5 39.00 

Epson MX- 1 00 629.00 

Radio Shack MIV 64K w/2 drives and RS232 1 787.00 

40 track economy drive Power Supply with case 1 79.00 

Tandon drives with Power Supply and case 

40 track slnglehead 249.00 

dualhead 339.00 

80 track slnglehead 299.00 

dualhead 399.00 

5.25" Power Supply and case 39.00 or 10 for $340.00 

*BASF 40 track D.D. 514" new disk drive, as Is, 

no return 89.00 

8" Power Supply and case 99.00 or 10 for 935.00 

Brothers HR-1 D.W. Printer 795.00 

Full Commodore Line CALL VIC 20 99.00 



OMNITEK COMPUTERS INTERNATIONAL, INC. 

TRS-80 is a reg. trademark of Tandy Corp. Prices are for mall order only TERMS: 
Check, money order. Mastercard and Visa accepted F.OB. Tewksbury- freight ex- 
tra. Minimum $5.00 S S. H. Mass residents add 5% sales tax. Write for FREE 
CATALOG. 
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•T BEAT! 



LNVV-80 Model II $1595 

96K, 5"/8" DISK CONTR., RGB COLOR 
DOS- PLUS, 3.4, HI-RES GRAPHICS 
RS 23 Z-C, PAR PRINTER PORT , CPM 
80x24 DISPLAY, 1 YEAR WARRANTY 

COMPUTERS 

LNW MODEL I DISCONT 

PMC 8 1 I6K $525 48K $660 

TIMEX $56 (WITH COUPON) $39 

APPLE CLONE (SYSCON 2) $599 

TRS-80 COLOR COMP. 16K $269 

MOD IV $1,730 



CRT MONITORS 

AMDEK 300 GREEN 
AMDEK 300 AMBER 
AMDEK COLOR I 
AMDEK COLOR II 
TAXANRGBCOLORI 
TAXAN RGB COLOR III 
TAXAN GREEN 
TAXAN AMBER 
ZENITH GREEN 
APPLE/IBM RGB CARD 

EXPANSION INTERFACES 

LNW SYSTEM EXPANSION II 
MICRO DESIGN MDX-2 
MICRO DESIGN MDX-3 
HOLMES ENG IM2 
DOUBLE DENSITY MULTIPLIER 
LJ.W5/8 DBLR W/DOS PLUS 3.4 



$139 
$159 
$359 
$639 
$299 
$550 
$125 
$139 
$115 
$89 



9349 
$449 
$289 
$129 
$95 
$199 



TEAC Vi SIZE DRIVES 

Bare Compl 

FD 55A 40TRK S/S $209 $245 

FD55B40TRK D/S $280 $319 

FD 55F 80TRK D/S $350 $390 

ALL TEACS HAVE A 1 YEAR WARRANTY 



TANDON DRIVES 

100-1 40TRKS/S 
100-2 40TRK D/S 
100-4 80TRK D/S 



Bare 

$189 
$259 
$340 



Compl 
$230 
$299 
$385 



ECONOMY DRIVES 

COMPLETE W/CASE/PWR SUPL/CABLE 
40TRK S/S $195 

APPLE COMPATIBLE DRIVE 

W. CONTR CARD, CASE & CABLE $295 



C-ITOH PRINTERS 

PROWRITER8510 

PROWRITER 1550 

F-10 40CPS 

F-10 55CPS 

F-10 TRACTOR FEED 

QUME SPRINT 1 1 40CPS 

MODEMS 

NOVATION |-CAT 
SIGNALMAN 



PAR 

$379 

$659 

$1 195 

$1550 



SER 

$539 

$739 

$1195 

$1550 

$195 

$1450 



$135 
$85 



LNW SYSTEM EXPANSION II 

UPGRADE YOUR MOD 1 OR PMC-80/81 WITH 
DISK CONTROLLER RS 232 -PARALLEL- 
PRINTER PORT 32K 200 NS MEMORY GOLD 
CONNECTORS POWER TRANSFORMER 
CASE CABLE 
FOR ONLY $349 

TRS COLOR COMP. EXP. BOARD 



REAL TIME CLOCK 
PAR PRINTER PORT 

DISK DRIVE CONTR 
80x24 DISPLAY 



SOFTWARE 

LAZY WRITER $159 

ELECTRONIC WEBSTER $119 
MAXI MANAGER $ 1 19 

POSTMAN $119 

DOS PLUS 3.4 $89 



$289 

Add $75 



MULTIDOS 1 .6 $89 

SUPER UTILITY +3.0 $69 
M.A.S.80 ea.$l45 

NEWSCRIPT7.0 $114 

OMNITERM $78 



24 HOUR TOLL FREE ORDERS 

VISA/MASTER CHARGE ONLY: 

(800) 633-2252 EXT 720 

All QUtSTIONS: (313)538-1112 

MICHIGAN RESIDENTS ADD 4% SALES TAX-POSTAGE 
CALL FOR CHARGES-PRICES ARE DISCOUNTED FOR 
CASH AND MONEY ORDER (HON CERTIFIED CHECKS 
AILOW 2 WEEKS TO CLEAR) MASTER CARD AND VKA 
ADD 3% NO COD NO NET TERMS 



X/F^PACOMPUTER OUTLET 

w *mm\Jm r^. 16727 Patton Detroit ^48219 



• See List of Advertisers on Page 323 
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GAME 



Maze Chase 



The Key Box 

Model I and III 

16K RAM 

Cassette or Disk Basic 



by Leonard Karr 



Maze Chase is an action game similar 
to Pac-Man; bad guys pursue a player 
through a maze. If they catch him, he 
loses. In this game, the player wins by 
catching a moving asterisk before his 
opponents catch him. It's a chase within 
a chase. The asterisk is not cooperative. 
It does its best to evade you. 

Use the numeric keypad to control 
your token. If you don't have a keypad 
or you want to use different keys, make 



In this maze game, you 
are hunter and hunted. 
Try to catch the asterisk 
before enemies catch you! 

two changes in the program. First, 

change the instructions in lines 
3070-3100 to specify the keys you want 



to use. Second, in lines 2110-2140, 
replace the numbers in quotation marks 
in the statements 'IF L$ = "#" . . . ' with 
the characters of the keys you're using. 

Each game starts with a different 
maze. You cannot memorize patterns to 
guarantee a win. Sometimes the maze 
makes a win easy for you, sometimes 
for your enemies. 

There are three levels of play. At the 
first level, only two bad guys pursue 



Variables used to draw maze: 


BL 


Location on video screen of bad guy B 


K, J 


Counters in For . . . Next loops 


CL 


Location on video screen of bad guy C 


B$ 


Black Square 


DL 


Location on video screen of bad guy D 


W$ 


White square (not used) 


PL 


Location on video screen ot player 


MS 


Solid white line 63 spaces long 


TL 


Location on video screen of asterisk 


AL 


Location ot path above 01 below starling position 


EL 


Location on video screen of capture point 
Player's location on X axis 


BL 


Location of path square as maze is drawn 


PX 


CL 


Random move, up, down, or forward 


PY 


Player's location on Y axis 


DL 


Path location when path moves up or down 


BX 


Bad guv B's location on X axis 


PI 


Path location when drawing corners of maze 


BY 


Bad guy B's location on Y axis 






AX 


Had guy A s location on X axis 


Variables in movement phase ot program: 


AY 


Bad guy A's location on Y axis 


PI 


Movement increment for player 


H 


Level ot play 


Tl 


Movement increment for asterisk 


K, J 


Counters in Lor . . . Xexi loops 


AI 


Movement increment for bad guy A 


LL 


Count of player losses 


BI 


Movement increment lor bad guy B 


WW 


Count of player wins 


CI 


Movement increment for bad guy C 


S 


Start of computer memory of video screen 


1)1 


Movement increment for bad guy D 


BS 


Used to flash capture point 


AL 


Location on video screen of bad guy A 


W$ 


Used to flash capture point 




Table 1. List < 


)/ Variables 





Program Listing 








220 


W$=CHR$(191)+CHR$(191)+CHR$(191) 


1 i************************************************** 


230 


M$=STRING$(63,191) 


2 '* MAZE CHASE FOR LEVEL 2 TRS-80 * 


240 


RETURN 


3 '* BY LEONARD KARR MAY 1982 * 


250 


' DRAW MAZE SUBROUTINE 


4 '* 1436 VILLAGE ROAD * 


25 5 


FOR K=0 TO 15 


5 '* CHARLESTON, SC 29407 * 


260 


PRINT@(K*64) ,M$ :NEXT 


g i ************************************************** 


280 


F0RK=3T011STEP2 


8 DEFINTA-0,R,S 


290 


AL=2 


10 CLEAR 200 


300 


BL=K*64 


20 RANDOM 


310 


FORJ=lT09 


30 S=15360 


320 


BL=BL+3 


100 GOTO 3000 'INSTRUCTIONS AND GAME START 


330 


PRINT@BL,B$; 


200 'SUBROUTINE TO CREATE BLACK & WHITE BLOCKS FOR DRAWING MAZE 


340 


CL=RND(3) 


210 B$=CHR$(128)+CHR$(128)+CHR$(128) 


350 


IF CL=2THEN450 

Listing continues 
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for the TRS-80 from Micro -Mega 



The Original GREEN-SCREEN 




The eye-pleasing Green-Screen fits over the Iron; of your 
TRS-80 Video Display and gives you improved contrast with 
reduced glare. You get bright luminous green characters and 
graphics like those featured by more expensive CRT units. 
Don't confuse the Original Green-Screen with a piece of thin 
film stuck to the face of your video tube, such as that adver- 
tised by others. The Original Green-Screen is mounted in a full 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive strips 
which do not mar your unit in any way. 

The full frame design of the Original Green-Screen "sguares 
off" the face of your video display and greatly improves the 
overall appearance of your system. 

(Specify whether for Model I or Model III) 

THEGREENt-SCREEN $75.95 

Add $1.50 for postage and handling. 



Terms: Check or money order, no CODs or credit cards, please Add amount 
shown lor postage and handling to price ol the item. All items shipped within 48 
hours by first class or priority mail Virginia residents, add 4% sales tax ^-\Q2 



Micro- Mega • PA Box 6265 • Arlington, Va SSSOB 



***NEW*** 
LNW8Q SYSTEMS 

1983 Model II with upgrades 
RS model III compatabi 1 i ty add-on soon 

SPECIAL SYSTEM PACKAGE 

LNWBO Model II computer 
Green screen monitor 
2 Disk drives 
DOS PLUS, LNH BASIC, CP/M 2.2 

FREE SOFTWARE INCLUDED 

New release easy to use 
Business System with: 

AR, AP, GL, Pay Roll 
Electric Pencil 2.0z 
Electric Spreadsheet 
Chartx 
M i cro term 

BONUS FROM EXCELLONIX 
YOUR CHOICE: 

1. C.Itoh printer and cable 

2. Hayes Smartmodem and cable 

3. Texan model RGB3 monitor 

(instead of green screen) 

SPECIAL PRICE $2695.00 

EXCELLONIX 



639 No. Bristol St. W52 
Santa Ana, Ce. 92703 
(714) 973 1939 (213) 650 5754 



Introducing The FIRST 





'INCHESTER 5 MEGABYTE HARD DISK DRIVE 
Installable Directly Into The TRS 80 Model III 

FEATURES 
• Approximately nine times faster than standard floppy disk drives. 

• One hard disk cartridge is equal in capacity to 30 floppy disks. 

• Five megabyte on-line storage. • Built-in error detection & correction. 




FOR 
ONLY 



$179995 



"'* W J^**5 



MICRO 

6301 Manchaca Dr. Suite B • Austin, TX. 78745 



-531-500 



See our ads on pages 215, 216, 217, 249, 257 



sSee List of Advertisers on Page 323 
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Listing continued 



360 
370 

380 
390 
400 

450 
460 
470 
480 
490 
500 
510 
520 



IF(CL=1) AND(AL=1) THEN450 

IF(CL=3)AND(AL=3) THEN450 

IF(CL=1)THEN DL=BL-6 4:BL=DL-64:AL=AL-1:GOTO40 

DL=BL+6 4 : BL=DL+6 4 : AL=AL+1 

PRINT§BL , BS ; : PRINT@DL , B$ ; 

BL=BL+3: PRINT@BL ,B$; 

NEXT J 
NEXT K 

'DRAW CORNERS AND SIDES 
FOR K=1T013 



PRINT@(K*64+3) ,B$; 

PRINT@(K*64+57) ,B$; 

NEXT 
530 FOR K=1T02 
540 PI=K*3 

550 PRINT@(67+PI) ,B$; 
560 PRINT@(112+PI) , B$; 
570 PRINT@(835+PI) , B$ 
580 PRINT@(835+PI) , B$ 
590 PRINT@(880+PI) , B$ 
600 PRINT@(195+PI) , B$ 
610 PRINTS ( 240+PI) , B$ 
620 PRINTS (707+PI) , B$ 
630 PRINT@(752+PI) , B$ 
640 NEXT K 
650 PRINT@137,B$; 
660 PRINT@17 9,B$; 
670 PRINT@777,B$; 
680 PRINT@819,B$; 
700 PRINT@976,"MAZE CHASE 
710 RETURN 
1 



BY LEONARD KARR" ; 



101 

102 



IF AY<PY THEN IFAX<=PX THEN 1150 ELSE 1140 
IF AY>PY THEN IF AX<=PX THEN 1170 ELSE 1130 
IF AX>PX THEN 1140 
1100 IFPEEK(S+AL+3) 0191AND AIO-3THEN AI = 3 : AX=AX+1 :GOTO 1200 
1110 IFPEEK(S+AL-64) <>191ANDAK>64THENAI=-64 J AY=AY+1 :GOTO1200 
1120 IFPEEK(S+AL-3) 0191ANDAI <>3THEN AI=-3 : AX=AX-1 ;GOTO 1200 
1130 IFPEEK(S+AL+64) 0191ANDAI <>-6 4THENAI=64 : AY=AY-1 : GOTO1200 
1140 IFPEEK(S+AL-3) <>191ANDAK>3THENAI=-3: AX=AX-1 :GOTO120 
1150 IFPEEK(S+AL-64) <>191ANDAK>64THENAI=-64: AY=AY+1 : GOTO1200 
1160 IFPEEK(S+AL+3) <>191ANDAIO-3THENAI=3:AX=AX+l :GOTO1200 
1170 IFPEEK(S+AL+64) <>191ANDAK>-64THENAI=64: AY=AY-1 : GOTO1200 
1180 GOTO 1100 

1200 PRINT @AL,B$;:AL=AL+AI: PRINT @AL,HA$; 
1220 IF AL=PL THEN EL=AL: GOTO26 
1280 IF CL+64=PL THEN CI=64:GOTO 1400 
1290 IF CL-3=PL THEN CI=-3:GOTO 140 
1300 IF PEEK(S+CL+CI) <>191 THEN 1400 

IF ABS(CI)=64 THEN ON RND(2) GOTO 1360,1370 
ON RND(2) GOTO 1330,1340 
IF PEEK(S+CL-64) <>191 THEN CI=-64:GOTO 1400 
IF PEEK(S+CL+64) <>191 THEN CI=64:GOTO 1400 
IF PEEK(S+CL-64) <>191 THEN CI=-64:GOTO 1400 
IF PEEK(S+CL+3) <>191 THEN CI=3: GOTO 1400 
IF PEEK(S+CL-3) <> 191 THEN CI=-3: GOTO 1400 
IF PEEK(S+CL+3) <>191 THEN CI=3: GOTO 1400 
1400 PRINT@CL,B$j:CL=CL+CI:PRINT@CL,HC$; 
1410 IF CL=PL THEN EL=CL:GOTO 2600 
1490 IF DL+3=PL THEN DI=3:GOTO 1600 

IF DL+64=PL THEN DI=64: GOTO 160 
IF PEEK(S+DL+DI) <>191 THEN 1600 
IF ABS(DI)=64 THEN ON RND(2) GOTO 1570,1580 
ON RND(2) GOTO 1540,1550 

IF PEEK(S+DL-64)<>191 THEN DI=-64:GOTO 1600 
IF PEEK(S+DL+64)<>191 THEN DI=64: GOTO 1600 
IF PEEK(S+DL-64) <>191 THEN DI=-64:GOTO 1600 
IF PEEK(S+DL+3) <>191 THEN DI=3: GOTO 1600 
IF PEEK(S+DL-3) <>191 THEN DI=-3: GOTO 160 
IF PEEK(S+DL+3) <>191 THEN DI=3: GOTO 160 
1600 PRINT@DL,B$;:DL=DL+DI:PRINT@DL,HD$J 
1610 IF DL=PL THENEL=DL:GOTO260 

IFPL=BL THEN PRINT§BL,HB$; : EL=BL: GOTO2600 
IF BX<PX THEN IF BY<=PY THEN 1900 ELSE 1970 
1810 IF BX>PX THEN IF BY<=PY THEN 1940 ELSE 1930 
1830 IF BY>PY THEN 1930 ELSE 1910 

1900 IFPEEK(S+BL+3)O191ANDBIO-3THENBI=3:BX=BX+1:GOTO2000 
1910 IFPEEK(S+BL-64) <>19lANDBK>64THENBI=-64 :BY=BY+1 :GOTO2000 
1920 IFPEEK(S+BL-3) <>19lANDBK>3THENBI=-3 :BX=BX-1 : GOTO2000 
1930 IFPEEK(S+BL+6 4) <>191ANDBIO-64THENBI = 64:BY=BY-1:GOTO2000 
1940 IFPEEK(S+BL-3) <>191ANDBK>3THENBI=-3 :BX=BX-1 :GOTO2000 
1950 IFPEEK(S+BL-64) <>191ANDBK>64THENBI = -64 :BY=BY+1 :GOTO2000 
1960 IFPEEK(S+BL+3) <>191ANDBIO-3THENBI=3:BX=BX+1:GOTO2000 
1970 IFPEEK(S+BL+64) <>191ANDBIO-64THENBI»=64:BY=BY-1:GOTO2000 
1980 GOTO 1900 

2000 PRINT@BL,B$;:BL=BL+BI:PRINT@BL,HB$; 
2010 IF BL=PL THEN EL=BL:GOTO 2600 
2100 L$=INKEY$ 
2110 IF L$»"8"ANDPEEK(S+PL-64) <>191THENPI=-64:PY=PY+l:GOTO 2200 

Listing continues 



1310 
1320 
.133 
1340 
1350 
1360 
1370 
1380 



1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 



1790 
1800 



you, but the game moves faster than at 
the other two levels. Three enemies 
chase you at Level 2, and at Level 3 you 
must avoid four bad guys. 

Keep in mind that all creatures (the 
player, bad guys, and asterisk) move at 
the same speed. As long as you make no 
mistakes and press the right key at the 
right moment, you cannot be caught 
from behind (nor can you catch the as- 
terisk from behind). To win, you must 
maneuver until the asterisk moves to- 
ward you on a path without a turnoff . 

You can reverse direction or remain 
immobile during play. The asterisk 
and enemies must move left, right, or 
forward. The maze never contains a 
dead end that could trap them. 

Once you figure out your opponents' 
movements and a couple of the game's 
idiosyncrasies, you can win most 
games. If you want to increase difficul- 
ty, allow bad guy B to reverse direction. 
Change lines 1790-2010 by omitting the 
second condition ('and BI <> #') of the 
If statements. This makes him harder to 
avoid and quickly puts him on your tail. 

The bad guys use two different strat- 
egies to find you. Two of them move 
more or less randomly and check to see 
if you're next to them. The other two 
bad guys know where you are and al- 
ways attempt to move toward you. 
Once they get within two squares of 
you, you can't lose them. They follow 
you until the end of the game. 

The asterisk moves just enough to 
avoid you, but not enough to escape 
every time. It spends a lot of time in the 
corners, but quickly runs out unless you 
approach it correctly. 

The asterisk and the smart bad guys 
use a similar means of movement. The 
program analyzes the relative positions 
of the player and the bad guy or 
asterisk, and branches to the line with 
the best movement strategy ( + 3 units 
for right, - 3 for left, - 64 for up, and 
+ 64 for down) for that situation. The 
program tests the move to see if it sends 
the creature into a wall or reverses his 
direction of movement. 

If the move is legal, the move incre- 
ment is set and the program branches to 
the line that makes the move. If the best 
move is illegal* the test fails and the pro- 
gram continues to the next line that con- 
tains the second best move for the situa- 
tion. If this move is illegal, the test again 
fails and the program continues to fall 
through until it finds a legal move. 

Since no maze ever contains a dead 
end, there is always a legal move. Test 
lines are grouped together to reduce the 
amount of coding. Each best move uses 
the other possible moves as alternatives. 
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Listing continued 



2.1 2 

2130 

2140 

2150 

2200 

2210 

2290 

2300 

2310 

2320 

2330 

2340 

23 5 

2370 

2380 

2390 

2395 

2399 

2400 

2410 

2420 

243 

2440 

2450 

2460 

2470 

2480 

2490 

2520 

2530 

2540 

2600 

2620 

2630 

2640 

2650 

2670 

2680 

2690 

2700 

2710 

2720 

27 3 

2750 



2760 

2900 

2920 

2925 

2926 

2940 

2950 

3 00 

3010 

3020 

3030 

166) ; 

3040 

3050 

HE" 

3060 

3070 

3080 

3090 

3100 

4010 

4020 

5000 

5020 

5030 

5040 

5050 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5200 

5500 

5510 

INT 

5520 

5530 

5540 

6000 



IF L$="4"ANDPEEK(S+PL-3) <>191THENPI=-3:PX=PX-1: GOTO 2200 
IF L$="2"ANDPEEK(S+PL+64)O19lTHENPI=64:PY=PY-l:G0T0 2200 
IF L$="6"ANDPEEK(S+PL+3) <>191THENPI=3: PX=PX+l:GOTO 2200 
PI=0 

PRINT@PL,B$; : PL=PL+PI : PRINT@PL , P$; 

IF PL=TL THEN EL=PL:GOTO 26 

IF INT(TL/64)=INT(PL/64)THEN2340 

IF TL/64-INT(TL/64)=PL/64-INT(PL/64)THEN2320 

IF PL<TLTHEN2330ELSE2350 

IF PEEK(S+TL-3)O191ANDTIO3THENTI=-3:GOTO23 80 

IF PEEK(S+TL+3) <>191ANDTIO-3THENTI=3:GOTO2380 

IF PEEK(S+TL+64) <>19lANDTIO-64THENTI = 64:GOTO2380 

IF PEEK(S+TL-64) <>19lANDTIO64THENTI=-64:GOTO2380 

GOTO23 20 

PRINT8TL,B$; : PRINT@TL+TI , T$; :TL=TL+TI 

IF TL=PLTHENEL=TL:PRINT§EL,P$; :GOTO2600 

ON H GOTO 1490,1280,1000 

'SUBROUTINE TO CREATE MEN 

ON H GOTO 2410,2430,2460 

HB$=CHR$(153)+CHR$(17 9)+CHR$(166) : BL=451 : BX=1 :BY=7 

HD$=CHR$(16 6)+CHR$(140)+CHR$(153) :DL=195: GOTO2520 

HB$=CHR$(166)+CHR$(140)+CHR$(153) :BL=579:BX=1 :BY=5 

HC$=HB$:CL=195 

HD$=CHR$(153)+CHR$(179)+CHR$(166) :DL=707 :GOTO2520 

HA$=CHR$(153)+CHR$(17 9)+CHR$(166) : AL=451: AX=1 : AY=7 

HB$=HA$:BL=57 9:BX=1:BY=5 

HC$=HA$:CL=195 

HD$=HA$:DL=707 

P$=CHR$ ( 140) +CHR$ ( 179) +CHR$ ( 140 ) : PL=249 : PX=19 : PY=11 

T$=" * *:TL»131 

RETURN 

FOR K=1TO10 

PRINT @(EL-67) ,B$+B$+B$; 
PRINT @(EL+61) ,B$+B$+B$; 
PRINTS (EL-3) ,B$; 
PRINT@(BL+3) ,B$> 
FOR J=l TO 30: NEXT 

PRINTS (EL-67) ,W$+W$+W$; 

PRINT@(EL+61) ,W$+W$+W$; 

PRINT? (EL-3) ,W$; 

PRINTS (EL+3) ,W$; 
FORJ=l TO 30:NEXT 
NEXT K 
IFTLOPLTHENLL=LL+l:PRINT@976, "SORRY YOU LOSE. " ; : GOTO 290 

WW=WW+1:PRINT§976," YOU WIN1M1111 

INPUT"PLAY AGAIN" ;A$ 

IF LEFT$(A$,1)<>"Y"THEN 5500 

PRINT@976," SELECT LEVEL (1, 2, OR 3)";: INPUT H 

IF H<1 OR H>3 THEN 2925 

GOSUB 2400 

GOTO 5020 

CLS 

PRINT: PRINT" >>»>INSTRUCTIONS< <<<<<" 

PRINT:PRINT" THIS IS YOU: ";CHR$(140) +CHR$ (179) +CHR$(140) 

PRINT" THESE ARE THE BADGUYS: "CHR$(153) +CHR$(179) +CHR$ ( 

" ";CHR$(166)+CHRS(140)+CHR$(153) 

PRINT" THIS IS WHAT YOU'RE TRYING TO CATCH: *" 

PRINT: PRINT" THE OBJECT OF THE GAME IS TO CATCH THE * BEFORE T 

PRINT"BADGUYS CATCH YOU. TO MOVE:" 

PRINT" '8' MOVES YOU UP" 

PRINT" '2' MOVES YOU DOWN" 

PRINT" '4' MOVES YOU TO THE LEFT" 

PRINT" '6' MOVES YOU TO THE RIGHT" 

PRINT"SELECT LEVEL OF PLAY (1,2 OR 3)."; 

INPUT H:IF H<1 OR H>3 THEN 4010 

GOSUB 200 'CREATE BLACK & WHITE BLOCKS TO DRAW MAZE 

•PROGRAM BRANCHES HERE FOR ALL GAMES AFTER FIRST 

GOSUB 2 50 'DRAW MAZE 

PI=-3:TI=3:CI=3:DI=3:AI=3:BI=3 'INITIAL MOVEMENTS 

GOSUB 2400 'CREATE MEN 

ON H GOTO 5130,5120,5110 

PRINTgAL,HA$; 

PRINT@CL,HC$; 

PRINT@DL,HD$; 

PRINT@BL,HB$; 

PRINT@PL,P$; 

PRINT@TL,T$; 

FOR K=1TO300:NEXT 'PAUSE BEFORE STARTING GAME 

GOTO 2395 

CLS:PRINTCHR$(23) 

PRINT : PRINT: PRINT :IFLL=0THENPRINT" EGAD I ! I WAS SKUNKED 1 1 I ":PR 

PRINT" YOU WON ";WW;" GAME(S)." 
PRINT" I WON ";LL;" GAME(S)." 

PRINT: PRINT: PRINT 
END 



The maze-drawing routine is in two 

parts in lines 200-700. The first part 
creates the strings needed for part two, 
drawing the maze. You can copy this 
routine as is for other games as long as 
you enter each part as a subroutine and 
don't change the string variables (see 
Table 1). 

If you want to increase the number of 
pathways, add these lines: 



270 FOR T = 1 TO 2 (Any variable can replace T) 
475 NEXTT 



This causes the program to loop 
through the path-drawing subroutine 
twice. 

The non-string variable names in the 
maze-drawing routine bear no relation- 
ship to the function of the variables. I 
used variables from the game's move in- 
structions to reduce the total number of 
variables and thus gain some speed. 

Don't despair if you find the game 
difficult at first. Once you start to move 
around the maze without missing a 
turn, you can defeat your enemies. ■ 

Write to Leonard Karr at 1436 Village 
Road, Charleston, SC 29407. 



PACKER: Machine language program that edits all or part 
of your Basic program to run faster, save memory, or 
ease editing. The 5 options include UNPACK -unpacks 
multiple statement lines into single statements 
maintaining logic, inserts spaces and renumbers lines 
SHORT— deletes unnecessary words, spaces, and REM 
statements. PACK— packs lines into maximum multiple 
statement lines including all branches MOVE— moves 
line or blocks of lines to any new location on program On 
2 cassettes for 16K, 32K. & 48K 
For TRS-80 Mod I or III Level II or Disk Basic . . . $29.95 
SYSTEM TAPE DUPLICATOR: Copy your SYSTEM format 
tapes. Includes verify routines. The Model III version 
allows use of both 500 and 1500 baud cassettes speeds. 

f-or TRS-80 Model I or III Level II $15.95 

CASSETTE LABEL MAKER: A mini word processor to print 
cassette labels on a line printer. Includes 50 peel - and - 
stick labels on tractor feed paper. 

For TR-80 Model I of III Level II & Printer $17.95 

PRINT TO LPRINT TO PRINT: Edits your Basic program in 
seconds to change all Prints to LPrints (except Print@ or 
Print*) or LPrints to Prints. Save edited version. 

For TR-80 Model I or III Level II $12.95 

FAST SORT ROUTINES: for use with Radio Shacks 
.Accounts Receivable. Inventory Control I. and Disk 
Maiimg List Systems for Model I Level II Sorts in 
SECONDS 1 You'll be amazed at the time they can save. 
Supplied on data diskette with complete instructions. 

FAST SORT for Accounts Receivable $19.95 

FAST SORT for Inventory Control I $19.95 

FAST SORT for Disk Mailing List (specify data diskette of 

cassette for 1 drive system) $14.95 

ALL THREE ROUTINES S-54 % 

Prices subject to change without notice Call or write tor a 
complete catalog Dealer inquiries invited VISA ana 
Mastercharge accepted. Foreign order in US currency 
only Kansas residents add 3% sales tax. 
On-line catalog in Whichita FORUM-80: 316-682-2113 
Or call our 24 hour phone (316) 683-481 1 or write: 

COTTAGE SOFTWARE ia7 

614 N. HAR0ING '° 
WICHITA. KANSAS 67208 
TRS-80 is a trademark of Tandy Corporation 



y~See List of Advertisers on Page 323 
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YOUR 

TRS-80* 

NEEDS 




•TRS-80 is a 

trademark of Radio Shack 

division of Tandy Corp. 




•Read this ad 
and give us a call. 

IOLL-HREE. BOO-258-5473 



It needs software before it can do anything. And good software 
is as valuable as any piece of hardware you can buy. 

The Encyclopedia for the TRS-80 is a ten-volume reference series with over 200 programs for the 
Model I, Model III, and Color Computer. In each volume, you'll find: 

•BUSINESS •GAMES •HARDWARE •TUTORIALS 

•EDUCATION •GRAPHICS •INTERFACING •UTILITIES 

Photographs, schematics, and program listings provide the essential detail you need for programming and tinkering. 



TOLL-FREE 
1-800-258-5473 



;£\m 



D 




ID 



TOLL-FREE 
1-800-258-5473 



VOL.3 



enCV V^"^ 




With running the programs once you have 
them. Encyclopedia Loader provides 

direct loading of programs and saves 

you the time of typing and debugging. 

These ten 30-minute cassettes have 

selected listings from each volume, 

ready for you to load and use. 




Loaders and softcover Encyclopedias are 

available separately or in sets. 

Don't Put Up The White Flag. 

Get some help for yourself and your TRS-80 
with the Encyclopedia for the TRS-80 and 
Encyclopedia Loader. 



Shipping and handling: 
$1 .50 per volume for single 
volumes of books and cas- 
settes, $10.00 per item for 
foreign air mail. All Encyclo- 
pedias shipped UPS with 
complete street address; all 
Loaders shipped 1st class 
mail 

Photocopy of 

coupon is 

acceptable 

for ordering. 
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ENCYCLOPEDIA FOR THE TRS-80 & ENCYCLOPEDIA LOADER 



i v . 



To Order Complete Sets (and save an extra $15.00) 
• Encyclopedia for the TRS-80 . volumes 1-10, 
EN8080L softcover edition $109.50 

□ Encyclopedia Loader Volumes 1-10 EL8000 
A$149.50value $119.97 
Save $15.00 shipping and handling charge. When you order a com- 
plete set of softcover Encycloped ias or Loaders, WE PAY TH E SH 1 PPI NG! 


To Order Single Volumes 

Please indicate quantities. 

□Softcover edition @$10.95 per volume 

Vol 1 V«l 1 Vnl 5 Vol.7 Vol.9 
Vnl ■> Vol. 4 Vnl 6 Vol. R Vol 10 


□ Encyclopedia Loader @$14.95 per cassette 

Vnl 1 Vol .^ Vol.5 Vol.7 ...Vol. 9 
Vol? Vol 4 Volfi Vol « Vol.10 





□ Payment Enclosed 

Card# 

Name 



□VISA 
lnterBank#_ 



□AMEX 



□MasterCard 



Lxpire-3 



Address. 



Signature. 
.City 



State. 



Zip- 



Mail to: Wayne Green Inc., Books Sales, Peterborough, NH 03458 



337B8E 



INTRODUCTORY/GAMES 







micro 



BCOC SHELF 



DON'T (or How to Care lor Your Computer) — by Rod 
nay Zaks. In plain language, with numerous illustra- 
tions, this book tells all the do's and don't'sof the care, 

preservation and correct ooeration ot the small com- 
puter system Specific chapters cover each :>:-'ce of 
hardware and software, as wen as safety and security 
precautions and help for problem situations. Have 
yQur computer work right the first time and keep it 
working. No technical background required. For all 
computer users 3K;?37 $11 95 



YOUR FIRST COMPUTER — by Rodnay Zaks Whether 
you are using a computer, thinking about using one or 
considering purchasing one, this book is indispen- 
sable. It explains what a computer system is, what it 
can do, how it works and how to select various com- 
ponents and peripheral units. It is written in everyday 
language and contains invaluable information for the 
novice and the experienced programmer. (The first edi- 
tion of this book was published under the title "An In- 
troduction to Personal and Business Computing".) 
BK1191 SO. 95* 



MICROPROCESSOR INTERFACING TECHNIQUES 
—by Austin Lesea & Rodnay Zaks— will teach you how 
to interconnect a complete system and interface it to 

all the usual peripherals It covers hardware and soft 
ware skills and techniques, including the use and de- 
sign of model buses such as the IEEE 488 or S-100. 
BK 1037 $17 95 ' 



COMPUTERS FOR EVERYONE 2nd Edition — by Jerry 
Willis and Merl Miller. This new, updated edition shows 
you how computers can be used in your home, office or 
school. It explains what computers can do and features 
a consumer's guide of the more popular computers to 
help you decide which one to buy and who to buy it from. 
There's even a chapter devoted to software that de- 
scribes over 100 programs currently available. Also in- 
cluded are chapters on peripherals, telecommunications 
and computers in education. Abounds with colorful pho- 
tographs. BK1260S5.95 

INTRODUCTION TO WORD PROCESSING by Hal 

Glatzer. This book explains in plain language what a 
word processor can do, how to use one, how it improves 
productivity— especially in businesses that handle lots 
of words— and how to buy one wisely. No technical 
knowledge required, for all first-time users and those 
considering purchasing a word processor. BK1238 $12.95 

A USER GUIDE TO THE UNIX SYSTEM by Jean Yates 
and Rebecca Thomas. Here at last is a clearly written 
book that allows you to use the Unix operating system 
easily, and at a fraction of the time it previously took. If 
you're using, evaluating or simply curious about this sys- 
tem, this is your book. BK1242 $15.99 

WORDSTAR MADE EASY by Walter A. Ettlin. Now Word- 
Star is as simple to learn as it is easy to use. This book 
teaches WordStar in 14 easy lessons, saving hours of 
hard work. It comes with a convenient pull-out Command 
Card. BK1239S7.95 



im i olfaction to 

RD PROCESSING! 




CAPTAIN 80 BOOK OF BASIC ADVENTURES— by Rob 

ert Liddil. This book contains 18 of the most popular 
Adventure programs available today; all in one easy to 
read book with listings ready to be keyed in to your 
computer. This unique book also contains an ADVEN- 
TURE GENERATOR program, not available from any 
other source. This generator program will actually 
write another BASIC ADVENTURE PROGRAM! Al- 
though specifically written for the TRS-80 Model I & III. 
these programs are adaptable to other computers us- 
ing Microsoft BASIC. BK 1240 $19.95. 

40 COMPUTER GAMES FROM KILOBAUD MICROCOM- 
PUTING— Forty games in all in nine different categories. 
Games for large and small systems, and even a section 
on calculator games. Many versions of BASIC used and 
a wide variety of systems represented. A must for the 
serious computer gamesman. BK7381 $7.95.' 



WAYNE GREEN BOOKS 



i&lufcfcli 




THE SELECTRIC INTERFACE-by George Young. You 
need the quality print that a daisy wheel printer pro- 
vides but the thought of buying one makes your wallet 
wilt. SELECTRICTM INTERFACE, a step-by-step guide 
to interfacing an IBM Selectric I/O Writer to your micro- 
computer, will give you that quality at a fraction of the 
price. George Young, co-author ot Kilobaud Microcom- 
puting magazine's popular "Kilobaud Klassroom" 
series, offers-a low-cost alternative to buying a daisy 
wheel printer. SELECTRIC INTERFACE includes: step- 
by-step instructions, tips on purchasing a used Soleo- 
tric, information on various Selectric models, includ- 
ing the 2740, 2980, and Dura 1041, driver software for 
Z80, 8080, and 6502 chips, tips on interfacing tech- 
niques. With SELECTRIC INTERFACE and some back- 
ground in electronics, you can have a high-quality, low- 
cost, letter-quality printer. Petals not included. BK7388 
(125 pages) $12.97 



COMPUTER CARNIVAL— by Richard Ramella. Your 
child can become a crackerjack computerist with the 
sixty TRS-80 Level II programs in COMPUTER CARNI- 
VAL. This large-type, spiral bound book for beginners 
is a veritable funhouse of games, graphics, quizzes 
and puzzles. Written by 80 Micro columnist Richard 
Ramella, the programs are challenging enough to en- 
sure continued learning, yet short enough to provide 
your child with the immediate delight and reward of 
mastering basic computing skills. And for even greater 
enjoyment, get the CARNIVAL COMPANION, a 30-min- 
ute cassette containing all the programs in the book. 
Eliminates tiresome typing and lets your child spend 
more time enjoying the programs. BK7389 $16.97 
CC7389 Book and Cassette $24.97 

TEXTEDIT— A Complete Word Processing System in 

Kit Form — by Irwin Rappaport. TEXTEDIT is an inex- 
pensive word processorthat you can adapt to suit your 
differing needs— -from form letters to lengthy texts. 
Written in TRS-80 Disk BASIC, the system consists of 
several modules, permitting the loading and use of on- 
ly those portions needed. A disk is also available which 
provides the direct loading of the modules, however, 
the book is required for documentation. For Model I 
and III with TRSDOS CONVERT., one disk drive (2 disk 
drives or copy utility needed to transfer to system 
disk). Runs under TRSDOS 2.2/2.3. May not function 
under other systems. BK7387S9.97 Disk DS7387 $19.97 

KILOBAUD KLASSROOM— by George Young and Peter 
Stark. Learning electronics theory without practice isn't 
easy. And it's no fun to build an electronics proiect that 
you can't use. Kilobaud Klassroom, the popular series 
first published in Kilobaud Microcomputing, combines 
theory with practice. This is a practical course in digital 
electronics. It starts out with very simple electronics 
projects, and by the end of the course you'll construct 
your own working microcomputer! 

Authors Young and Stark are experienced teachers, 
and their approach is simple and direct. Whether you're 
learning at home or in the classroom, this book provides 
you with a solid background in electronics — and you'll 
own a computer that you built yourself! BK7386 $14.95 



THE NEW WEATHER SATELLITE HANDBOOK— by Dr. 

Ralph E. Taggart WB8DQT. Here is thecompletely up- 
dated and revised edition of the best-selling Weather 
Satellite Handbook — containing all the information on 
the most sophisticated and effective spacecraft now 
in orbit. Dr. Taggart has written this book to serve both 
the experienced amateur satellite enthusiast and the 
newcomer. This book is an introduction to satellite 
watching, that tells you how to construct a complete 
and highly effective ground station. Not just ideas, but 
solid hardware designs and all the instructions neces- 
sary to operate the equipment are included. An entire 
chapter is devoted to microcomputers and the Weath- 
er Satellite Station, and for the thousands of experi- 
menters who are operating stations. The New Weather 
Satellite Handbook details all the procedures neces- 
sary to follow the current spacecraft. Weather Satellite 
contains Operation Satellite Systems, Antenna Sys- 
tems, Weather Satellite Receivers, A Cathode Ray 
Tube (CRT) Monitor for Satellite Picture Display, A Di- 
rect-Printing Fascimile System for Weather Satellite 
Display, How to Find the Satellite, Test Equipment, Mi- 
crocomputers and the Weather Satellite Station. Sta- 
tion Operations. BK7383 $8.95." 

ANNOTATED BASIC — A NEW TECHNIQUE FOR NEO- 
PHYTES—BASIC programming was supposed to be 
simple — a beginner's programming language which 
was so near to English that is could be easily 
understood. But, in recent years, BASIC has become 
much more powerful and therefore much more difficult 
to read and understand. BASIC simply isn't basic 
anymore. 

Annotated BASIC explains the complexities of 
modern BASIC. It includes complete TRS-80* Level II 
BASIC programs that you can use. Each program is an- 
notated to explain instep-by-step fashion the workings 
of the program. Programs are flowcharted to assist 
you in following the operational sequence. And— each 
chapter includes a description of the new concepts 
which have been introduced. 

Annotated BASIC deals with the hows and whys of 
TRS-80 BASIC programming. How is a program put 
together? Why is it written that way? By observing the 
programs and following the annotation, you can devel- 
op new techniques to use in your own programs— or 
modify commercial programs for your specific use. 
Annotated BASIC Volume 1 BK7384 $10.95 
Annotated BASIC Volume 2 BK7385 $10.95 
Order Both Volumes and Save! BK738402 $18.95 



"Use the order card in this magazine or itemize your order on a separate piece of paper and mail to: 80 Micro Book Department • Peterborough NH 03458. Be sure to include 
check or detailed credit card information. No CO. D. orders accepted. S1. 50 for the first book. $1.00 each additional book for U.S. delivery and foreign surface. For foreign airmail 
$10.00 per book. Please allow 4-6 weeks for delivery. Questions regarding your order 9 Please write to Customer Service at the above address. 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE 



For Toll Free Ordering Call 1-800-258-5473 
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INSIDE LEVEL II — For machine language program- 
mers. This is a comprehensive reference guide to the 
Level II ROMs, allowing easy utilization of the 
sophisticated routines they contain. It concisely ex- 
plains set-ups, calling sequences, variable passage 
and I/O routines. Part II presents an entirely new com- 
posite program structure which unloads under the 
SYSTEM command and executes in both BASIC and 
machine code with the speed and efficiency of a com- 
piler. Special consideration is given to disk systems. 
BK1183S15.95." 

Z-80 ASSEMBLY LANGUAGE PROGRAMMING — by 

Lance A. Leventhal. This book thoroughly covers the 
Z-80 instruction set, abounding in simple programming 
examples illustrating software development concepts 
and actual assembly language usage. Features in- 
clude Z-80 I/O devices and interfacing methods, as- 
sembler conventions, and comparisons with 8080A/ 
8085 instruction sets and interrupt structure. BK1177 
$16.99 - 

TRS-80 ASSEMBLY LANGUAGE — by Hubert S. Howe, 
Jr. This book incorporates into a single volume all the 
pertinent facts and information you need to know to 
program and enjoy the TRS-80, Included are clear 
presentations of all introductory concepts, completely 
tested practical programs and subroutines, details of 
ROM and RAM and disk operating systems, plus com 
prehensive tables, charts and appendices. Suitable for 
the first time user or more experienced users BK1217 

$9 95 ■ 

PROGRAMMING THE Z-80— by Rodnay Zaks. Here is as- 
sembly language programming for the Z-80 presented as 
a progressive, step-by-step course. This book is both an 
educational text and a self-contained reference book, 
useful to both the beginning and the experienced pro- 
grammer who wish to learn about the Z-80. Exercises to 
test the reader are included BKl 122 $15.95 : 
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Nanos System 
REFERENCE CARDS 

FOR MODELS I, II, III, COLOR AND 
POCKET COMPUTERS! 

At last! No more flipping through the pages ot the 
BASIC manual! No more working through the maze 
of machine language instructions! These cards 
completely summarize the BASIC and Assembler 
manuals! FEATURES INCLUDE: 
memory map, eyeball graphics, math instructions, 
BASIC commands, store instructions, BASIC func- 
tions, load instructions, BASIC statements, move 
instructions, special keys, exchange instructions, 
PRINT USING examples, shift instructions, BASIC 
special characters, compare instructions, BASIC 
and assembler messages and codes, branch in- 
structions, BASIC facts, data alteration instruc- 
tions, reserved words, I/O instructions, ROM 
routines, complete character chart with graphics 
and space-compression codes, hex-dec chart, con- 
trol code cross-reference, assembler instructions, 
commands and operators, screen line layout, editor 
commands and subcommands, condition code 
easy access. 

Pius— "magic graphics number— a mystery until 
you learn how to use it! 

Designed as a fold-up, accordion-style card, fits in 
your pocket. Panels organized for optimum speed 
for reference. . „ •» 

Model I: BASIC and Assembler FC1002 $4.95 

Model II: BASIC and Assembler FC1005 $5.95 

Model lUComciands and Utilities FC1010 $3.95 

Model III: BASIC and Assembler FC1005 $5.95 

Colon BASIC and Extended FC1 006 $4.95 

Z-80: Microprocessor FC1 011 $4.95 

ZX80,ZX81 and Timex Sinclair 1000: FC1012 $5.95 
Pocket Computer. BASIC FC1009 $2.95 

Apple II and Apple II Plus: BASIC and 6502 FC1008 

$4.95 
Apple II and Apple II Plus: BASIC only FC1007 $3.95 




LEARNING TRS-80 BASIC-by David A. Lien. Dr. Lien, 
.'."•-) is the author of THE BASIC HANDBOOK and the 
original Radio Shack LEVEL I USER'S MANUAL, has 
compiled a tutorial which includes portions of the 
original USER'S MANUAL, and most of LEARNING 
LEVEL II along with extensive additions. It will com- 
pletely cover the TRS-80 Models I, II, III, and 16 (sorry, 
not the color or pocket computers). It is, of course, writ- 
ten in the easy learning style which readers of Dr. 
Lien's books have come to enjoy. BK1175 $19.95. 



THE BASIC HANDBOOK — SECOND EDITION-by 
David Lien. This book is unique. It is a virtual 
ENCYCLOPEDIA of BASIC. While not favoring one 
computer over another, it explains over 250 BASIC 
words, how to use them and alternate strategies. If a 
computer does not possess the capabilities of a need- 
ed or specified word, there are often ways to ac- 
complish the same function by using another word or 
combination of words. That's where the HANDBOOK 
comes in. It helps you get the most from your com- 
puter, be it a "bottom-of-the-line" micro or an oversized 
monster. BK1 174 $19.95. * 
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PROGRAMMING THE 6809 -by Rodnay Zaks and 
William Labiak. This book exp ains how to program the 
6809 in assembly language, covering all aspects pro 
gressively and systematically: basic programming tech- 
niques and devices, application examples, data struc- 
tures, and program development. No prior programming 
knowledge is required. BK1264 $14.95 

TRS-80 COLOR COMPUTER GRAPHICS— by Don Inman 
with DYMAX. This exciting book will enable you to ex- 
plore all the graphics capabilities of Extended Col- or 
BASIC. You'll learn how to create interesting graphics to 
enhance your own computer programs. Also included 
are application programs and subroutines that will be in- 
valuable when you begin writing your own graphics pro- 
grams. Each chapter ends with a summary and practice 
exercises. BK1266 $14.95 

ASSEMBLY LANGUAGE GRAPHICS FOR THE TRS-80 
COLOR COMPUTER — by Don Inman and Kurt Inman 
with DYMAX. This dynamic new book uses sound and 
graphics to show you how 6809 assembly language can 
be used to perform tasks that would be difficult or im- 
possible with BASIC. All of the techniques are explained 
in a hands-on approach. Learn how to tailor you own pro- 
gramming style, from editing assembling, executing 
and even debugging, to making your own programs run 
quickly and efficiently. It is also packed with video 
screen diagrams which explain each step of the process 
Of creating your own graphics BK1277 $?? ?? 

6809 MICROCOMPUTER PROGRAMMING AND 
INTERFACING- by Andrew C Staugaard, Jr. Getting 
involved with Tandy's new Color Computer? If so, this 
new book from the Blacksburg Group will allow you to 
exploit the awesome power of the machine's 6809 
microprocessor. Detailed information on processor ar- 
chitecture, addressing modes, register operation, data 
movement, arithmetic logic operations, I/O and inter- 
facing is provided, as well as a review section at the 
end of each chapter. Four appendices are included 
covering the 6809 instruction set, specification sheets 
of the 6809 family of processors, other 6800 series 
equipment and the 6809/6821 Peripheral Interface 
Adapter. This book is a must for the serious Color Com- 
puter owner. BK1215 $13.95.* 



PROGRAMMING IN PASCAL — by Peter Grogono The 
computer programming language PASCAL was the 
first language to embody in a coherent way the con- 
cepts of structured programming, which has been 
defined by Edsger Dijkstra and C.A.R. Hoare. As such, 
it is a landmark in the development of programming 
languages. PASCAL was developed by Niklaus Wirth 
in Zurich: it is derived from the language ALGOL 60 but 
is more powerful and easier to use. PASCAL is now 
widely accepted as a useful language that can be effi- 
ciently implemented, and as an excellent teaching 
tool. It does not assume knowledge of any other pro- 
gramming language and therefore suitable for an in- 
troductory course. BK1 140 $12.95. * 

INTRODUCTION TO PASCAL— By Rodnay Zaks. A 
step-by-step introduction for anyone wanting to learn 
the language quickly and completely. Each concept is 
explained simply and in a logical order. All features of 
the language are presented in a clear, easy-to-under- 
stand format with exercises to test the reader at the 
end of each chapter. It describes both standard 
PASCAL and UCSD PASCAL, the most widely used dia- 
lect for small computers. No computer or program- 
ming experience is necessary. BK1189 $15.95 



•Use the order card in this magazine or itemize your order on a separate piece of paper and mail to: SO Micro Book Department • Peterborough NH 03458 Be sure to include 
check or detailed credit card information. No C.O.D. orders accepted. $1 .50 for the first book. $1 .00 each additional book for U.S. delivery and foreign surface. For foreign airmail 
$10.00 per book. Please allow 4-6 weeks for delivery. Questions regarding your order? Please write to Customer Service at the above address. 
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SPECIAL INTERESTS 




DOS RANDOM ACCESS & BASIC FILE HANDLING — By 

H.J. Muller. This book was written for the nonprogram- 
mer. It is ideal tor the businessman or professional who 
needs to solve and write special programs for in-house 
business problems, or the hobbyist who wants to go be- 
yond the cassette recorder and into disk storage and file 
manipulation. It is written as a self-instruction tutorial 
and will provide anyone with some Level II experience 
with the ability to write special programs for inventories, 
mailing list, work scheduling, record keeping, research 
project data manipulation, etc. 150 paqes. BK1236 
$29.50 



TRS-80 DISK AND OTHER MYSTERIES-by Harvard C. 
Pennington. This is the definitive work on the TRS-80 

Mode! i disk system, it is full ot detailed "How to ' infor- 
mation with examples, samples and in-depth explana- 
tions suitable for beginners and professionals alike. 
The recovery of one lost file is worth the price alone. 
BK1181 $22:50.' 

MICROSOFT BASIC DECODED AND OTHER MYS- 
TERIES— by James Earvour. From the company that 
brought you TRS-80 DISK AND OTHER MYSTERIES. 
Contains more than 6500 lines of comments for the dis- 
assembled Level II ROMs, six additional chapters de 
scribing every BASIC subroutine, with assembly lan- 
guage routines showing how to use them. Flow charts 
for all maior routines showing how to use them. Flow 
charts for all major routines give the reader a real in- 
sight into how the interpreter'works. BK1186 $29.50.* 



MACHINE LANGUAGE DISK I/O AND OTHER MYS- 
TERIES— by Mike Wagner. The purpose of this book is to 
inform anyone familiar with Z-80 assembly language pro- 
gramming how to control the TRS-80 Model I and III disk 
drive interrupt systems. Driver routines for every func- 
tion described, with abundant examples, are included in 
this book. It also covers utilization of TRSDOS assembly 
language file I/O calls and techniques. BK1258 $29.95 

MOD III ROM COMMENTED — Soft-Sector marketing, 
1981. This book is not an instruction course on 

machine language, but rather an information source 
that you can use time and time again for writing your 
own program or patching old Mod I machine language 
programs. It contains an explanation of ROMs in the 
latest machine from Tandy, with most every location of 
the 14K ROMs listed, with comments. BK1235 $22.50. 

THE CUSTOM TRS-80 AND OTHER MYSTERIES— by 

Dennis Kitsz. More than 300 pagesof TRS-80 customiz- 
ing information. With this book you'll be able to ex- 
plore your computer like never before. Want to turn an 
8 track into a mass storage unit? Individual reverse 
characters? Replace the BASIC ROMs? Make Music? 
High speed, reverse video, Level I and Level II? Fix it 
if it breaks down? All this and much, much more. 
Even if you have never used a soldering iron or 
read a circuit diagram, this book will teach you how! 
This is the definitive guide to customizing your 80! 
BK1218 $29.95.* 

BASIC FASTER AND BETTER AND OTHER MYS- 
TERIES— by Lewis Rosenfelder. You don't have to 
learn assembly language to make your programs run 
fast. With the dozens of programming tricks and 

techniques in this book you can sort at high speed, 
swap screens in the twinkling of an eye, write INKEY 
routines that people think are in assembly language 
and add your own commands to BASIC. Find out how 
to write elegant code that makes your BASIC really 
hum, and explore the power of USR calls. BK1221 
$29.95.* 

THE CP/M HANDBOOK (with MP/M)-by Rodnay Zaks. 
A complete guide and reference handbook for CP/M — 
the industry standard in operating systems. Step-by- 
step instruction for everything from turning on the 
system and inserting the diskette to correct user 
discipline and remedial action for problem situations. 
This also includes a complete discussion of all ver- 
sions of CP/M up to and including 2.2, MP/M and 
CDOS. BK1187 $14.95.* 

MASTERING CP/M — by Alan R. Miller For advanced 
CP/M users or systems programmers who want max- 
imum use of the CP/M operating system, this book 
takes up where the CP/M Handbook leaves off. It will 
give you an in-depth understanding of the CP/M 
modules such as CCP (Console Command Processor), 
BIOS (Basic Input/Output System), and BDOS (Basic 
Disk Operating System). It explains the incorporation 
of additional peripherals to the system, console I/O, 
the use of the file control block and much more. It also 
includes a library of useful macros and a comprehen- 
sive set of appendices. BK1263 $15.95 
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TRS-80 DATA COMMUNICATIONS SYSTEMS — by 
Frank J. Derfler. If you are interested in using the 
TRS-80 as a terminal or message system, this is the 

book to buy. It covers communications, technical ma- 
terial, software and hardware for the entire TRS-80 

family of machines. BK1245 $12.95 

MODEL III TRSDOS COMMENTED-Published by Soft 

Sector Marketing. This book is intended to show moder- 
ately experienced programmers the organization and in- 
ner workings of a typical Z-80 disk operating system. 
Every function of the operating system has been decod- 
ed and explained, not to bit-by-bit detail, which would be 
a monstrous task, but rather at an instruction-by- 
instruction level. Many not-documented features of the 
system have been found, as well as a few errors. The 
techniques shown in the system coding will be useful as 
a guide to programmers interested in systems program- 
ming at an assembler level. 8K1257 $29.35 

INSIDE SUPER UTILITY PLUS— by Paul Weiner. This 

book really explains all the mysteries and functions of 
that remarkable program— Super Utility Plus. This is an 
excellent tutorial on TRS-80 disks, it contains detailed in- 
structions for recovering bad disks using Super Utility 
Plus, and also documents previously undocumented 
features of SUP. This is an excellent companion book to 
the Super Utility Plus manual. BK1269 $'9.95 

TRSDOS 2.3 DECODED AND OTHER MYSTERIES-by 
James Less Farvour. This book is intended to guide the 

beginning or experienced system programmer through 
the internal operations of the TRSDOS operating system 
used on the Radio Shack Model I computer. A knowledge 

Of basic computer architecture and assembly language 
programming is assumed, however the significant fea- 
tures of both are presented in the text. An absolute must- 
have for Model I owners! BK1276 $29.95 



MONEYMAKING/BUSINESS 



HOW TO MAKE MONEY WITH COMPUTERS— In 10 in- 
formation-packed chapters. Jerry Felsen describes 
more than 30 computer-related, money-making, high 
profit, low capital investment opportunities. 

BK 1003 $15.00 * 

SMALL COMPUTERS FOR THE SMALL BUSINESS- 
MAN— By Nicholas Rosa and Sharon Rosa. Here is an 

excellent guide for businessmen who are interested in 
finding out what a computer can do for their business, 
but are not interested in becoming 'computer nuts." 
The authors are consultants who assess the computer 
needs of businessmen and who touch base with every- 
thing necessary to consider before purchasing a com- 
puter. The authors tell leaders how and where to shop 
successfully for a computer; what to expect their com- 
puter to do for them; how large a computer to consider; 
how to select software; whether or not to use a consul- 
tant; how to introduce the computer to the staff, and 
much more. Specific topics addressed include ac- 
counting records, warehousing, light factory operation 
and parts inventories. BK1223 $12.95* 
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SO YOU ARE THINKING ABOUT A SMALL BUSINESS 
COMPUTER — By Richard G. Canning and Nancy C. 
Leeper. For a well-organized manual on the process of 
selecting the right computer system for your small 
business, this text can't be excelled. Designed to intro- 
duce the novice In dala and word processing to the real 
benefits of computerization, the book is filled with 
money- and time-saving tips, photos of equipment, 
lists of suppliers, prices, explanations of computer ter- 
minology, and helpful references to additional sources 
of Information. Everyone contemplating a first com- 
puter installation should have this book. BK1222 
$14.00* 



USING MICROCOMPUTERS IN BUSINESS— By Stan 
Veit Written by the owner/manager of one of the coun- 
try's largest computer stores selling systems to small 

businesses, this book is an essential background 
briefing for any purchaser of microcomputer systems 
or software. In a fast-moving style without the usual 
buzz words and technical jargon, Veit answers the 
most often asked questions. CONTENTS: How a com- 
puter can help your business; Data base management 
to advance your business; Effective use of word pro- 
cessing; How to use a computer without disrupting 
your business; Buying your system; Computer lan- 
guages; What are the limitations ot the microcom- 
puter; Software: where to find it, how to judge it; What 
to do when the computer goes down BK ! 225 $9.95* 

BUSINESS SYSTEM BUYER'S GUIDE-By Adam Os- 
borne with Steven Cook. When you enter .he market 
place of small business computers, you face a bewil- 
dering array of products, prices, features and fabtes. 

This guide cuts through the jargon and unravels the 
task of buying the right computer system. This book 
provides solid information on how to determine your 
needs, how to choose software and hardware for all 
business applications, what to expect from vendors, 
what to avoid, and what questions you must ask. It also 
provides a wealth of detailed information on products, 
manufacturers, retailers and the whole microcomputer 
market. BK1229 $9.95 
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el 4 Opens in Boston 

But Model 100 steals the show at BCS gathering. 



1 ne day after it hit the stores, the 
'^aar Model Ill's successor came out 
in society: Tandy's new Model 4 made 

its debut on April 27 in downtown Bos- 
ton's New England Life Hall. The star 
of the evening, however, was the TRS-80 
Model 100 portable. 

The unveiling was sponsored by the 
Boston Computer Society, which earlier 
this year played host to Apple Comput- 
er's Lisa and Morrow's Micro Decision. 
For the launch of the Models 4 and 100, 
Tandy attracted onlookers with four of 
each of the new machines, from a 
Model 100 displaying a graphics demo 
to a 4 flaunting TRSDOS 6.0's impres- 
sive directory of utilities. 

Several audience members already 
owned Model 100s, and one Model III 
user told 80 Micro he was interested in 
the Model 4 upgrade. Most others inter- 
viewed were not Radio Shack zealots, 
but intrigued by the new portable: A 
publisher of fire-protection software 
envisioned commissioners' using Tel- 
com at fire sites, and an IBM PC owner 
said, "It (the 100) doesn't replace a 
larger machine, but for its purpose I 
think it's quite good." Asked whether 
she thought the 100 had an advantage 
over bulkier portables like the Osborne, 
she answered, "Oh, good Lord, yes." 

The evening started with an introduc- 
tion to Radio Shack. President John 
Roach described the Fort Worth firm as 
"a distribution system for the products 
of technology." 

"Tandy and Radio Shack," Roach 
said, "are a little bit different from 
everybody else who competes in this 
business. We're not really a manufac- 
turer, yet we are a manufacturer. We're 
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Shirley (I) and Roach (r): Proud to bring the 4 and 100 to Boston. (Hub Graphics photo) 



not exclusively a product developer, yet 
we do have product development capa- 
bilities. We're really different because 
we're a controlled distribution system 
that sells our own products under our 
own brand." 



Stressing customer support, Roach 

described Radio Shack's 400 Computer 
Centers as "a resource that will help us 
do the same thing in the microcomputer 
field that we do in all the other fields 
we're in, which is have a nice, signifi- 
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MBIP STAND-ALONE PARALLEL 

PRINTER INTERFACE 

32K Parallel $299.95 

64K Parallel $349.95 

64K Upgrades $179.95 

Serial Versions Also Available 

The MBIP in-line parallel interface works with almost 
any computer/printer combination utilizing a Centronics 
type parallel interface. Available with up to 256K of RAM 
for data buffering, the MBIP can accept very large files 
for buffering as fast as your computer can send it. 

Most computers are able to send data to the printer at 
very high speeds, usually much faster than the printer 
can print it. The MBIP, placed between the computer 
and the printer, accepts this data as fast as the com- 
puter can send it, stores it in it's own memory and then 
sends it on to the printer at the printer's own speed. 
Since the computer has now transmitted all of its data 
to the memory of the MBIP, the compute/ is now free to 
continue useful work while the MBIP dumps its's mem- 
ory to the slower printer. Under normal circumstances 
without a MBIP the computer could be tied up for hours 
on a large file being dumped into the printer costing you 
valuable time and money. 

Using the MBIP's touch sensitive front panel controls, 
multiple copies of your document can be made without 
tying up the computer any further. The MBIP simply 
keeps dumping copies of your document from its mem- 
ory until it has printed the amount of copies you have 
specified. Printing may be halted at any point and con- 
tinued where it left off later. You can even turn your com- 
puter off and MBIP will continue until the print job is 
complete. Additional files may be transmitted to the 
MBIP for processing even while the MBIP is handling 
copies from a previous job. 

The MBIP requires no user modifications of software 
and installs in seconds with virtually any computer (in- 
cluding TRS-80, ATARI, IBM-PC, APPLE, OSBORNE, 
NEC etc.) and any printer (including EPSON, CEN- 
TRONICS, NEC, C.ITOH, IDS, ANADEX, OKIDATA, IBM 
PERSONAL etc.). 




MBP-16K 

EPSON PARALLEL BUFFER 

16,384 Byte Buffer 

16K Epson 80/100 $159.95 

8K Serial Epson 80/100 $159.95 

The MBP-16K is an intelligent Centronics-Compa- 
tible parallel interface for the Epson MX-80, MX-80 F/T, 
and MX-100 printers, with 16,384 bytes of on-board RAM 
for data buffering. 

The buffering capability of the MBP-16K increases 
your data processing efficiency by eliminating the wait 
normally experienced while printing. An Epson printer 
prints at 80 characters per second; at this speed it takes 
about five minutes to print a 16,000 character docu- 
ment. During most of this time the computer is waiting 
for Epson to finish one line so it can send the next. The 
computer can't do anything else because it's tied to the 
printer. By using the MBP-16K it takes the computer only 
four seconds to send a 16,000 character document. The 
Practical Peripherals MBP-16K interface typically ac- 
cepts data as fast as the computer can send it, until full, 
returning use of the computer to you while it handles the 
printing. You can continue with other processing while 
simultaneously printing data from a previous job, 
gaining all the time you normally would have spent 
waiting for the printer to finish. The net result is to elimi- 
nate the computer-waiting-for-printer/printer-waiting-for- 
computer bottleneck, and keep both working. Any 
program that involves printed output will be speeded up 
by using ihe MBP-16K. 

The MBP-16K supports all standard Epson Com- 
mands, is compatible with GRAFTRAX-80, and is plug 
compatible with the standard Epson cable. The MBP- 
16K does not require any user software for control. 

The MBP-16K is easy to install — it simply plugs into 
the existing auxilliary interface connector inside the 
Epson without modification of the printer. 
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cant market share, but really have one 
for different reasons. Radio Shack is 
the full-service dealer. We're trying to 
sell you more than just hardware; we're 
trying to be a support system." 

As for hardware, after alluding to 
Tandy's most recent field of interest, 
telecommunications, Roach concen- 
trated on computers: 

"The pervasiveness of computers is 
by now almost a foregone conclusion. 
Computers are going to be, in whatever 
form, on every desk at school, every 
desk in the office, on the factory 
floor .... The capability to expand the 
mind with computers should and will 
and has already brought some great en- 
hancements to our quality of life." 

Toward that end, he said, "We're 
proud to have made two interesting, 
one possibly revolutionary, computer 
introductions in the past month." 

Roach kepi to general remarks about 
"the electronic desk," or workstation, 
of the future, but his comments on price 
and productivity concerned today's 
Model 100: "You simply cannot afford 
to pay a lot more than a typewriter costs 
to get the functionality that's needed on 
the average desk. What the world really 
needs is a low-cost executive worksta- 
tion that combines the functions (tele- 
phone, dialer, appointment book, cal- 
endar) currently found on your desk. 
When you combine this with network- 
ing, you have the finest productivity aid 
the world has ever had. 

"Clearly the Model 100 can do many 
of the things I've described in addition 
to being portable," Roach concluded. 
"I believe it's the first of a generation of 
not only portable computers, but easier- 
to-use computers." 

While Roach saw the 100 as pioneer- 
ing "much less memory- and software- 
intensive" designs for tomorrow's still 
friendlier and more ubiquitous micros, 
Jon Shirley, Radio Shack's vice presi- 
dent for computer merchandising, de- 
scribed the portable as "a product of 
revolutionary change" for today. 

"While (the 100) does not have disk 
drives," Shirley said, "it does have an 
operating system, and an example of, I 
think, the operating system of the 
future." Pointing to its start-up menu 
of both ROM- and RAM-based pro- 
grams, he declared, "I've always be- 
lieved that the best operating system is 
totally invisible, and in this one we've 
achieved that. 

"This menu approach to operating 
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systems is going to appear on other sys- 
tems very shortly. Microsoft has al- 
ready announced an invisible shell for 
the Xenix system that works exactly like 
this, and what appears on Xenix will 
probably appear on MS-DOS sooner or 
later." 

Shirley even compared the Model 100 
to the Lisa, albeit with tongue in cheek: 
"There was a famous machine intro- 
duced here some time ago, at over 10 
times the price, that almost interacts 
with its programs — though, granted, 
they're much larger — but not quite in 
this way. There are a lot of little glotch- 
es in (the Lisa system); there are no little 
glotches in this machine at this time. 
We'll put those in later." 

Compared to the revolutionary 100, 
Shirley admitted, the Model 4 is "an 
evolutionary product, although we're 
very happy about it. We told our engi- 
neering staff that there were a lot of 
things we wanted to see in a computer at 
the price of our Model III that it didn't 
offer, and after all these features we 
added two more; it had to cost less and 
it had to be totally compatible with the 
III and the Ill's software. They accom- 
plished their task and 1 think they did it 
very well." 

While a cassette Model 4 "is really 
absolutely nothing but a Model III" ex- 
cept for the white case and revised key- 
board, he said, the disk version is both 
entirely Mod III compatible and "an 
all-new computer" under Model 4 soft- 
ware, with an 80-column, 24-line 
display, 64K RAM expandable to 128K, 
sound, and doubled operating speed (4 
MHz) from the Z80A CPU. 

"We put all this stuff in the same 
case, on the same size circuit board, be- 
cause there wasn't any more room in 
there," Shirley recalled. "The primary 
product is a VLSI chip that is a pro- 
grammable screen controller letting us 
have two different screens and two 
modes in one IC. Our thanks really go 
out to the semiconductor folks that 
keep making all these wonderful ad- 
vances possible. Eight-bit processors 
are not dead yet." 

In addition to the hardware advances, 
Shirley praised the TRSDOS 6.0 oper- 
ating system. "It is not invisible to the 
user, yet it does have some neat fea- 
tures," ranging from Memdisk (the ca- 
pability to use part of RAM as a fast 
"disk access" memory) to a communi- 
cations program. "We also added a 
utility to load Model 100 cassette 



tapes," he noted, "although in retro- 
spect I'm not sure why because all it 
takes is a cable between the machines 
and they can talk to each other very 
easily." 

In addition to TRSDOS, Shirley said, 
"We will supply CP/M Plus, the 3.0 
version that supports the whole 128K 
capacity and will be available in a few- 
months." Asked whether the 4 would 
use some other manufacturer's CP/M 
format or "add to the confusion," he 
confessed, "I don't know. The imple- 
mentation is being done by Digital Re- 
search themselves; it is not your normal 
thing done by some guy who says, 'Hey, 
this is the way I'll write the BIOS.' I 
would expect it would be compatible 
with someone else's." 

As for 80-column software, Shirley 
answered, "SuperScripsit will probably 
be the first package that is available. 
Two of the packages being demonstrat- 
ed in pre-release form are VisiCalc, 
which takes advantage of the full 128K, 
and the older version of Scripsit, which 
is probably going to be included in a 
pack that you can take advantage of at a 
fairly low price. There are going to be a 
lot of things for the 4 that you couldn't 
get before because of memory or screen 
limitations." 

(Audience member Tracy Licklider, 
vice president of Software Arts, later 
confirmed Shirley's announcement of 
128K VisiCalc and told 80 Micro that 
his firm's TKlSolver would be available 
for TRSDOS 6.0. "I think it'll be a 
good program for the 4," Licklider 
said.) 

Asked about Radio Shack's view of 
the new machines' market position, 
Shirley answered, "The 4 audience is 
really the Apple market. The Apple's 
got color, but look at their own statistics 
on how many people use it with mono- 
chrome monitors. Color is really the 
game aspect, and we've never really 
thought of this as a good game 
machine. 

"The 100 is certainly appealing to 
business people wanting to communi- 
cate with the home office. It's also, I 
guess, one of the hardest to classify, in 
terms of what its audience is. A 
magazine for IBM PC owners is review- 
ing the 100. We asked them, 'Why are 
you doing this? It's not IBM-compat- 
ible,' and they said, 'Hey, it's a great 
peripheral for my computer.' So we're 
going to see people who think it's a 
peripheral for their systems." 
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Except for one man who asked about 
disks and a CRT for the portable 
("We're not expecting momentarily to 
add additional hardware on the 100") 
and another who wondered why the 4 
didn't have double-sided disk drives 
(" 'Cause we wanted to sell it for $2,000 



with two drives in it. The price trend for 
disk drives has not quite been the same 
as it has in RAM"), the Tandy presen- 
tation seemed to impress the BCS au- 
dience. 

After a question-and-answer session, 
people crowded around the display 



tables to ask more questions and exam- 
ine the machines. One neophyte peered 
intently at a Model 4, pressed the 
orange reset button, and walked shame- 
facedly away as the screen went blank. 
The computer had been running a 
cassette demo. ■ 




U.S. must prepare for "two wars," says Senator. 



he challenge from Japan is as seri- 
ous to our long-term security as the 
challenge from the Soviet Union. It's 
different, it's more benign, but in terms 
of the challenge to our industrial infra- 
structure it's just as important." 

With those words, U.S. Senator Paul 
Tsongas warned computer retailers and 
industry representatives at a seminar 
titled "The Small Systems Economy" 
not to be complacent about America's 
electronics success. The keynote speaker 
at a Framingham, MA meeting on May 
2, the Massachusetts Democrat began 
his remarks on "High-Tech Challenge 
from the Asian Rim" by addressing two 
reporters who were taking notes on 
TRS-80 Model 100s: "Where were 
those two products that you're working 
on made? Japan. That's my speech, 
ladies and gentlemen." 

In the seminar, sponsored by Com- 
dex producers The Interface Group, 
Tsongas mentioned the prosperity of 
high-tech firms along Massachusetts' 
Route 128, sometimes known as "Sili- 
con Valley East," and Wang Industries' 
role as a major employer in his home 
town of Lowell. However, he said, to- 
day's profits are no guarantee of 1990's: 
"The basic approach from many people 
in Washington is that everything is fine 
and that we can just keep going on the 
same way. What we should be con- 
cerned about, though, is not where we 
are today but where we're going to be 
tomorrow. And I would suggest to you 
that the trends are not favorable." 

As a member of the Senate commit- 
tees on Foreign Relations and East 
Asian and Pacific Affairs, Tsongas has 
strong opinions on Japanese versus 
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Tsongas: It takes the three R's and R&D to 
compete with Japan. 

American investment policy: "The Jap- 
anese are very Darwinian in determin- 
ing where their money's going to go and 
where the future is. The U.S. has a very 
different approach. We tend to focus 
on those industries that are in decline 
and try to save those industries. 

"The Japanese have a sunrise men- 
tality; we have a sunset mentality. Or, as 
one businessman put it lately, we have a 
mortician's view of an industrial base." 

Another grave handicap, Tsongas 
noted, involves our education system. 
In a report titled A Nation at Risk, the 
National Commission on Excellence in 
Education described the U.S. school 
system as so mediocre that, had a for- 
eign power somehow promoted its de- 
cline, we would consider the process an 
act of war. 

"The Japanese have math and 



science courses in school every year," 
Tsongas said, "as opposed to the U.S. 
where if you're interested in dance and 
basketweaving you can get your educa- 
tion in that and then try to take on the 
Third World nations in high technolo- 
gy." Combined with the spiraling cost 
of capital, our investment and educa- 
tional priorities put America at a disad- 
vantage: 

"World War II was won by the U.S., 
given the sacrifice and bravery on both 
sides, because we produced more planes 
and ships and tanks and eventually 
overwhelmed them with our capacity," 
Tsongas declared. "In this next war, if 
they produce more engineers than we 
do, commit three percent of their GNP 
to research and development and we 
don't, have a better educational system, 
a better cost of capital, there is an in- 
evitability to their ascendancy and an 
inevitability to our decline." 

What to do? "We arc not monocul- 
tural, so we're not going to emulate 
Japan; there's no reason why we have 
to," the Senator said. "The Japanese 
are more structured, are good at taking 
an idea and implementing it. We're a 
much more dynamic society." 

Nevertheless, he argued, it would be 
beneficial to follow Japan and other 
countries in their commitment to a per- 
centage of the gross national product 
for R&D. While skeptical of France's 
state-controlled push in telecommuni- 
cations, citing the Concorde as an ex- 
ample of government financing gone 
wrong, Tsongas believes that laissez- 
faire is no longer practical: "One ex- 
ecutive said to me recently, T don't 
mind competing with mv Japanese 
counterpart, but I can't compete with 
him and japan. 5 " 

Second, Tsongas endorsed the con- 
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cept of "a high-tech Morrill Act," giv- 
ing the nation's educational system a 
boost similar to that which launched the 
"land-grant colleges" of the 19th cen- 
tury. Such a scheme would benefit both 
children — Tsongas praised a computer 
literacy program now operating in the 
Cambridge, MA schools ("We want 
that program to be in place in every 
Massachusetts city and town by Sep- 
tember 1984") — and adults, such as 
middle-level managers sent from Digital 
Research back to M.I.T. for a semester. 

"It would be an education in basic 
skills, coming from industry, working 
with a state agency, and matched 

dollar-for-dollar by the Feds, with use 
of Federal money but no Federal direc- 
tion of ideas," Tsongas proposed. 

In his summary, the Senator returned 
to the analogy of military preparedness: 
"What we need in this country is a reali- 
zation that we're in trouble. What is 
lacking in this country is a sense of ur- 
gency, a sense of the continuing capac- 
ity not only of Japan — when Atari left 
California they didn't go to Japan, they 
went to Taiwan -but ol the so-called 
mini- Japans along the Asian rim." 

The U.S., he concluded, must be pre- 
pared to wage "the two wars," one 
against the USSR and one of economic 
competition with the East. Putting all of 
our resources into the former and ignor- 
ing the latter, he threatened, would 
bring disastrous results. 

A week later, The Wall Street Jour- 
nal embraced Tsongas' metaphor: In a 
May 11 story headlined "Japan, U.S. 
Gird for Microchip War," Urban C. 
Lehner reported that "the conviction is 
growing that Japan will deal the U.S. a 
devastating defeat" in the struggle to 
produce and sell 256K RAMs, which 
could "mark the beginning of the end 
of the U.S. lead" in other semiconduc- 
tor work. 

After ' 'its loss in the 64K RAM war , " 
Lehner wrote, the U.S. has few firms 

left with the resources or inclination to 
enter the fray against the Japanese 
again. The article quoted executives of 
two American companies, who said 
that "chances of the U.S. doing very 
well in the 256K RAM. . .market are 
highly unlikely" and "It's quite reason- 
able to assume a Japanese victory." An 
unidentified Silicon Valley spokesman 
summarized things with the words, 
"We are in deep sushi." ■ 
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Retailers discuss micro sales strategies. 



Besides competition from the East 
(see above), computer dealers have 
their American customers to worry 
about. Other speakers at the Framingham 
symposium told the assembled retailers 
and ISO (independent sales organization) 
vendors of two increasing demands: 
after-sales help for novice owners, and 
integrated product lines for those wish- 
ing to upgrade their systems. 

Peter Lowber, a market analyst for 
The Yankee Group, described the fall- 
out that occurs when "users acquire a 
personal computer and find that they 
have no idea what to do with it. And 
they go back to the computer store and 
find that the people there don't have 
any idea either." Price and other things 
being equal, Lowber said, people pre- 
fer to buy equipment from vendors in- 
stead of retail outlets, citing reliability, 
vendor reputation, and service and 
maintenance. 

Offering those attractions at the retail 
level is the goal of H.E. James Finke, 
whose Internet worx Inc. chain takes ex- 
isting computer stores and adds "warm- 
ware — cosseting, nurturing, tender lov- 
ing care of the owner who may otherwise 
have been mystified by his purchase." 

The home computer boom, Finke 
said, became strong in 1982 and was ac- 
celerated substantially by Texas Instru- 
ments' 99/4 rebate: "TI. . .created an 
impetus that is still with us today. That 
impetus is measured in the millions of 
units." The introduction of easy-to-use 
micros at affordable prices, he said, 
rivals the advent of TV in the 1950s as 
"a revolution in how people use their 
time and resources. Each year, more 
machines are being made than are in the 
installed base." 

A consumer product, according to 
Finke, by definition used to need no 
more than an 8 Vi -by- 11 -inch sheet by 
way of documentation. "The right of 
Americans to buy a complex piece of 



technology, plug it in, and use it with- 
out reading an instruction manual is an 
inalienable right of being an American 
citizen." The home computer has 
changed that. While rebates and low 
prices are moving computers off the 
shelves at discount chains, buyers are 
disappointed when they return with 
questions. Expecting computing advice 
from a salesclerk can be like asking a 
McDonald's cashier about the right wine. 

By contrast, when "an entry-level 
buyer wants more than a box handed to 
him by a clerk at one of these stores," 
ISOs and other retail outlets can carve 
out a market share with instruction and 
service — to use Finke's term, warm ware. 

It seems that Finke's idea of added 
value, help beyond high-volume mer- 
chandising, endorses Tandy's percep- 
tion of its Radio Shack stores. A former 
Tandy competitor as previous president 
and CEO of Commodore, Finke agreed 
up to a point but had reservations about 
the Shack's exclusivity: 

"Tandy has capillary market pres- 
ence through its six or seven thousand 
individual Radio Shack stores and its 
400 Computer Centers. I think they are 
beginning to feel the limitations of not 
selling through independent sales or- 
ganizations and mass merchandisers. 
However, their avowed aim is not mar- 
ket or sales success but return on share- 
holders' equity, and if that's their aim 
they can do that without market 
share." 

Computer users, particularly busi- 
nesses, don't stay rookies for long. 
When owners want to upgrade from 
micro to mini, Lowber said, "Some of 
these start-ups, Apple included, can't 
do that." DEC and IBM, he declared, 
profit by having integrated product 
lines, selling personal computers as well 
as larger machines. 

"There are a lot of small businesses in 
this country, and they really haven't got 
their operations on line yet," Lowber 
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said. "Maybe they've got general ac- 
counting." As more businesses comput- 
erize more thoroughly, he predicted, the 
decade will see an increasing demand 
for hardware, software, and support. 

Edson DeCastro, president of Data 
General Corp., dismissed Finke's 
K-Mart shoppers while agreeing with 
Lowber's business buyers. "Some per- 
sonal computers could very well be- 
come a passing fad, like the hula 
hoop," DeCastro said. "We could see 
some computers enjoy initial accep- 
tance, and make it through a couple of 
Christmas buying seasons, before being 
relegated to the basement with other 
toys. It is quite likely that the personal 
computer business for home entertain- 
ment will become a commodity business 
like that for calculators and radios, with 
most production done in such countries 
as Thailand and Korea." 

Data General's strategy, he said, cen- 
ters on the business and professional 
market, where margins are higher and 
there's less competition from high-vol- 
ume Japanese vendors. DCs new 
micro, expected this summer, is for this 
audience: "What we're going to bring 
that isn't in the market today is 
coherence. We're going to bring a prod- 
uct line that fits together, one that al- 
lows a customer to come in at the low 
end and move on up." 

Data General hasn't been in the lime- 
light since Tracy Kidder published The 
Soul of a New Machine, but DeCastro 
was optimistic about his firm's pros- 
pects: "We're in a first-time buyer 
market now. In two or three years, we 
may be in a replacement market, which 
will be more difficult for single micro 
vendors .... The talk today is of the hot 
new micro vendors, but don't sell the 
traditional vendors short in competing 
in new markets. We may be old dogs, 
but we might be able to learn new 
tricks." 

Still, the audience seemed inclined to 
view DG's move to micros, especially 
since the company plans to bypass retail 
stores in favor of its existing minicom- 
puter distribution channels, as too little 
and too late. Speaking before DeCas- 
tro, Finke described home and mass- 
market sales as "the computer revolu- 
tion of our time. ... I doubt that any of 
the minicomputer manufacturers have 
the momentum to catch up in any way, 
shape, or form to this, and not the 
Japanese either." 
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In fact, the name most mentioned at 
the symposium was not Data General 
but Bell; events since the breakup of 
AT&T indicate that the telephone titan 
is about to add computing power to its 
PBX and communications equipment. 
One tidbit that kept attendees buzzing 
was a quote from Archie McGill, presi- 
dent of American Bell's Advanced In- 
formation Systems division, in the April 
18 Compuierworld: 



HARDWARE 



"When we talk about terminals, we 
are really talking about workstations. 
It's very obvious that once you develop 
an intelligent workstation, as we have, it 
provides the basic capability to support 
multiple functions such as word pro- 
cessing and personal computing. 

"We expect to have an effective 
family of intelligent workstations. 
There will be additional announcements 
in 1983." ■ 
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Mod 100 competitors debut at Comdex. 



By Ken Sheldon 



Spkciai to 80 Micro 

The TRS-80 Model 100 has been 
called the harbinger of a new wave 
of briefcase-sized portable computers. 
If this spring's Comdex in Atlanta is 
any indication, the 100's success might 
be largely responsible for the wave's size. 

As always at the computer trade 
show, well-established manufacturers 
boasted massive, elaborately designed 
displays while small start-up companies 
tried to attract dealers, venture capital, 
and press attention. This year, the most 
attention went to portables. 

Teleram Communications and Grid 
Systems, which entered the notebook 
micro market before Tandy, exhibited 
their business-oriented, bubble-memory 
machines, the Teleram T3000 ($2,495) 
and Grid Compass ($8,150), the latter 
scheduled to offer the popular MS-DOS 
as well as its proprietary operating sys- 
tem. At the Epson booth, company rep- 
resentatives said that word processing 
software would soon be available for 
the HX-20. 

A new company, joining Teleram 
and Grid in the higher-priced, business- 
oriented segment of the portable field, 
was Gavilan Computer Corp., which 
treated members of the press to a cham- 
pagne breakfast in order to show off the 
Gavilan "mobile office" for executives 
on the move. 

The Gavilan features an eight-line, 
66-character LCD screen display, the 
Intel 8088 16-bit microprocessor, low- 
power CMOS circuitry, 80K of internal 
memory (of which 32K is available to 
the user), a built-in 3-inch microfloppy 



disk drive for another 320K of storage, 
and a 300-baud modem. In addition, a 
touch panel or "solid-state mouse" 
allows users to control the cursor and 

choose menu items with a touch of the 
finger. 

The portable's proprietary software 
allows users to pass data back and forth 
between application packages, which 
are available on disk or plug-in modules 
known as "capsuleware." According to 
a company spokesman, these capsules 
are so precisely designed that if their 
labels were any thicker, the cover plate 
wouldn't close over them — an indica- 
tion of how hard it is to fit a lot of com- 
puter in a small package. 

Other modules let users add 32K of 
RAM or EPROM to the system; these 
expansion capsules have their own bat- 
teries to store data for up to a year. 

Besides the built-in and applications 
software, the Gavilan includes the MS- 
DOS operating system with Basic and 
Pascal. The whole package weighs nine 
pounds (15 with an optional dot-matrix 
printer) and measures 2.9 by 11.4 by 
1 1.4 inches. 

What's the catch? To begin with, the 
price: at $3,995, the Gavilan will have a 
hard time stealing customers away from 
Radio Shack, whose 32K Model 100 
sells for under $1,000. Still, Tandy's 
price doesn't seem to bother the Gavi- 
lan folks, who feel that executives can 
afford to pay for their portable's inno- 
vative, easy-to-use features. 

Another edge for Radio Shack is that 
the Model 100 is on the shelves and sell- 
ing today, while Gavilan doesn't expect 
volume shipments until later this year. 



FREE 

business software 
directory 

• Radio Shack's Model I, II, III. 

• Heath's MBASIC and HDOS 

• CPM: Xerox, Alto... 

• IBM Personal Computer 
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(GL) superior to either the Osborne (SBSG & Taranto) 
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Data base manager, integrated accounting package 
(AR, AP, GL & Payroll), inventory, word proces- 
sing, and mailing list. Compare and be selective ! 
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rrwARE 

for the TRS-80 Model H 

Patient Data Management System, 

a comprehensive medical/insurance 
billing system. 

• Insure, a life insurance agency 
management system. 

Other programs available upon request. 
Call or write today. 
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TRS 80™ Model I & III 

External Mini Disk Drives 





Singh 



le Chassis 

With Power Supply: 

Fully assembled silver chassis with external card edge connector for 
easy cable installation. Chassis includes power supply and one Tan- 
don drive. 

• TM 100-1 

With Chassis 

• TM 100-2 

With Chassis 



$235 
$305 



Tandon Bare Drives: 

• TM 100-1 

Single Sided 40 Track 

• TM 100-2 

Double Sided 40 Track 

• TM 848-1 

8" Half Height Single Sided 

CDC Bare Drives: 

• 9409 

5V4 ' ' Double Sided 40 Track 



$179 
$249 
$300 

$249 



Printers 



Epson: 

MX80 W/Graftrax $399 

FX80 '569 

MX100 W/Graftrax $649 

Star-Micronics: 

Gemini-10 »319 

Gemini-15 $469 

Smith Corona: 

TPI *499 



Okidata: 

ML82A $429 

ML83A $689 

ML92 $539 

C-ltoh: 

Prowriter $395 



Brother: 
HR1 



$789 



Free Shipping! 

Order Now - Toll Free 
00-531-5475 (if outside of 
(512) 250-1523 (in Tev, 
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VISA • MasterCard • Money Order * Cashier's Check 
Add 5°/o Sales Tax If Texas Resident 
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Asked what the portable's two function 
keys were for, a Gavilan software de- 
signer said, "We haven't really decid- 
ed yet." 

In one demonstration, the designer 
attempted to use the touch panel to 
scroll down a text file, only to have the 
lines merge together into an illegible 
mass. His comment was, "Gee, it 
shouldn't have done that." As with 
other Comdex vendors, it seemed Gavi- 
lan had obtained an excellent booth 
location before being quite ready to 
show the product. 

A few aisles away, NEC Home Elec- 
tronics launched a more direct challenge 
to Radio Shack, introducing the Model 
100's closest competitor. In fact, the 
NEC PC-8200 is a near twin of the 
TRS-80 portable — the same firm, 
Kyocera Electronics of Japan, makes 
both machines, the U.S. version sold by 
Tandy as the Model 100. 

The PC-8200 features the same eight- 
line, 40-character display and text edit- 
ing and Telcom software as the 100; it 
does not have the 100's modem or ad- 
dress and schedule programs, but 
boasts a floppy disk expansion port and 
adapter for a full-size CRT display. 

A 32K RAM pack can be plugged in- 
to the NEC portable, but users cannot 
span or address both it and internal 
RAM simultaneously. Finally, the NEC 
has 10 function keys; the 100 has eight, 
plus four dedicated keys (Paste, Label, 
Print, and Pause/Break). 

When the original PC-8200 was re- 
leased in Japan, some weeks before its 
TRS-80 brother debuted on this side of 
the Pacific, NEC general manager Tom 
Priestley said that a U.S. introduction 
date is "not until next year, at the 
earliest." At Comdex, however, NEC 
exhibitors said the 8200 would be on 
sale by the end of the summer — al- 
though the model on display still had 
Japanese characters on the keys. 
Whether the success of Tandy's porta- 
ble hastened NEC's move is open to 
question. 

Ed Juge, Radio Shack's director of 
computer merchandising, gave Fort 
Worth's side of the story in an appear- 
ance on CompuServe's software authors' 
special interest group. The Model 100, 
he said, "had been defined before NEC 
negotiations began," but the addition 
of features such as automatic dialing 
and log-on delayed its appearance until 
after the 8200's debut in Japan. 
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"We have an exclusive deal with the 
manufacturer, for the U.S.A.," Juge 
claimed. "He won't provide NEC with 
a U.S. model. If NEC chooses to im- 
port their Japanese model (maybe 
they'll change the Kana keycaps them- 
selves), so be it . . . 

"I don't know their U.S. setup well, 
but I don't think they have significant 
distribution or service capability, so 
while I'd like to see us stay exclusive, I 



doubt the competition would prove too 
traumatic," Juge concluded. He added 
a final quip: "But I gotta admit, they've 
got us cold in at least one feature: We 
don't come in your choice of four de- 
signer colors!" 

Traumatic or not, one of the lessons 
from Comdex is that Radio Shack has 
competition. Other manufacturers have 
seen the Mode! 100's success, and are 
beginning to follow suit.B 




Gavilan: 16 bits in a briefcase. 




The NEC portable: Why does this machine look familiar? 



Turn Your 

Color Computer 

into SUPER Computer 




HOT CoCo.The exciting new monthly magazine for the 
TRS-80 Color Computer* . It promises to transform your low-end 
machine into a high-resolution superstar. 

HOT CoCo is the brainchild of Wayne Green, the publisher of 
80 Micro. The information in HOT CoCo is first rate with monthly 
columns and reviews that focus on valuable money-saving 
techniques. Time savers too! Plus problem solving articles on: 

•Utilities— patching, aiding, troubleshooting 
•Graphics— graphs and patterns 
• Hardware— interfacing and enhancing 
•Games— fun and strategy 
•Programming techniques and tutorials 
•Coverage of home use, business, 
communications and education applications 

Best of all, HOT CoCo is written by users just like you. The 
material is always up-to-date and useful. Hardware, software, 
books. . .what's new. . .what's best. . .what works. 

All this is yours for the affordably low subscription rate of 
$24.97. With pre-payment (check or credit card), you'll receive 



a 13th issue FREE! Use the attached order form, the coupon 
below, or call toll free 1-800-258-5473. 

Turn your mild-mannered machine into a SUPER computer. 
Subscribe to HOT CoCo today. 

J ■\7"TT7 P| / want a subscription 
X XjO • to HOT CoCo at $24.97. 

| I understand that with payment enclosed or credit card order, 
I I will receive a FREE issue making a total of 13 issues for 
1 $24.97. 

I DMC DVISA DAE DCHECK/MO □ BILL ME 

| CARD# EXP. DATE 

I 

I 



SIGNATURE. 



NAME 



ADDRESS 



STATE, 



_ZIP_ 




F CoCa 



I 

I CITY 

I Canada and Mexico $27.97, 1 year only, US funds. Foreign surface $44.97, 1 year 
only, US funds drawn on US bank. Please allow 6-8 weeks delivery. 

HOT CoCo»Box 975»Farmingdale, NY 11737 338F8 

■ 'TRS-80 Color Computer is a trademark of Radio Shack, a division of Tandy Corp. 
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High tech, 
low skills 




While high- 
tech advocates 
believe that the 
electronics and 
computer age 
mean more 
jobs for more highly skilled 
workers, two Stanford Uni- 
versity researchers say it's just 
the opposite: The technologi- 
cal age will bring about fewer 
jobs and an overall reduction 
of skills. 

In a new study, "The Edu- 
cational Implications of High 
Technology," Prof. Henry 
Levin and research associate 
Russell Rumberger point out 
that high-tech occupations 
will total only 7 percent of 
new jobs created between 
1978 and 1990. The U.S. will 
need 150,000 new computer 
programmers and 200,000 
more systems analysts during 
this period, but 600,000 more 
custodians and 800,000 more 
fast -food and kitchen workers. 

Besides creating compara- 
tively few jobs in the future, 
the study says, computers and 
robots will send many of to- 
day's workers to the showers. 
Computer-aided design may 
make 300,000 draftspersons 
obsolete; office micros per- 
form many tasks that formerly 
required a secretary. In addi- 
tion, computers are becom- 
ing easier to operate even as 
they serve more complex 
functions. 

Paradoxically, the micro- 
processor era may prove to be 
a boon for the liberal arts: 
"The educational implica- 
tions of high technology are 
that a solid basic education 
rather than narrow vocational 
preparation will become most 
important in the future," Lev- 
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in and Rumberger conclude. 




By January of 
this year, 53 
percent of all 
schools in the 
United States 
had at least 
one microcomputer used in 
education. High schools led 
the way, with 85 percent re- 
porting ownership, while the 
figure for elementary schools 
is 42 percent and rising. 

The percentages come 
from a study of 2,209 public, 
private, and parochial ele- 
mentary and secondary insti- 
tutions surveyed by Johns 
Hopkins' Center for Social 
Organization of Schools. Be- 
sides analyzing hardware (40 
percent of U.S. secondary 
schools have five or more 
micros, and one in 10 has 
machines linked in a net- 
work), the study found some 
interesting details of com- 
puter use. 

Rather than administering 
drill and practice in other 
subjects, most computers are 
being used to teach comput- 
ing. General computer liter- 
acy is mentioned as a regular 
or extensive subject by 85 
percent of secondary and 64 
percent of elementary teach- 
ers, while 76 and 47 percent 
respectively say the com- 
puters are being used for Ba- 
sic programming instruction. 
Only 31 percent of secondary 
and 59 percent of elementary 
teachers use the micro for 
drill and practice. 

While the computer boom 
isn't benefiting all schools 
equally— small parochial 



schools and public schools in 
poorer districts are less likely 
to have micros — the benefits 
have been substantial. 

Three of 10 teachers report 
that micros have produced 
"much more" general en- 
thusiasm for school; 24 per- 
cent report more learning, at 
least by above-average stu- 
dents; and 18 percent say 
more students are working 
independently, without direct 
supervision. 



Homes: Plea- 
sure before 
business 

While most 

schools now 
use micros for 
serious instruc- 
tion, the ma- 
chines haven't 
made as much progress on 
the home front. Only 3 to 5 
percent of U.S. households 
have a computer, and — 
though an impressive one- 
third of home units are 
$l,000-and-up desktop mod- 
els rather than TV-monitor 
machines — game-playing is 
still the first use. 

According to New York 
Times reporter Andrew 
Pollack, "A compelling use 
has not emerged that would 
make the computer an essen- 
tial purchase." A Gallup sur- 
vey last January revealed that 
46 percent of owners report- 
ed using their computers for 
business homework or chil- 
dren's education, with 42 
percent mentioning adult 
education. But the most 
popular use — admitted by 5 1 
percent of owners — was vid- 
eo games. 

Some applications, fre- 




quently mentioned in com- 
puter showrooms, are sur- 
prisingly unpopular at home. 
Only 37 percent of owners 
use the computer to balance 
their checkbooks or budgets; 
only 27 percent operate a 
business from home with it. 
Word processing is a pastime 
of 18 percent, telecommunica- 
tions of 14 percent, and storing 
recipes and counting calories 
attract a mere 9 and 4 percent 
respectively. 

Different surveys, how- 
ever, make different claims. 
Entertainment placed behind 
"personal management" in a 
poll by the consulting firm of 
Arthur D. Little Inc., which 
combined budgeting, invest- 
ment analysis, word process- 
ing, and data base manage- 
ment in the latter category. 
Analyst Everett T. Meserve 
said, "What we're seeing in 
fact is that the computer in 
the home has a utility that is 
of lasting value. ... It says we 
don't have a flash in the pan." 
Bert Cowlan, who directed 
a home software study for 
market researchers Frost & 
Sullivan, takes Gallup's 
rather than Little's side: 
"Overwhelmingly we found 
that very little serious use 
seems to be made at the home 
level." Other surveys also 
rate game-playing over busi- 
ness, and mention under- 
$200 computer owners' frus- 
tration with the difficulty and 
expenses of adapting their 
machines to other tasks. 

With those possible excep- 
tions, though, at least micro 
owners are happy. Sixty-eight 
percent told Gallup they were 
"very satisfied" with their 
purchase and 24 percent 
"somewhat satisfied," and 
about half of those who did 
not own a computer ex- 
pressed at least some interest 
in buying one. 



SUPDUP3. 



Duplicate SU+ 2 in STANDARD /CMD for- 
mat. No need for expensive backup disks! 

• Keep a SU + backup on your system disk — always 
ready when you need it 1 

• Create a 'bootable' SU+ disk in unprotected for- 
mat' 

• Enter SU+ with high memory unaltered! Pass data 
back and forth between SU+ and other programs. 
Load a high memory monitor and jump to it after 
SU+ loads 1 

• No machine language knowledge required! SUP- 
DUP does all the work! 

• Works with SU+ versions 2.2z, 2.2P, 3.1 and 3.1 a! 
If you own Super Utility Plus 2 you need 
SUPDUP3.0 1 ! 

• SUPDUP 3.0 1 is provided on disk with users manual 
for the Model I or III. 




I 



1 302 - 41 st Street • Orlando, Florida 32805 

TO ORDER 

Send Check or Money Ordei Credit Card orders include ace: numbei 
and exp date or call TOLL FREE 1 -B00-3Z7-4459. FLA residents or 
technical queries call 1 -305-423-5683 FLA orders add 5% sales tax 

This product is tor your personal use only. Not meant tor distribution or sale 
1. '-WittSoft 2 -Breeze/QSD. Inc 



SUPER FAST! 
Z80 



$69 



95 



Two pass operation - 
generates labels at 
referenced locations 

Generates Zilog 
mnemonics 



Allows 
labels 



user defined 



Allows define byte, 
define word and define 
space directives 

COMPLETE cross- 
reference 



Output to console, list 
ordisk device(s) in any 
combination 

Generates mnemonics 
for CP/M system calls 

Illegal instructions 
generate define byte 
sequence 

Start and stop at any 
location in file 

Source or complete 
listing type output 



• 28 page manual 

SPEED -disassembles a typical 17K. COMfile, 
generating a 110K .Z80file (over 10, OOOIinesof 
source) and a 52K .XRFfile in less than 1 minute 
45 seconds using standard bios and 8" SS/SD! 
Available for Z80 CP/M and TRS-80 III 

L ft_ Systems— 

1622 North Main Street, Butler, PA 16001 
(412) 282-0864 -340 

Terms: add $2 shipping US, others $5. PA add 6% sales tax. 
Specify format required. Check, MO, Visa, M/C, COD accepted 

Z80, CP'M. TRS-80 IM's of Zilog. Digital Research. Tandy Corp resp 




Improved Grafyx. DRAW is a powerful 
graphics and text editing package which 
allows your imagination to create a 
picture or design a graphics screen with 
Grafyx Solution. Micro-Labs' Grafyx 
Solution is a plug-in, clip on board which 
gives you 98,304 points in a 512 x 192 
matrix. That's sixteen times as many 
points as a standard Model III! 

Ultimate Grafyx. The DRRLU program 
contains almost 10,000 instructions and 
is written in machine language for 
ultimate speed and flexibility. By moving 

■ See List of Advertisers on Page 323 



ution® for your Creativity 



the cursor with the arrow keys and 
entering one letter commands, you can 
set, clear or complement points, lines, 
circles, or boxes. The size of the points 
that you are setting can be changed at 
any time. Vou can even reverse or shift 
the entire screen in any direction. Rny 
section of the screen may be saved so 
it can be moved or copied elsewhere. 
Sections of the screen can also be filled 
in with patterns. 

Practical Grafyx. DRRLU is obviously a 
must for generating computer art or 
graphic designs, but is also a necessity 
for anyone, no matter what his 





application. Businessmen and scientist 
can use DRRLU to add text labels or other 
refinements to previously generated 
graphs. Once the picture is centered, 
labeled and refined, it can be saved on 
disk/tape or printed on any of 20 
popular printers. Rll of this is done with 
single letter commands without ever 
leaving the DRRLU program. 

The Grafyx Solution package is shipped 
from stock and includes the board, 44 
programs, and a 54 page manual all for 
$299.95. The DRRLU program, twelve 
hi-res pictures, and manual is $39.95. 
Shipping is free on pre-paid or COD 
orders. (Tx. res. add 5% sales tax.) 

Micro-Labs, Inc. 214-235-0915 

-464 902 Pinccrest, Richardson, Texas 75080 
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: a 



10-year com 
puter gap 



Since Chair- 
man Mao's 
death in 1976, 
China has been 
hurrying to 
catch up with 
the West. According to the 
Joint Congressional Eco- 
nomic Committee, one of the 
People's Republic's top pri- 
orities is computer technolo- 
gy, where China is 10 years 
behind and will need help in 




the form of imports. 

A series of papers on 
China under the Four Mod- 
ernizations reports that vice 
premier Fang Yi, speaking at 
China's National Science 
Conference in 1978, said that 
China "should have acquired 
a group of comparatively ad- 
vanced specialists in computer 
science research and . . . built 
a fair-sized modern computer 
industry" by 1985. Two goals 
were mentioned: giant ultra- 
high-speed computers, and 
the popularization of micros 
for wider use. 

The Fourth Ministry of 
Machine Building, which has 
jurisdiction over planning 



and producing electronic com- 
ponents and computer sys- 
tems, oversees at least 200 
large and 500 small plants, as 
well as 1 ,500 "neighborhood" 
factories. However, Elec- 
tronic News reports, China as 
of January 1980 had only 
about 1 ,000 computers in op- 
eration, nearly all of them 
foreign models and perhaps a 
fifth of those almost obsolete. 
Both Control Data Corp., 
which instituted a corporate 
China office in 1973, and the 
U.S. Institute of Electrical 
and Electronic Engineers told 
the Joint Committee that "a 
market of great potential in 
fourth-generation computers 



for U.S. firms could exist" in 
the People's Republic. 

Still, the study concluded, 
"It is much too soon to 
predict the outcomes in terms 
of benefits obtained or the 
particular obstacles en- 
countered in. . .negotiations. 
In any venture with U.S. 
firms, the Chinese have 
stated that mutual benefit, 
mutual cooperation, and 
long-term relationship must 
apply to any pending associa- 
tion." With U.S. -China rela- 
tions cooled by the defection 
of Chinese tennis star Hu Na, 
it seems a major computer- 
export agreement is some 
way off. ■ 




• 1982 brought the $99.95 Timex -Sinclair 1000 and Texas 
Instruments' rebate; 1983 has brought a new wave of COM- 
PUTER PRICE REDUCTIONS. 

Q) Recently, IBM cut 15 percent from 

PC price tags. Xerox has knocked 21 
to 26 percent off its systems, with the 
820-11 going from $2,445 to $1,795. 
The slow-selling Apple III now lists 
for $2,695 instead of $3,495, and stores have discounted the 
Commodore 64 to $299 (Tandy's price for a 16K Extended 
Basic Color Computer). As for the Timex, the paperweight 
of computers is now $49.95. 

• Talmis, a market survey and consulting firm, reports 
that VIC-20 users have the most CHILDREN (an average of 
two per household), but TI 99/4 owners have more kids 
under six years old. 

Over a third of all computer-using households have no 
children, Talmis notes; while 71 percent of Atari 800 buffs 
have children at home, the number falls to 62 percent for 
Radio Shack and 57 percent for IBM. 

• RCA Corp., whose Consumer Electronics division sup- 
plies Tandy with displays for TRS-80s, will market its own 
computer VIDEO DISPLAYS for OEMs. Executive vice 
president Roy Pollack estimates that the U.S. display market 
will reach $1.6 billion by 1990. RCA's first entry will be a 
13-inch, high-resolution color unit, due in the fourth quarter 
of this year. 

• Brains before beauty: The British magazine Micro- 
Scope, printing some photos of MISS WORLD holding an 
Epson HX-20, reports that the connection goes beyond mere 



publicity — Epson "will, in future years, be closely involved 
in the judging of the contest." 

Said a company spokesman, "As a result of the Epson/ 
Miss World tie-up, more emphasis will be placed on mental 
abilities (in the judging of Miss World contests), and some of 
the questions asked of the entrants will be of a more techno- 
logical nature than heretofore." 

• There are new MAGAZINES for every taste, from 
Micro Discovery, "The Non-Technical Magazine of Per- 
sonal Computing," to the bimonthly PC: The Technical 
Journal, an advanced-level spinoff of Ziff-Davis' PC for 
IBM fans. 

Modem owners can read Plumb, a newsletter about per- 
sonal telecommunications. And there are two more maga- 
zines for video gamers: Joystick and V idiot, The Magazine 
of Video Lunacy. 

• Computer BOOKS, too, are booming. Doubleday & 
Co. has advanced $1.3 million — reportedly the highest price 
ever paid for a trade paperback — to Stewart Brand, the man 
who brought you The Whole Earth Catalog. Brand's new 
opus? The Whole Earth Software Catalog. 

• Least Significant Byte: The chairman of TeleCheck, a 
check verification service affiliated with Tymshare Inc., 
plans to revolutionize BUSINESS CORRESPONDENCE. 
"We will address our customers and colleagues with a capital 
'Y' in 'You,'" says Robert J. Baer. "We are saying i 
respect You — that I'm in business to serve You.' " 

"To continue to grow and help our subscribers serve their 
customers, we must be together on the same plane. That is 
not the implication of correspondence that uses a capital T 
for the writer and a lowercase 'y' for the person addressed." 
Presumably, should Baer mention a customer in an interof- 
fice memo, he'll refer to him as Him. 

• Finally, "Fun House" columnist Richard Ramella 
reports that a 10-year-old girl walked up to a piece of 
EQUIPMENT in a Chino, CA Radio Shack store, grasped 
its sides, and yelled, "How do you play this thing?" "You 
don't," replied a clerk. "That's a battery tester." ■ 
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Disk Minder 

-Smoked Plastic 
-Holds 75 Disks 

17?5ea 

Dealer Inquiries 
Welcomed 



' ; Bo. if; 1 

Bethany. OK. 

73008 



fe_E 



iskatte-A 

Ixjnnecuon' 

IS. only. Add 3°-° on orders under 40°-°) ^ 



NEW REPLACEMENT 

RIBBON CARTRIDGES 


PRINTER 
MAKE, MODEL NUMBER 

(Contact us It your printer 

is not listed. We rtave ribbons 

FOR MOST PRINTERS 


RIBBON 
SIZE 

Inches 
by Yards 


NEW REPLACEMENT 

CARTRIDGES 

Price each In 

Quantity of 
3 6 12 


RIBBON 

LOOPS 

Cartridges 

Not Included 
6 12 


ANADEX 9500 


'/; X 30 


13.00 12.75 12.25 


36.00 66.00 


CENTRONICS (7-MEG) 


5/16x55 


7.50 7.25 6.75 




C.ITOH Prowrlter 


V; X 14 


8.75 8.50 8.00 




C.ITOH starwrlter 


5/16x17 


5.50 5.25 4.75 




COMMODORE PET 8023P 


'ft x 10 


9.00 8.75 8.00 




EPSON MX70/MX80 


'ft X 20 


5.50 5.25 5.00 


18.00 31.80 


EPSON MX 100 


'ft x DO 


12.00 11.50 11.00 


32.00 60.00 


IDS Paper Tiger 460/560 


V; X 36 


7.75 7.50 7.00 




NEC 5500/7700 Nylon 
Multlstrlke 

Multlstrlke High Yield 


'ft x 15 


6.25 6.00 5.50 


30.00 56.00 


'/4 x 133 


5.75 5.50 5.00 


22.00 40.00 


■/. x 133 


6.50 6.25 5.75 


25.00 46.00 


OKIDATA Mlcrollne 84 
80, 8?, 83 Dual Spool 


'/! x 40 


6.25 6.00 5.50 




'ft ■ 18 


3.00 2.75 2.25 




QUME Nylon 


'ft x 15 


5.25 5.00 4.50 


30.00 56.00 


QUME Multlstrlke 


V. » 98 


5.00 4.75 4.25 


15.00 26.00 


RADIO SHACK DW II 
Carbon Film - Black 
Carbon Film- Blue, Brown 


'/. x 153 


6.25 6.00 5.50 


18.00 30.00 


"4 x 153 


7.00 6.75 6.25 




RADIO SHACK LP III IV 


9/16x16 


3.50 3.25 3.00 


19.50 36.00 


RADIO SHACK LP III -V 


'ft x 1 5 


6.25 6.00 5.50 


26.00 48.00 


RADIO SHACK LP VI -V III 


'/4 x 1 2 


6.75 6.50 6.00 




CHECK, MONEY ORDER or COD 
All orders shipped U.S. mail. Free shipping on prepaid orders 
for continental U.S. Add $2.00 for orders outside continental U.S. 
Allow 2 weeks for personal checks. Phone 6 p.m. - 9 p.m. E.S.T, 
Mon.-Fri. & 9-5 Sat. 

ADEL COMPUTER MART 
(302) 492-8463 DEPT 10 BOX 195 
No Sales Tax , 35 6 HARTLY, DE 19953 



COLOR COMPUTER SOFTWARE 



COMPLETE YOUR WORD PROCESSOR 

SPELL— RITE 

THE Cassette Spelling Verifier 

You"ve got the best word processor. Now complete your system with 
the best spelling verifier. Spell-Rite is a convenient, fast way to insure 
that all of your documents are letter perfect. Spell-Rite was designed 
specifically for cassette-based word processors. Like Yours! 

Spell-Rite is easy to use. completely menu driven. 

Spell-Rite is Fast! You can verify a 1000 word document in under 9 
minutes - including cassette I/O 

Spell-Rite is complete. It comes with its own 10.000+ word dictionary 
which you can expand Also included is a superb manual. 

Spell-Rite works with any word processor that generates ASCII tape 
files, such as Color Scripsit. Super Color Writer and Telewriter 64 32K 
of RAM and Extended Basic are required. 



Cassettes and manual $59.95 

DISK BASIC 
MADE BETTER 



Your Color Disk Basic is one of the most powerful Basics on any 
computer. Add Disk Basic Aid and it also becomes one of the easiest to 
use! The Basic Aid package will make developing and entering Basic 
programs^ snap. Here are just SOME of the great features Basic Aid 
contains. 

• Full Screen Editing • Cross Reference 

• Automatic Line Numbering , • Automatic Key Repeat 

• 2 Key entry of Basic keywords • User definable keys 

plus. Label support! This unique Basic Aid feature is a vast 
improvement in the Basic language. Label any line you want and 
use that label in all calls to that line. Forget about line numbers, 
just call routines by name like this: 

ON A GOTO ENTERCHECKS. PAYABLES. EXIT 
A real time saver. And for transportability Basic Aid will convert 
all labels to line numbers. 
These and other great features make Basic Aid a must' for anyone who 
writes or modifies Basic programs. Basic Aid runs on 32K or 64K Disk 
systems It comes with complete documentation and our new. heavy 
duty keyboard overlay 



Disk Basic Aid 



S49 95 



SPECTRUM — STICK 

Put the joy back into color computing with the Spectrum Stick. This 
heavy duty joystick gives you a true feel of control And it comes with 
an extra "long cable and power on/off LED 



the feeling of this joystick is super b 



March 1983. 80-Micro 

TX: add sales tax S39.95 



Send check or money order for total purchase price, plus S1 50 S & H. 
Charge cards: Include all embossed information 
□' Spell-Rite D Disk Basic Aid 

□ Spectrum Stick □ Send Free Catalog 

P.O Box 180006 



send to 



Austin. Texas 78718 
(512) 837-4665 



Name 



Add i ess 



sSee List of Advertisers on Page 323 
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CREATE: forms, labels and form letters 



This machine code word processor can 
even ADD/SUBTRACT bookkeeping columns. 

Chanqe, delete, add, insert, move, copy 
(characters/lines/blocks) of text fast. 

SELECT: margins, page length, number of 
copies, tabs, center lines / page, line 

spacing and LEGAL PAPER LINE NUMBERING. 

MODEL I users get: Model III shift key 

controlled upper / lower case letters:' 

EASIER to USE than other systems . Only 
8 keys control 96% of the LW features!! 

TRY a LW for 3 MONTHS. If not satisf- 
ied return it. We will refund all but 
$3.50 to cover postage / handling. IF 

VOU CAN NOT RETURN IT, DO NOT BUY IT. 

-■ A- oi N. Y. rates his LW purchase as 
"one of the best buys I have made. "! 

TAPE 16K Model I/III systems $23.99 

DISK 32K Model I/III systems $37 99 



WE P AY: tax / US postage on ALL orders. 

specials; 



Verbatim MD525 01 disks: 10 for $25.95 

Microsette CIO tape-^box: 20 for $13.95 



5905 Stone Hill Dr. 

Rock] in, CA 95677 



113 

>4 HOUR 

Computer Phone 
(916) 624-3709 



The Disassembler That 
Even Tracks Down DATA!!! 

NEW!" VERSION 2 

• Outputs fully labeled R.S. or APPARAT" EDTASM* • 
tormat code to display, printer, cassette or disk. 

• Loads programs from cassette or disk and 
displays main entry point. 

' Printer output fully paginated. 



• Outputs " H37F7 DEFM 'Cass? ' 

DEFB 03H 
instead of the meaningless "equivalent", 
" AB25 LD B.E 
LD H.C 
LD (HL),E 
LD (HL),E 
CCF 
JR NZ,$+5 ", etc. 

• Automatically identifies such data areas 

• Relocates itself to any desired RAM area, up/down 
one byte or as many as required . 

• Runs on TRS"-80 Model I (Level II) or Model III, 
16K or more, cassette or disk 

Toorder I#lf oDRlO pnone (513) 435-4480 
(M-F, 9 a.m - 5 p.m. EST), or send check or money 

order lor 

#1354-12 (Model I/III cassette) $34.95 

K1354 22 (Model III diskette), fRSDOS" 

format '. $39.95 

(U.S. Funds only) Add $2.00 Shipping (U.S.) 
$5.00 (Foreign). $3.00 Additional on C.O.D. Orders. 

Ohio Residents please add 6.5% Sales Tax. 



Professional Software tor both Novice and Expert 




Software 



Pro/Am Software 
p 220 Cardigan Road 
Centerville, Ohio 45459 

Visa and Mastercard accepted. 

Wnen ordering /ia card include caia n umber, 
numoet expiration date, youi name, aootess am 
phone number 

^260 



August 



2-A 



8-10 



22-26 



26-28 



Microprocessor Background 
for Management Personnel 

University of California Ex- 
tension, Berkeley, CA. 
American Management As- 
sociations, New York, NY. 
User Documentation Course 
New York, NY. 
American Association for 
Artificial Intelligence, Menlo 
Park, CA. National Con- 
ference on Artificial Intelli- 
gence Hilton Hotel, Wash- 
ington, DC. 

University of Minnesota, St. 
Paul, MN. Computers for 
Farm and Family Minnesota 
State Fair, St. Paul, MN. 



September 

12-14 IEEE Computer Society, 

Silver Spring, MD. Interna- 
tional Conference on Com- 
puter-Aided Design Santa 
Clara, CA. 

19-21 American Management 

Associations, New York, 
NY. User Documentation 
Course Washington, DC. 

26-29 IEEE Computer Society, 

Silver Spring, MD. Comp- 
con Fall '83 Marriott Crystal 
Gateway, Arlington, VA. 

29-Oct. 1 Northeast Expositions Inc., 



October 



3-6 



5-6 



18-19 



18-20 



22 



24-26 



Chestnut Hill, MA. CP/M 
'83 East Hynes Auditorium, 
Boston, MA. 



IEEE Computer Society, 
Silver Spring, MD. 8th Data 
Communications Sympo- 
sium Cape Cod, MA. 
DeNardi Enterprises, Los 
Altos, CA. Compusource '83 
Red Lion Inn, San Jose, CA. 
Creative Learning Associa- 
tion, Charleston, IL. Com- 
pucon '83 Martin Luther 
King University Union, 
Charleston, IL. 
Architecture Technology 
Corp., Minneapolis, MN. 
Conference on Local Com- 
puter Networks Hilton Inn, 
Minneapolis, MN. 
IEEE Computer Society, 
Silver Spring, MD. Ed- 
CompCon'83: Applying 
Technology to Education 
Red Lion Inn, San Jose, CA. 
Plymouth State College, 
Plymouth, NH. Conference 
on Computers and Educa- 
tion PSC campus. 
American Institute of 
Aeronautics and Astronau- 
tics, Orlando, FL. Comput- 
ers in Aerospace Confer- 
ence Hartford, CT. 




Month 



With the games issue over, 80 Micro 
returns to work in September. The 
month's topic is business, and applica- 
tions range from a Model III program 
that illustrates VisiCalc's data inter- 
change format (DIF) files to inventory 
control on the Model I. 

There's a time distribution summary 
that tracks employee work by project 
and task categories, and a menu-driven 
program to record financial transac- 
tions on the 11/12/16. SuperScripsit 
owners who've been struggling with 
non-Radio Shack printers will find a 
generic printer driver that fits anything 
with a parallel interface. Finally, Sep- 



tember's Buyer's Guide looks at busi- 
ness software. 

Programmers can pump up Basic 
with 14 new commands, including the 
ability to recover programs lost after 
New or Reset. There's a fast Z80 disas- 
sembler that fits into 3K, a three- to 
five-line screen dump, and an INKEYS 
routine that won't lose characters no 
matter how fast you type. 

C»Notes will have more Model 100 
programs, and 80's other departments 
will meet September in style. Richard 
Ramella's Fun House even has pro- 
grams for kids who are too young to 
join their brothers and sisters in going 
back to school. ■ 



296 • 80 Micro, August 1983 



Kj%i^^^t^;-ii&i.-aaui«™,i,vViK;ai»£jfe 



IfiQH.i'iiSii^St.i. 



ii!ESH5s2SS=PS!W»B5! 



:->!iv<.\4>,:Y.w..Aki*.irfjMyjj 9 'j i rt > i 




0©DWGrO©<§ SPECIALS OF THE MONTH! 



INTRODUCING THE IMPROVED 
LNW 80 MODEL II 
. . . AT AN UNBELIEVABLE PRICE! 



LNW-80 
MODEL II 




This computer has it all! TRS-80™ Model I and CP/M® software 
compatibility with two operating systems; DOSPLUS 3.4 and CP/M 
2.2. The LNW 80 MOD II can read and write the 5V*" disk formats of 
several CP/M computers including: OSBORNE, KAYPRO, XEROX 820, 
CP/M 86 as well as standard 8" IBM format. Standard features: 96K 
of RAM, parallel and serial ports, 
cassette and joystick ports, RGB and 
Composite Color interfaces, HI-RES 
graphics and much more! Six 
month warranty. 



*1995. 



SYSTEM SPECIAL! 



PRINTER SPECIALS! 



Amazing price on the ***vi#wi 
EAGLE III Computer . . . *3*iyj. 

System includes: 10 Megabyte hard disk and 
one double sided floppy disk drive, 32 
preprogrammed function keys for word 
processing, word processing (Spellbinder), 
financial analysis (Ultracalc), CP/M 2.2, 
CBASIC. 

Optional Software: 
Accounting Plus *2000. 

SA1/S$1225!*775. 



SOFTWARE SPECIALS! 




New TOSHIBA P1350 dual mode printer 
• 100 CPS letter quality and 160 CPS draft 
quality $ 1595. 



C. ITOH F10 40 CPS • bi-directional 
daisy wheel printer $ 1379. 



New SEIKO GX-100* 50 CPS 
dot matrix printer with built- 
in tractor feed *244. 95 

*This isa Price Breakthrough! 

OKI DATA 83A *669. 

• 120 CPS dot matrix printer 
with tractor feed. 




PROWRITER parallel 

10" $ 469. 

PROWRITER parallel 

15" $ 679. 

EPSON MX-100 $ 649. 



SUPER ™ $244.95 

Data base management system. 
• 13 times faster than dBASEII T, *,this 
is the most powerful, easy to use 
DBMS program that we have seen! 
For TRS-80 and CP/M. 

THE FINANCIAL PLANNER . *479. 



INFOSTAR *387. 

• New from MicroPro®, now you can 
write custom applications with plain 
English and edit your reports with 
WORDSTAR! 

THE BOTTOM LINE 

STRATEGIST *295. 

• New from Ashton-Tate, this is the 



•New from Ashton-Tate, this is the finest econometric tool available 
strongest financial modeling today for developing financial and 
language available. marketing strategies. 





D 







We're the helpful, friendly computer wholesalers that sell direct to users by 
mail only. No showrooms. No toll-free numbers. Just the best prices you'll find 

anywhere. 



All prices quoted are cash discounted prices. We also honor 
Mastercard, Visa, American Express and Company purchase orders. 



ACCESSORY 
SPECIALS! 



LNW % doubler $ 159. 

LNW 5 /a doubler with 

DOSPLUS 3.4 $ 175. 

LNW expansion II $ 329. 

TEC DISK DRIVES: 

5W double density drives 

w/case & power supply .... $ 245. 

MITSUBISHI DISK DRIVES: 

2 thin line drives in one case 

w/power supply — 

3.2 MEG OF STORAGE 



1100 EAST HECTOR STREET 
CONSHOHOCKEN, PA 19428 
215-664-5383 



CC/M is a trademark of Digital Research Corp.; TRS-80 is a trademark of Tandy Corp.; dBASE II is a trademark of Ashton-Tate; SUPER is a trademark of l-S-A. Inc. 

Prices are subject to change without notice. Quantities are limited. 



A Star is born... 



The 1 


P 


RO 


DUC 


E 


1 



The Professional Program Writer. 

Now Available for the Model I & Model III 
With 48K and 2 Disk Drives 

(Please Specify Model I or III) 

H 

ling Soon for the IBM PC. Model II jnd others. 



$149.95 



...Now Introducing 

The PRODUCER, Jr. 

" !•<• !■■< linn .il Comparison (hart on netl pat>e.i 



$89.95 



If BASIC somehow doesn't seem so basic, and your software has been getting you 
nowhere, then let me introduce myself. THE PRODUCER is my name. Writing 
programs is my game. If you're interested in an inexpensive way to quickly and 
easily write professional quality custom software programs, then read on. 



•yBjEji 



m 



ill 



Have you ever wasted money on software that didn't do what you 
thought it would 9 Are you burned out on high priced, canned 
programs that make big claims, but don't meet your needs. Has a 
lack of good software made your computer an expensive gadget that 
doesn't do what you hoped it would 7 If so. I'm here with good news. 
With my help you can put those problems behind you. 

What is THE PRODUCER? 

In short. I'm a Program Generator designed to write customized 
software programs. If you have a need to store and retrieve 
information, perform calculations on your data and get displayed or 
printed reports, I can help you develop a program to do just that, in 
just about any format you can imagine. That's why I'm called a 
program development system. I'm a powerful and sophisticated 
software package, born of vast technical knowledge and 
professional design experience. Yet. I'm the most simple, practical, 
easy to use and functionally versatile program generatorever puton 
the market 

What can THE PRODUCER do for you? 

How can I help you? Just let me count the ways. 

1.1 make programming easy. I'm 'user friendly.' If you can answer 
simple English questions and push buttons. I'll do all the hard work. 
Let me worry about the BASIC language required to complete your 
program Describe the program you want and I'll write it for you rhe 
process is simple. First. I produce a printed planning sheet to help 
you get your ideas on paper. When you've finished planning, you're 
ready to draw your screen right on the monitor. The Screen design 
and appearance is completely at your command, including graphics. 
You have full editorial control Make all the changes you like, until 
you re satisfied. After you're thru, I'll guide you thru some simple 
English questions about your Screen. Based on your answers, I'll 
write a complete BASIC program for you. 
2. 1 can save you 100 s of hours of time. I provide real short cuts to 
meet your needs by going direct from your idea to a 'ready to use' 
customized program I write all the BASIC code foi you i m simple. 
but I'm not shallow. The only limit to my capacity is your 
imagination 

3. I can save you big bucks. You may never need to buy another 
program to store ana retrieve your data. With my help, you can 
design your own custom programs to get your job done. 

4. I car: help make you more productive Having me as your partner 
will be like taking a smart pill. I'll pay for myself many times over by 
increasing your productivity and creativity. With my custom 
programs serving you. your computer will be the valuable friend you 
hoped it would m 

5. I can help make you a real pro. Based on your ideas. I write 
complete stand alone programs I write in BASIC code, but you talk in 
English to me. And if you're an entrepreneur, you can sell the 
programs you and 1 create. As a licensed owner of THE PRODUCER. 
you may do so without paying royalties. 

6. I can make good programmers much better. I produce fully 
commented BASIC code so you can use me as a building block to 
write your own specialized software. I have the best screen and input 
module available anywhere at any price. 



What do you get with THE PRODUCER? 

1. Two diskettes containing THE PRODUCER program development 
system, and a complete disk operating system. Also included is a 
free sample personal management program (value S59.95) useful to 
every computer owner 

2. Extensive documentation in a three ring binder, with index tabs, 
quick reference system, comprehensive index and sections tor the 
novice and professional programmer. 

3. Complete printed tutorial, walking through each step in THE 
PRODUCER process and resulting in a finalized sample program An 
audio cassette tape (S14.95 value) of the tutorial session is also 
provided free for a limited time. 

4. A toll free technical assistance number for PRODUCER owners. 

5. A free one year subscription to THE PRODUCER'S quarterly 
newsletter containing ideas, sample programs and update 
information related to THE PRODUCER 

TECHNICAL COMPARISON CHART 



PRODUCER 
FEATURES OF THE FINISHED BASIC PROGRAM 

Full Screen Oriented Input ot All Fields YES 

Edit without Retyping with insert & delete YES 

Restrict field Length automatically YES 

Unlimited Restriction choice tor each field YES 

User defined Custom Prompts for each Field YES 

Full Speed Typing in ALL Fields . . . YES 

Immediate Exit from Any Field to Menu YES 

Enter Fields Irom last Record automatically YES 

Fast BTREE File Structure (No Sort Nt>wk>ri] . . YES 

Find Record with Part of a Key YES 

Hi-Speed Global Search for ANY Field in a Record YES 

Duplicate Keys and Multiple Keys Supported y ES 

Global Field Replacement Function Y£ g 

Run Predefined Reports from Finished Program VES 

Select Reports from Menu in Finished Program Y ES 

Sort (machine language) ANY Field-Free Y ES 

Custom Mailing Labels Option (any Size) Y ES 

Do Calculations on fields in Program Y ES 

Sell Finished Program with No Royalty yes 

PRODUCER CAPABILITIES & FEATURES 

Toll Free Question Line y fs 

Create PROFESSIONAL Finished Program . . . yE | 

Modify Program without Starting Over 
Ease of Use including Complete TUTORlAi 
Number of Calculations allowed per field 

Use Field Names for Calculations 

Use ALL Math Functions in Calculations 
Generates a BASIC Program 
Custom Design exact Screen YOU desire 
Fuii Feature Screen Generator ( graphics) 
Easy Report Generation with Any Restrictions 
Complete & Thorough DOCUMENTATION 
Detailed Quick Reference Materials 
Audio Cassette Tutorial Available 

Program Planning Form Provided 

Sample Programs Available before Purchase 



YES 
YES 

ft 
YES 
YES 
YES 
YES 
YES 
YES 
YES 
YES 
YES 
YES 
YES 



YLS 
YES 
YES 



$149.95 



FREE UTILITIES INCLUDED 

Free Menu Driven DOS Utility Package . 

r,ee Disk Operating System (Super Fast) 
File Rebuilder & Reorganizer included Free 

Send Cashier's Check, Money 
Order or Certified Check to: 

PRODUCER SOFTWARE „ 59 

A division of Texas Computer Systems. Inc. 

P.O. Box 1327 Arlington, Texas 76004-1327 

Or For Master Card - Visa - American Express 

Call 1-800-433-5184 Texans Call 817 -274 -5625 
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QUICKPRO CREATOR 
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NO 

NO 

limited 

NO 

NO 

NO 
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NO 
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PRODUCER Generated Programs 

We understand your reluctance to invest in THE PRODUCER until you know tor sure it provides what we say it does. The programs below are 
unmodified, finished programs generated by THE PRODUCER. Our customers tell us that PRODUCER generated programs are better than many 
high priced programs written by human professionals. Compare these programs to any you have seen selling at a similar price. Their quality will 
surprise you Buy any of these PRODUCER generated programs now and we will gladly apply the cost of that program toward the future purchase 
of THE PRODUCER Or buy THE PRODUCER now and select one of the PRODUCER generated programs to be included in your order, absolutely FREE 



Executive Scratch Pad $29.95 

Expense Notebook $19.95 

Teacher's Grade Book $29.95 



Recipe Program 


$19.95 


Photo Assistant 


$29.95 


Video Library 


$29.95 


Mailing List 


$19.95 


Personnel Program 


$39.95 



See descriptions in March 
and April Issues of 80 Micro 



$39.95 



$39.95 



$19.95 



Inventory 1 

Maintains group of 

identical items 
Inventory 2 

Maintains record for 

individual items 
Record Library 

Organizes your music center 
Reader's Guide $19.95 

Orgainzes magazine 

articles/clippings 
Personal Checking $29.95 

Organizes checking accounts 
Loan Calculator $39.95 

Calculates loans, principal 

and interest 



The PRODUCER, JR. 

If you don't need all the features ot The PRODUCER— the professional program writer. 
and you don't want to spend $149.95 on software. READ ON Producer Software has 
the perfect solution tor you 

THE PRODUCER. Jr. 

A SIMPLE TO USE professional program generator And its only $89.95. This sell 
documented program generator can have anyone creating self-contained, stand alone 
programs in no time at all No other program generator can provide you with ease ot 
use. low price and quality 

•FEATURES 

' screen generator allows easy definition and creation of fields 

■ B-tree file lets you search, insert, delete and edit 

' reports by single restriction (no sort) 

" much more (see technical comparison chart) 

The PRODUCER. Jr comes to you complete with all the above features and its own 
operating system for only $89 95 But. don't let this low price fool you--The 
PRODUCER. Jr is still the most powerful program generator on the market today, with 
the exception of the original PRODUCER And The PRODUCER. JR is completely 
compatible to the original PRODUCER, so it you decide to upgrade at a later date you 
may do so tor only $75 00 So don't miss out Order today 

r^or_an_i_ndependen| product review ot the PRODUCER see page 62 of March issue of 80 Micro 



THE PRODUCER is a trademark of PRODUCER Software. Inc a division of Heart of Texas Computer Systems. Inc 



For more information write for our free brochure 




by Richard Ramella 



Computer Characters 



It's usually a bit lonely here 
in the Fun House, except 
once a month when all you kids 
(and kids in spirit) drop by. 
But this month, three people 
got here before you did: a Mys- 
tery Guest, Minerva the For- 
tune-teller, and a mind-reading 
magician called LaMarle the 
Amazing. 

They've been practicing their 
routines and waiting for you to 
arrive. All three work in Level 
II and on any Color Computer 
with at least 4K. 

So this month's theme, Com- 
puter Characters, does not refer 
to the graphics capabilities of 
the TRS-80, but to the imagi- 
nary people who dwell in the 
three programs below. 

The computer is famous for 
crunching numbers, but it's just 
as good at juggling words to 
create interesting two-way com- 
munication between you and a 
program's imaginary character. 



The Key Box 

Model I and III 
Color Computer 
4KRAM 
Level II Basic 
Color Basic 



Mystery Guest 



100 
110 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
IS 
570 
580 
590 
600 
610 
620 
630 
640 
650 



MYSTERY GUEST * TRS-80 LEVEL II AND COLOR BASIC 
FUN HOUSE / AUGUST '83 / R. RAMELLA 




REM 

REM 

CLS 

DATA 78,75,84,73,83,69,77,82,73,83,76,84,76,80,85 

DATA 83,77,65,76,76,70,65,73,82,89,32,84,65,76,69 

DATA 83,84,82,65,87,32,84,79,32,71,79,76,68 

CLEAR 200 

DIM A(43) 

L$ = "* *********" 

FOR A=l TO 43 

READ A(A) 

NEXT A %*®^&mi^$$$lik®®te> 

FOR A=l TO 15 * >^;^#-'|4jtf ."' 

A$=A$+CHR$ ( A ( A) ) Sf ^mtti^ ) .^^M>»kv 

NEXT A - "-^^ff^^^H^^^^fe* 

FOR A=16 TO 20 *?|. Illllk ^Jm^WWvB 

C$=C$+CHR$(A(A) ) 

NEXT A 

FOR A=21 TO 3 

D$=D$+CHR$(A(A) ) 

NEXT A 

FOR A=31 TO 43 

E$=E$+CHR$(A(A) ) 

NEXT A 

FOR B=15 TO 9 STEP -1 

B$=B$+MID?(A$,B,1)+MID$(A$, 

NEXT B 

B$=MID$(A$,8,1)+B$ 

PRINT L$ 

PRINT "GUESS MY NAME." 

PRINT "GIVE IT A SPIN." 

PRINT "RECALL MY FAME" 

PRINT "AND YOU WILL WIN." 

PRINT L$ 

PRINT "20 GUESSES..." 

PRINT L$ 

FOR A=l TO 20 

PRINT "GUESS"A; ' 

INPUT X$ 

PRINT L$ 

IF X$=B$ GOTO 680 

IF LEFT$(X$,4) =LEFT$(B$,4) GOTO 730 

F=RND(5) 







I 

- .K.^ 

7? 

o 



F=l 

F = 2 

F=3 

F=4 

IT.' 

F=5 



THEN PRINT "NOPE1" 

THEN PRINT "WRONG... WRONG... WRONG..." 

THEN PRINT "YOU'LL NEVER GUESS IN A MILLION YEARS." 

THEN PRINT "NO, BUT THE LETTER " ;MID$ (B$ ,RND ( 15) , 1) ; 



THEN 
IF A/5=INT(A/5 
NEXT A 

PRINT "HOI HOI HOI" 
PRINT "I DANCE IN GLEE!" 
PRINT "YOU DO NOT KNOW" 
PRINT "THE NAME FOR MEI" 
PRINT L$ 
PRINT 



PRINT "REALLYI HOW COULD ANYONE BE NAMED "X$"?' 
GOSUB 7 90 



Listing continued 
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EF - RACET computes it D ~j Et- RACET computes ..to^i 

•Cp. ; ._, Integrity in Software ^J t. Integrity In Sottware _J 



1330 N GUHM. Suite M. Orange. CA 9266? (714) 997-4950 



I. CA 92667 17141 997-1960 



Give Your TRS-80* a Tremendous Boost 
with RACET computes Software 

RACET computes THE Name for TRS-80 Utility Software!! We make the 
TRS faster, more efficient, and easier to use. Our Programming Aids 
improve your productivity. Our reputation is for products that are profes- 
sional in design and work as advertised!! 

There are NO protection schemes used on our products. We rely on the 
integrity of the purchaser and reasonable pricing rather than copy protec- 
tion. A utility, to be useful, must be available on any of your diskettes. The 
user has a right to backups. 

*•* Speed-Up Kit Version 2.X *** 
For use with Version 2.0 on Model li and XV1 $99.95 

NOW WITH OPTIONAL 2-SIDED DRIVE SUPPORT FOR MOD XVI UNDER 2.0!!! 

This is a software 'fix' to TRSDOS 2.0. A MUST to users impatient with the 
speed of TRSDOS. Boot Speed faster by 2 1/2 times. Data reads up to 5 
times faster. Time and Date need only be entered once at power on. Retains 
Verify Detect features. 

** Model II Fast Backup Utility *• $75 

5to 10 times faster backups!!! Full diskbackup (including verify) in 55 SEC- 
ONDS on two drive system — 2:15 on a single drive system. In business, 
time is money and one backup is worth 1 000 tears, * 
** SUPERZAP II for TRSDOS II for Models II and XVI ** $99.95 
Recover Blown Files!! Now you can directly access, modify, eppy, zero, or 
print any sector on your diskette OR Radio Shack Hard Drive, Includes a 
SCAN utility to facilitate a disk search for a specified string, Documentation 
includes a description of the TRSDOS .11 directory structure.. " 
** SUPERZAP for CP/M 80** ** $99.95 
You asked for it!! And now it's here. Runs omany CP/M Version 1 2,x system 
running on a Z80 CPU and 8-inch diskettes!! Recover blown files. Access, 
modify, copy, zero, and print any sector on disk or In memory — in Hex or 
ASCII. Full screen editor. File editmorje, . 

RACET computes Utilities & 
Programmers Aids 

Generalized Subroutine Facilities (6SF) Mod I S25 Mod II $50 Mod 

III $30 Includes Multi-key Multivariate and Multi-ley Character String 
Sorts. 

Basic Link Facility 'BLINK' Mod I and III S30 Mod II $50 Chain from 
program to program or merge retaining variables. 

Infinite BASIC Mod I $50, Mod III $60 Extends BASIC with matrix func- 
tions and 50 more string functions. 

Infinite BUSINESS Mod I and III S30 (Requires Infinite BASIC) Printer 

pagination controls, binary array search, and more!! 

Command Process COMPROC Mod I and Mod III $30 Auto your disk 

to perform any sequence of keyboard instructions. 

Diskette Catalog System 'DISCAT' Mod I and III NEWDOS 80 Version 2 $50 

Disk Sort/Merge (DSM) Mod I $75, Mod III $90, Mod II $175 Machine 

language random file sort package. Power available only on large machines. 

Keyed File System 'KFS-80' Mod I and III $100 Mod II $175 Machine 

language BASIC ISAM utility. Binary tree index system. 

Model II Utility Package S150 Includes Superzap, bulk copies and other 
utilities for repair of blown diskettes. Complete documentation on diskette 
structure and guidance for repair. 

Model II Development Package $125 Includes Superzap, Apparat Dis- 
assembler and Mod II interface to Microsoft Editor Assembler + and 
documentation for Mod I and uploading service. 

Model II Basic Cross Reference Utility $50 



I 1 RACET 



LTD. 

Integrity in Software 



1855 West Katella Ave. Suite #255 Orange, CA 92665 (714) 997-4950 

(714) 997-4950 for order desk. (714) 771-0883 for new BBS service. 
CALL FOR COMPETITIVE PRICING ON HARD DRIVE SUBSYSTEMS. 

CIRCLE READER RESPONSE FOR FREE TRS AND NEC CATALOG. 

'TRS-80 is a trademark o! Tandy Corporation "CP/M is a trademark ot Digital Research ^468 




14+ Megabyte (formatted) ARM Winchester Disk Drive CALL for Pricing 

icludes ECC error detection and correction. FAST. Service Contract Avail- 
able ($30/month/drive). Multiplexor available. SHARE hard drive between 
four Model ll'sl! 



20 Megabyte Cll Honeywell Bull Cartridge Drive $7995 

10 Megabytes fixed, 10 removable for the professional installation requiring 
Removable Media for BACKUP. 60 and 120 Megabyte add-on drives available. 
Up to 240 MEGABYTES! ! Four port multiplexor available to SHARE hard drives. 



HARD/SOFT DISKS SYSTEM (HSDS) SOFTWARE 

Radio Shack 2.0 Compatible Operating System for Hard Drive Operation. 
Run your 2.0 software on hard drives without conversion (except drive des- 
ignation). Compatible with most machine language programs that use the 
standard calling sequence. Supports ARM, Cameo, Cynthia Bull, Corvus, 
Data Peripherals, QCS, Radio Shack, and certain other hard drives. 
Access BOTH your floppy disk drives and hard drive files INTERCHANGEABLY!! 
Complete utilities includeHZAP (Hard Disk SUPERZAP), Directory Catalog Sys- 
tem, Parameterized FORMAT, HPURGE (Bulk Copy/Purge Utility) and others. 
The Hard/Soft Disk System (HSDS) Software has almost two years FIELD 
experience. Version 5.0 adds several enhancements including maintenance 
of system files on the hard drive, files as large as the disk, the ability to seg- 
ment the disk as logical drives, and definable directory size. Floppy backup 
(close to a Megabyte per minute) is provided for Winchester drives. 

HSDS for Radio Shack $500 
HSDS for Other Drives $400 





COMPUTES ltd 

Integrity in Software 

1855 West Katella Ave. Suite #255 Orange, CA 92665 (714) 997-4950 

CALL FOR COMPETITIVE PRICING ON HARD DRIVE SUBSYSTEMS — 

BUY WHERE YOU CAN GET SOFTWARE SUPPORT!! 

DEALER AND SYSTEM HOUSES — WE HAVE DEALER PRICING!! 

CIRCLE READER RESPONSE FOR FREE TRS AND NEC CATALOG. 
^■41 "TRS-80 is a trademark ol tandy corporation 



sSee List of Advertisers on Page 323 
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Listing continued 




660 


PRINT "AND I'LL NEVER TELL... GOODBYE 1 " 




670 


END 




683 


PRINT "I HATE IT WHEN PEOPLE GUESS"; 




690 


IF A<6 THEN PRINT " SO SOON!" ELSE PRINT "1" 




7 0s; 


PRINT "YOU'RE RIGHT." 




710 


PRINT "I'M LEAVING. GOODBYE! " 




720 


END 




730 


PRINT "YOU DIDN'T SPELL IT RIGHT," 




740 


PRINT "BUT YOU KNOW!" 




750 


PRINT "IT'S "B$", CLEVER ONE!" 




760 


PRINT "YOU WEREN'T SUPPOSED TO BE ABLE TO GUESS!" 




770 


PRINT "I'M GOING NOW. AND DON'T FOLLOW ME!" 




7 80 


END 




7 90 


N=N+1 




800 


IF N=l THEN PRINT "CLUE 1: I AM "C$"." 




810 


IF N=2 THEN PRINT "CLUE 2: I AM IN A "D$"." 




820 


IF N=3 THEN PRINT "YOUR LAST CLUE (HEH-HEH): "E$". 


. " 


83 


RETURN 




840 


END 






LaMarle the Amazing 


100 REM * LAMARLE THE AMAZING * TRS-80 LEVEL II AND COLOR BASIC 


110 REM * FUN HOUSE / AUGUST '83 / R. RAMELLA ' 


120 CLEAR 50 


130 L S= "*************** " 


140 A$="A23456789TJQK" 


150 B$="<Y>ES OR <N>0" 


160 CLS 


170 PRINT "I GET AN IMPRESSION... IT'S A 7 "B$ 


180 GOSUB 790 


190 IF C$="Y" GOSUB 820 ELSE GOSUB 900 


200 IF C$="Y" THEN M$="7": GOTO 270 


210 Z=RND(12) 


220 GOSUB 1060 


230 PRINT "SAY, IS YOUR CARD... "Z$" - "B$ 


24 GOSUB 7 90 


250 IF C$="N" THEN PRINT "I WAS SURE IT WASN'T.": Z$= n ": Z=0 


260 IF C$="Y" THEN M$=Z? 


270 IF C$="Y" THEN PRINT " I AM TRULY GREAT, AM I NOT": C$="": PR 


INT L$: Z=0: GOTO 330 


280 C$="" 


790 PRINT LS 


300 GOSUB 1020 


310 GOSUB 790 


320 GOSUB 980 


330 D=RND(2) 


340 PRINT "THIS CARD IS "; 


350 IF D=l THEN PRINT "BLACK." ELSE PRINT "RED." 


3 60 GOSUB 7 90 


370 IF C$="Y" GOSUB 820 ELSE GOSUB 900 


380 IF C$="N" AND D=l OR C$="Y" AND D=2 THEN C$="": GOTO 480 


390 F=RND(2) 


400 PRINT "THE CARD IS A " ; 


410 IF F=l THEN PRINT "CLUB." ELSE PRINT "SPADE." 


420 GOSUB 790 


430 IF F=l AND C$=' , Y" OR F=2 AND C$="N" THEN D? = "CLUBS" 


440 IF F=2 AND C$="Y" OR F=l AND C$="N" THEN D$="SPADES" 


450 IF C$="Y" GOSUB 820 ELSE GOSUB 900 


460 C$="" 


470 GOTO 560 


480 F=RND(2) 


490 PRINT "FURTHERMORE, THE CARD IS A " ; 


500 IF F=l THEN PRINT "DIAMOND." ELSE PRINT "HEART." 


510 GOSUB 790 


520 IF F=l AND C$="Y" OR F=2 AND C$="N" THEN D$="DIAMONDS" 


530 IF F=2 AND C$="Y" OR F=l AND C$="N" THEN D$="HEARTS" 


540 IF C$="Y" GOSUB 820 ELSE GOSUB 900 


550 C$="" 


560 IF M$<>"" GOTO 730 •n/V-"v-~ 


570 H=l rfis£^r~ 






580 GOSUB 1020 •J7^TTmM'* 


7 




d90 GOSUB 7 90 r/^VVVWvA*!* 
600 GOSUB 980 HIfA^J^kX \ 1 


7 




<? <? 




610 IF V<>2 GOTO 580 


A /// V»J\ \ \ \ \ 




620 FOR B=l TO 3 


V V c? 




630 Z$=MID$(A$,B,1) 


lJ[v^^L\\\\\\\ 1 


& & 




640 GOSUB 1060 R^f-'CS^Ss^Vl 




650 PRINT "IT'S THE "Z$ L^^"---^^^^^! 


A 




660 GOSUB 790 




L 




670 IF C$="Y" GOTO 740 






680 NEXT B Listing continues 



Always remember that com- 
puters are not creative in them- 
selves. They need commands or 
programs from you or me be- 
fore they can do anything. 

In creating characters, you 
must let the characters fib 
about their supposed powers. 
Accept the fantasy when you 
try these programs, but don't 
forget reality. 

Mystery Guest 

First, let's find out who the 
mystery guest is. You get 20 
guesses. Even if it seems hope- 
less at first, keep trying because 
there are some hidden clues. 
You won't find them even if 
you key in the program. 

The mystery character pre- 
sents 20 numbered prompts, 
starting with GUESS 1 . Type in 
a name as your guess. Keep 
guessing to find those clues, 
and don't be disturbed if the 
character taunts you a bit. 

I'd be happy to identify this 
person for you, but I don't 
know the answer. She — or he — 
has worn a bag over his — or 
her — head since arriving. 

LaMarle the Amazing 

Can a computer program 
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MAKE IT 
EASY 

TO 

SAVE 

your copies of 




micro 



Your magazine library is your prime reference source— keep it 
handy and keep it neat with these strong library shelf boxes. 
They are made of white corrugated cardboard and are dust resis- 
tant. Use them to keep all your magazines orderly yet available 
for constant reference. 
Self-sticking labels are available for the following: 
80 Micro 73 Magazine Radio Electronics 

Microcomputing QST Personal Computing 

inCider CQ Byte 

Desktop Computing Ham Radio Interface Age 
One box (BX1000) is $2.00, 2-7 boxes (BX1001) are $1.50 each, 
and 8 or more boxes (BX1002) are $1.25 each. Be sure to specify 
which labels we should send. 

Call TOLI/-FREE for credit card orders: 

1-800-258-5473 

Or use the order form in this magazine and mail to: 



micro 



Ann: Book Sales, Peterborough, NH 03458 
□SHIPPING AND HANDLING CHARGES $2.00 per order up to and 

including a quantity of eight 25c for each additional box ordered. L" 



'>,'•<) 



EE/EPR0M PROGRAMMERS & UV ERAS 



AFFORDABLE • RELIABLE • AVAILABLE 



UV ERASERS 

QUV-T8/1 

$49.95 

'HOBBY 

QUV-T8-2N 

$68.95 

'INDUSTRIAL 

QUV-T8/2T 

$97.50 

•WITH TIMER 
& SAFETY SWITCH 

GANGPRO-8" 

$1,295.00 

(GANG 
PROGRAMMER) 



RS-232 serial, STAND ALONE, INTELLIGENT 

•EASY DUPLICATION "USER FRIENDLY "128K BUFFER 

SUPPORTS MOST 8K, 16K. 32K. 64K, 128K. 256K EPROMS 
PR0MPR0-8: KEY PAD OPTION, EPR0M SIMULATION MODE 

Microcomputer Chips: 8748 (H), 8749H, 8750, 8751,8741, 8742, 8755A 

SOFTWARE DRIVERS: MDS ISIS, TEKTRONICS 8002, IBM PC, ATARI,' 
APPLE II, CPM, FLEX, TRS-80 

DIRECT HOOK UP TO ANY DUMB TERMINAL OR COMPUTER 

DISTRIBUTOR INQUIRY WELCOME 

LOGICAL DEVICES INC. 

1231E N.W. 65 Place, Ft. Lauderdale, FL 33309 
Phone Orders (305)- 974-0967 TWX 51 0-955-9496 




^330 



Lr&gS&t*&23&& 



DIABLO DAISY WHEEL PRINT 



nm 



m 



• Standard Centronics Parallel or Serial RS232 

• Compatible with most computers — Ask About Yours! 

• High Speed Heavy Duty. Commercial Grade 

• Full 132 Column Printout Capacity 

• 2,000 Character Print Buffer — No waiting on Printer 

• Tested and reconditioned by Johnson & Johnson 

• Full parts and labor WARRANTY 

• 375,000 Character Ribbon Included FREE 
Uses Metal Printwheel included FREE! 
Friction Feed Standard 
Serial Baud Rates up to 19,200 







t-M^^itWwl 



583 
SgJBra 

m 
r 



SE ALL THESE FEATURES AND MO 

10+12 Pitch and True Pro 
Bi-Directional Printing 
Bold Printing 

Underline Words or Sente..,. 
Subscripts and Superscripts 
Multiple Tabs 
Graphics on 1/120 inch 
Communications commai 
Built-in self tests and Diag 



mEBR 
■H 






ms& 



5f£ra3afi£ 



■NllfomwHi 



AN 80 CHARACTE 



Hii 



INN! 



LIMITED QUANTITY! 

TO ORDER CALL (817) 589-2000 

& JOHNSON COMPU 



2229 EAST LOOP 820 NORTH, FT. WORTH, TEXAS 76112 



WUm 



srs on Page 323 
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Listing continual 

690 PRINT L$ 

700 PRINT "YOU DIDN'T GIVE AMAZING LAMARLE" 

710 PRINT "STRAIGHT ANSWERS. TRY AGAIN?" 

720 END 

730 IF MS<>"" THEN Z$=M$ 

740 PRINT "THEN YOUR CARD IS THE "Z$" OF "D$ 

750 FOR T=l TO 300 



760 NEXT T 








770 GOSUB 82 








780 GOTO 750 








790 INPUT C$ 








800 IF C$<>"N" AND C$O n Y" THEN PRINT. "I NEED A Y 


FOR YES 


OR NO.": GOTO 790 






810 RETURN 








820 C=RND(5) 








830 IF C=l THEN 


PRINT 


"I KNEW IT." 




840 IF 02 THEN 


PRINT 


"I AM SELDOM WRONG." 




850 IF C=3 THEN 


PRINT 


"HOW ABOUT THAT?" 




860 IF C=4 THEN 


PRINT 


"RIGHT AGAIN!" 




870 IF C=5 THEN 


PRINT 


"I AM TRULY AMAZING." 




880 PRINT L$ 








890 -RETURN 








900 C=RND(5) 








910 IF C=l THEN 


PRINT 


"HMMM... I WAS SO SURE..." 




920 IF C=2 THEN 


PRINT 


"YOU MUST THINK HARD." 




930 IF C=3 THEN 


PRINT 


"CONCENTRATE... PUH-LEEZE!" 




940 IF C=4 THEN 


PRINT 


"RATS!" 




950 IF C=5 THEN 


PRINT 


"A TEMPORARY SETBACK." 




96 PRINT L$ 








970 RETURN 








980 IF C$="Y" THEN A$ = 


RIGHT$(A$,INT(LEN(A$) )/2) 




990 IF C$="N n THEN A$= 


LEFT$(A$,INT(LEN(A$) )/2) 




1000 V=V+1 








1010 RETURN 








1020 Z$=MID$(A$ 


INT(LEN(A$) )/2,l) 




1030 IF H=l GOSUB 106C 






1040 PRINT "YOUR CARD 


IS HIGHER THAN "Z$" - "B$ 




1050 RETURN 









OR N F 



FUN 




Listing continues 



masquerading as a magician tell 
which one of a deck's 52 cards 
you have secretly chosen? Of 
course not. But somehow La- 
Marie the Amazing blunders his 
way to an answer every time, if 
you respond correctly. 

One of the secrets of creating 
a computer character is giving it 
a few faults — like you and I 
have — and letting it blab and 
blunder all it wants. LaMarle 
is an effective character be- 
cause he is imperfect in a 
humorous way. 

He makes wild claims, gets 
wrong answers, and generally 
puts on a foolish performance. 



OPERA" 



YOUR COLOR COMPUTER 
THE POWER OF 

M THE WORLD'S LARGEST SUPPLIER OF SOFTWARE FOR THE FLEX 
IG SYSTEM COMES FHL COLOR FLEX. JUST LOOK AT THESE FEATURES: 



IF YOU ARE TIRED OF 
NO DISK SOFTWARE, 
THEN FHL COLOR FLEX 
IS THE ANSWER! 

FLEX is the world's most popular operatii 
system for the 6809 and with over 150 prc w 
we are the largest supplier of serious soft- 
ware for FLEX. These programs range from 
word processors thru business applica- 
tions to software development tool" 
Many Fortune 500 companies use c 
software. FHL Color 



Computer into a 
ful system more 
capable than sys' 
costing several ti 



FLEX NOW ONLY 

•NEW "Ted" Tiny Editor 
• NEW "ISM" Tiny Assembler 
•NEW - Machine language monitor 
•Hi-Res screen formats - 16 x 32, 
24 x 51 upper and lower case, 
24 x 64 and 32 x 64 upper case 
"vdvance disk I/O and terminal 
"ipabilities-supporting 35, 40 and 
iT single or double sided, single or 
double density drives 
No additional hardware required 





iCUSE. NY 13 



PHONE (315) 474-7856 • TELEX 646740 B ' m Si 
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Printers 



Tandy did the right thing locking 
TRS-80s into parallel printers- 
problem is, you're supposed to use 
their parallel printers. Getting help 
from your dealer may be more trouble 
than it's worth, so ask for help from 
local usergroups. SuperScriptsit 
software compatability may be your 
biggest hurdle. 



C. ITOH 

Prowriter 




Reviewers laud the Prowriter's 

speed ( 1 20 cps), the buffer ( 1 .5K), 
character sets (5 fonts) and graphics 
(1 60x1 44 dpi). The Prowriter 2 has 
the same specs, but in a 1 32 column 
format. Because delivery is slow 
nationwide, the Prowriter has 
become "The Printer Worth Waiting 
For..." 

Prowriter $399.88 

Prowriter 2 9734.88 

STARMICRONICS 



Gemini 10X/15 




Qemini 1 0X is an improved version, 
with 1 20 cps, 1 20 x 1 44 dpi, 5 fonts 
(w/italics) and a 2.2K buffer. It's 
Epson code compatible, too. The 
Qemini comes with tractors & uses 
plain spool ribbons. The Qemini 1 8 
is the 1 32 column version. 

Gemini 10 $339.88 

Gemini 15 $409.88 

3KIDATA 

Microline Series 




Microline 82As & 83As are data 
crunchers with 1 20 cps and optional 
dot-addressable graphics ROM, They 
come with both parallel & RS-232C 
interface (up to 1 200 baud). 

The Microline 92 & 93 are text 
processors with 1 60 cps draft mode, 
a 40cps correspondence mode & the 
graphics included. 

Microline 82A $41 9.88 

82A/92 Tractor $59.88 

Microline 83A $679.88 

Microline 92 $524.88 

W/RS-232C $634.88 

Microline 93 $884.88 

W/RS-232C $994.88 



DTC 380Z Letter-Quality Printer 

$111 9.88 UPS DELIVERED 



The DTC-380Z is a 30 cps 

letter-quality printer with true 

Diablo emulation. 10/12/15 

cpi, sub/super scripts, 

underlining, graphics, 48K data 

buffer & 3 on-board interfaces 

for maximum compatability 

(RS-232C or IEEE488 cost 

$1139.88). Looks like the 

Brother HR-1 , Comrex & Daisywriter, & it uses the same printwheels & 

ribbons. The 380Z s documentation & packaging is superior to the 

DaisywriteCs, as is the support. We think Daisy's cute, but she's not as 

efficient as the 380Z. 




We sell otherdot matrix printers, 
including the Anadex Series, 
Centronics Series, the Epson 
Series, the IDS Prism Series & the 
Mannesmann Tally 1 60-L 

Letter-Quality 

C. ITOH 

Starwriter 




The Starwriter uses Diablo code, 
wheels & ribbons, has 1 32 columns, a 
40 cps print speed, 1/48" line space 
& 1/120" horizontal spacing— ideal 
for proportional modes. Parallel or 
RS-232C interfacing. (For real speed 
freaks, there's the Printmaster. at 
55 cps. Same specs as above.) 

Starwriter $1 379.88 

Printmaster $1679.88 

SILVER REED 



EXP-550 




Why buy a Transtar when you can 
buy from the guys who make them? 
The Silver Reed EXP-550 is a 1 6 

:ps, 1 32 column letter-quality printer 
with true Diablo emulation, making it 
compatible with most word pro- 
cessing software. It's ideal for 
medium duty office work. The EXP- 
500 is a 1 2 cps version. 

EXP-550 (Parallel) 871 9.88 

EXP-500 (Parallel) SCALL 



We sell a variety of other letter- 
quality printers, including the Diablo 
620 & 630, the NEC 3530 & 7730 
Spinwriters, the Qume Sprint 1 1 + & 

many others. Call (603l 881-9855 for 
technical details. To order, call (800) 
343-0726. 



Modems 

EMTROL 

Lynx 




m 

The Lynx is a bus-converting 
modem, meaning you don't need a 
RS-232C interface to run it. It's a 
0-300 baud modem, originate/ 
answer, that has auto dial/answer, 
full/half duplex & comes complete 
with all hardware & software. The 
communication's program, Emterm, 
is on cassette. We suggest you buy 
one on disk that supports all the 
Lynx's features (see Microterm 
below). 
Lynx $229.88 

DC Hayes Modems 

Smartmodem (300 baud) .... $21 9.88 
Smartmodem ( 1 200 baud) . . . $539.88 

Novation Modems 

J-Cat (300 baud) $1 39.88 

SmartCat (300 baud) $1 99.88 

SmartCat(1 200 baud) $499.88 

AutoCat(300 baud) $229.88 

AutoCat(1 200 baud) $629.88 

STANDARD MICROSYSTEMS 

Microterm 

A terminal program should support 
all the "bells & whistles" on a modem, 
& Microterm supports auto-dial/ 
answer modems like the Lynx, DC 
Hayes Smartmodem or Novation 
Smart/AutoCats. Features prepro- 
grammed dial & transmit, direct file 
transfer, 34K capture buffer and a 



certified 2400 baud operation rate. 

Specify Model I or Model III when 

ordering. 

Microterm $79.88 

STANDARD MICROSYSTEMS 

DOSPIus3.4 

The preferred disk operating system 
for Model I or III. Features BASIC 
array sort, (multi-key, multi-array), 
active "DO", device routing, DOS 
command repeat, etc. Specify Model 
I or III, single or double track, 40 or 80 
track drive. 

DOSPIus3.4(Mod I) $59.88 

DOSPIus3.4(Modlll) $89.88 

PROSOFT 

NewScript 

Forget all those "evaluation" 
articles. NewScript is the best word 
processing software available, bar 
none. NewScript gives you propor- 
tional spacing, single and double 
width type, subscripts, superscripts, 
underlining, boldface, multiple 
pitches, full-screen editing, global 
search/replace, a customized "form" 
letter that creates its own mailing 
labels— exceptional performance. 
NewScript comes with detailed 
documentation and support from the 
authors. Specify Model I or III when 
ordering. 

NewScript $11 2.88 

NewScript Options 
ScripSit-to-NewScript File 

Conversion Software $27.88 

Proportional Module $46.86 

CORNUCOPIA 

Electric Webster 

Electric Webster is a 50,000 word 
dictionary that features spell 
checking & a "browse" feature 
allowing you to choose spellings or to 
enteryour own. Fully NewScript 
compatible. 
Electric Webster $1 34.88 



Information/Orders: 

(603)881-9855 

Orders Only: (800) 343-0726 



No Hidden Charges: 

We pay UPS ground shipping on all 
our orders, and we never charge 
extra for credit cards. We accept 
CODs & add a $ 1 fee per order. We 
have a $50 minimum order. Personal 
checks are cleared in 3 weeks. 

Allourequipment isshipped 
factoryfresh, with full warranties. 
We're authorized for warranty work 
on a number of printers, & we also 
offer extended warranty plans for 
those printers. 

Sorry, we cannot accept open POs 
or extend credit/terms at these 
prices. APO and foreign orders are 
not accepted. 

We prepared this ad in May, & 
prices do change, so call to verify 
them. 



DIRECT - w 

MARKETING ASSOCIATION 




HIGH TECHNOLOGY AT AFFORDABLE PRICES 

THE BOTTOM LINE 




IMILFORD, NH 03055-0423 □ TELEPHONE (603) 881-98551 
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1060 


Tr Z = l 


OR Z$="A" 


THEN 


!$=« 


ACE" ELSE IF 


7, 


= 10 


OR 


z$ 


= "T 


THEN 


ZS="TEN" 


























1070 


IF Z=ll 


OR 


Z$="J 


" THEN 


z$= 


"JACK" 


ELSE 


IF 


Z = 


12 


OR 


Z$= 


Q" THE 


N Z$- 


="QUEEN" 


























1080 


IF Z=12 


OR 


2S^"K 


K THEN 


z$= 


"KING" 
















1090 


IF H=l 


THEN RETURN 




















12 00 


IF Z>1 


AND 


2<;I0 


THEN Z$=MID$(A$ 


2,1) 














1110 


RETURN 


























1120 


END 































Minerva the Fortune-teller 




100 


REM * 


MINERVA THE FORTUNETELLER * TRS-80 LEVEL II 


AND COLOR 


BASIC 






110 


REM * 


FUN HOUSE / AUGUST '83 / R.RAMELLA 




J2K 


CLS 






130 


CLEAR 


2 




140 


PRINT 


" HELLO, I AM MINERVA THE FORTUNETELLER..." 




150 


PRINT 


"MY FEE IS 50 BYTES." 




160 


FOR T = 


1 TO 1000 




170 


NEXT T 




180 


CLS 






190 


PRINT 


"WELL... ON TO BUSINESS." 




200 


INPUT 


"DO YOU BELIEVE I HAVE THE POWER TO FORETELL TH ; 


E";CS 






210 


N = N+1 






220 


if n=: 


GOTO7 




230 


IF C$<>"YES" AND C$O"N0" THEN PRINT " COULD YOU 


BE SPECIFIC 


, SUCH AS 


YES OR NO?": PRINT: GOTO 200 




2 40 


IF CS = 


"YES" THEN PRINT "AND I'LL BET YOU BELIEVE 


IN THE TOOT 


H FAIRY." 


ELSE GOTO 700 




250 


PRINT 






26 


PRINT 


"FOR 50 BYTES I WILL ANSWER THREE YES-NO QUES 


270 


PRINT 






280 


FOR T= 


1 TO 3 


Listing continues 



And when you least expect it, 
he might correctly guess the 
card you've chosen. 

To see what LaMarle can do, 
answer his guesses with a Y for 
yes or an N for no. Always tap 
enter after answering Y or N. 

And please be kind to poor 
LaMarle if he doesn't perform 
well. Computer programs have 
feelings too, and he has prac- 
ticed very hard to entertain you. 

Minerva the Fortune-teller 

Minerva is so interesting be- 
cause we'd all like to know 
what the future holds. She 
claims she can answer your 
yes/no questions. Even when 
you know her answers are ran- 
dom, you remain interested. 

Minerva says her fee for 
three questions is 50 bytes. 
You must at least pretend to 



ATTENTION EPSON OWNERS 

The ultimate solution to your paper storage *• - 
problem at an unbelievable low cos' - l ---'-■ 



' n^i 






PRINTER- STILTS™ printer supports 

FEATURES: 

• Precision machined from solid aluminum. 

• Tilted to facilitate viewing paper. 

• Soft rubber feet to absorb vibration. 

• Easy to install — no tools required, 

O-rings insure tight fit into printer recesses. 

• Natural finish aluminum. 



Available in two styles (MX-70/80 or MX-100) for your 
EPSON Printer. The MX-70/80 style also fits the IBM & Tl 
PC dot matrix printers and the HP82905B printer. To order 
PRINTER- STILTS" printer supports give style and send 
$9.95 plus $2.00 postage/handling or call today: 
Louisiana residents add 5% tax. 



BATATEK INC, 



Dept. 100 
P.O. Box 5956 
Shreveport. La. 71 
(318) 868-2241 or 868-0068 til 10 



3K 







OVING? 



Let lis know 8 weeks in advance so that you won't miss a 
single issue of 80 Micro. 

Attach old label where indicated and print new address in 
space provided. Also include your mailing label whenever 
you write concerning your subscription. It helps us serve 
you promptly. 
UExtend my subscription one additional year lor only $35.97 



[ : Payment enclosed 



J Bill me 



Canadian and Mexican $44.97 1 year only US funds. Foreign $54.97 1 year only US funds, 
drawn on US bank. Please allow 6-8 weeks for delivery 



80 MICRO 



mm 



If you have no label handy, print OLD address here. 



a ~ Name 



x Address 
< City 



State.. 



Zip. 



print NEW address here. 



Name. 



Address 

City 



State. 



Zip 



P.O. Box 981 • Farmingdale NY 11737 
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OPTIONAL: 

SMEG REMOVABLE DISK CARTRIDGE DRIVE 

10 MEG — s 1249. 15 MEG — s 1449. 
10 -10 MEG — $ 1999. 15-15 MEG — s 2299. 
5MEG DISK CARTRIDGE $ 75.00 

ADAPTOR KIT 

For APPLE II & He 
For FRANKLIN 
For IBM-PC/XT 
For TRS-80 MODI 
ForTRS-80MODN 
ForLNW-80/11 
Under Desk 
Mounting Bracket 
1 Yr Ext. Warranty 




34.95 
$150* 



As with our Winchester Hard Disk Drive, all our 
designs are tested, re-tested and "burned in!' We're 
so proud of our quality control that we offer an 
unconditional extended warranty covering full costs 
of parts and labor on all VR Data products. 

Wm m BMH^ If You Don't See It Advertised 

VR 

777 Henderson Boulevard N-6 

Folcrofr, PA 19032 1 5151 161-5300 



INTRODUCTORY 
SPECIAL PACKAGE 

SAVE $ 75.00 

5Meg Winchester 

fixed drive 

5 Meg removable Disk 

Cartridge drive 

Adaptor 

(your choice) 

5Meg Disk 

Cartridge 





5995. 



'595. 



$ 150. 

FREE 
s 1740. 



Call Toll-Free 

800-345-8102 



Published prices reflect cash discount. All prices 
are subject to change without notice. TRS-«0 and 
TRSDOS are trademarks of Tandy Corp. DISK III 
is a trademark of VR Data Corp. 
8:30AM-7PM E.S.T. Mon.-Fri., Sat. 10AM-3PM 
CABLE "VRDATA" TELEX 845-124 
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290 PRINT "QUESTION"! 




300 INPUT ZS 




310 PRINT 




3 20 PRINT "})"; 




330 FOR G=l TO RND{30) 




3 40 PRINT "M"; 




350 FOR H=l TO 50 




360 NEXT H 




370 NEXT G 




380 PRINT 




390 A=RND(10) 




400 IF A=l THEN PRINT 


'NO." ELSE IF A=2 THEN PRINT "YES." 


410 IF A=3 THEN PRINT 


'PERHAPS, BUT THE CRYSTAL BALL IS CLOUDED. 


420 IF A=4 THEN PRINT 


'YES, BUT YOU'LL SOON BE SORRY." 


430 IF A=5 THEN PRINT 


"SIGNS SAY NO." 


440 IF A=6 THEN PRINT 


' YES, AND YOU WILL BE SURPRISED WHEN IT C 


OMfiS TO PASS." 




450 IF A=7 THEN PRINT 


" THE OUTCOME IS DIMLY SEEN. ASK LATER." 


460 IF A=8 THEN PRINT 


'IF YOU WISH IT... YES. OTHERWISE... NO." 


470 IF A=9 THEN PRINT 


'THIS IS VERY POSSIBLE." 


480 IF A=10 THEN PRINT 


"IF THIS IS A WISH, TAKE IT BACK AND AVOI 


D DISASTER." 




490 PRINT 




500 NEXT T 




510 PRINT "NOW FOR YOUR SPECIAL FORTUNE." 


520 FOR T=l TO 1000 




530 NEXT T 




540 A=RND(10) 




550 IF A=l THEN PRINT 


"YOU WILL SOON TAKE A TRIP OVER WATER... S 


WATCH OUT FOR MUD PUDDLES." 


560 IF A=2 THEN PRINT 


"YOU SHALL BE HAPPY AS LONG AS YOU ARE KIN 


D TO CHILDREN AND GYPSY FORTUNETELLERS." 


570 IF A=3 THEN PRINT 


"SOMETHING IMPORTANT WILL HAPPEN ON YOUR B 


IRTHDAY." 




580 IF A=4 THEN PRINT 


'YOU RECEIVE JUST PAY FOR A DEED YOU WILL 


PERFORM. " 




590 IF A=5 THEN PRINT 


'SOMEONE VERY NEAR LIKES YOU QUITE A BIT. 


IT IS. . . I CAN'T QUITE 


MAKE OUT THE NAME. " 


600 IF A=6 THEN PRINT 


'YOU WILL HAVE MANY FRIENDS, FOR YOU ARE A 


FRIEND TO MANY." 




610 IF A=7 THEN PRINT 


"IF TODAY IS APRIL 1, BEWARE! MANY PEOPLE 


WOULD TRICK YOU." 




620 IF A=8 THEN PRINT 


"SOMEONE WISHES' GOOD THINGS FOR YOU..." 


630 IF A=9 THEN PRINT 


"HAPPINESS IS YOURS FOR THE PRICE OF THE S 


MILES YOU SPEND." 




640 IF A=10 THEN PRINT 


"REMEMBER THE PAST? IT MAY HAPPEN AGAIN." 


650 FOR T=l TO 1000 




660 NEXT 




670 PRINT 




680 PRINT "CROSS MY SOLENOIDS WITH 50 BYTES AND DEPART. THANK YO 

i < n 


U * 

6 9(3 END 




700 PRINT "I ALSO CAN 


BE CONTRARY. I FOLD MY TENT AND DEPART." 


710 END 





believe she can tell the future or 
she becomes angry and the pro- 
gram ends. 

When Minerva gives the 
prompt QUESTION 1 ?, type 
in your question and tap enter 
for the answer. After the third 
answer, Minerva provides a 
special fortune. It's special be- 
cause it's one of ten she can 
choose. The program ends with 
Minerva demanding her fee and 
saying thank you. 

The program Minerva can 
crash if your questions are too 
long. If you have a 16K or 
higher system, change line 130 
to read 130 CLEAR 1000. If 
you have a 4K system, ask 
shorter questions. ■ 



If you have trouble making any 
Fun House program work, write 
me, Richard Ramella, at 1493 
Mountain View Ave., Chico, CA 
95926. You must include a self- 
addressed envelope with a 20-cent 
stamp on it. Canadians should 
send 40 cents in coin and a self- 
addressed envelope. Include a 
printed listing of the program as it 
is in your machine or describe 
your error message and its line 
number. 



THOR symbol of new power for your Model l/l 1 1/4 Computer 

CALL 1-800-641-3885 
for orders only. 



THOR INTERNAL MODEL III/4 
DISK DRIVES 

All the hardware and easy directions to install one or 

two drives— With TRSDOS-— (NEWDOS - for dual 

drives) 

Kit containing one two drives. 

Single 40 $449/$ 649 

Dual 40 $599 $ 875 

Dual 80 $725 $1125 

THOR WINCHESTER SPECIAL 

DISK SYSTEM PRICE 

One or two drives — Price includes one drive with NEW- 
DOS-80', case and power supply — Slot for second 
drive. 

5 Megabyte $1449 

10 Megabyte $1649 

15 Megabyte $1899 

20 Megabyte $2149 




For technical information 

or in Colorado call 

303-337-5909 

UjrnS Western Micro Systems 

• 2760 South Havana, Suite S • 

Aurora, Colorado 80014 

"TRSDOS is a trademark of Tandy Corp and NEWDOS-80 is a trademark of Apparat, Inc. 
Prices are cash — Visa MasterCard/American Express/COD available on request 

•■■■■■^■"■■■■■■■■■■^ Dealers enquiries welcome ■■■■■■■^^■^^^■■■■m" 



THOR NETWORK CONTROLLER 

Connect up to 254 computers of most any make over 
as much as 5000 feet of cable — Share 5 to 60 mega- 
bytes or more of disk storage — Call for additional infor- 
mation and prices 

THOR DIGITAL PORT 

14 IN and 15 OUT— Each port a full 8 bits 

Connector to attach to Model I/III/4 bus- 
Complete with cable and case— Requires 5 volts at 150 ma. 
Assembled and tested 

For Model I Only $39.95 

For Model 111/4 Only $44.95 



THOR POINT-OF-SALE SYSTEM 

Includes 16 lines of 32 changes of green screen monitor 
(adjustable tilt), keyboard, 40 character per line alphanu- 
meric printer, and cash drawer— Software to perform all 
cash register functions such as automatic pricing, inven- 
tory control, and daily totals. Can plug into a Model HI/4 or 
the THOR NETWORK *1799 
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Daisy wheel quality 
without daisy wheel 



expense* 



| You need the quality print that a daisy wheel 
printer provides but the thought of buyingone makes your 
wallet wilt. The Selectric™ Interface, a step*by-step guide to 
interfacing an IBM Selectric I/O Writer to your microcom- 
puter, will give you that quality r at a fraction of the price. 
George Young, co-author of Microcomputing magazine's 
popular "Kilobaud Klassroom" series, offers a low-cost al- 
ternative to buying a daisy wheel printer. 
The Selectric"^' Interface includes: 
•siibp-by-step instiluctions i 
•tips on purchasing a used Selectricfh 
•iipormation onjf'arious Selectric™ 'models, |n- 
clding the 274| 2980, and Dura 1041 

• driver software |?r Z80, 8080, and 6502 chips 

• tips on interfacing techniques 

With The Selectric Interface and some background in elec- 
tronics, jrou can have a high-quality, low-cost, letter-quali- 
ty printfr. Petals not included. , 



Credit lard orders call TOLL-SREE 1-81)0-2 58-5|73. Or 
mail your order with payment »plus $1.50 shipping and 
handling to: Wayne Green Inc. Attn: Retail Book Sales, 
Peterborough, NH 03458. 

Dealer inquiries invited. ^ . * 

JSBN 0-8$p06-05 1-4 1 28 pag| ij> 1 2 ♦ 9 7 

D Yes, Lwant Selectric Interface (BK7388). Enclosed is |l2.97 per 
copy plus SI. 50 for shippint and handling. 

□ MASTER DVISA PAMEX 



Card #. 
Signature 
Name _ 



Expires 



Address 
City 



State arid Zip 



337B8S 



RadioShackTRS-8as 



Full Line 








YOU CAN SAVE money when you buy Radio Shack TRS-80 Com- 
puters from Pan American EleCtronlCS. Pan American Elec- 
ironies went into business in 1976 and led the way in bringing con- 
sumers original Radio Shack TRS-80 Computers at reduced prices. 
NO other company has done it longer. 
NO other company has done it better and 
NO other company sells them for less. 

Pan American 
Electronics 

TOLL FREE NUMBER 800/531-7466 

1117 Conway Avenue • Department E.M. 
Mission, Texas 78572 
Phone: 512/581-2766 
Telex Number 767339 

tm — Trademark of Tandy corporation _, .„ 



wgmmm 

mBmOBH 




SUPER UTILITY PLUS VERSION 3.0 



V" 3 



Model 1 and 3 Software | Color Computer Software 



Killer Gorilla Sl5.g5/S10.95 

Jungle Boy Si 5.95/Sl 9.95 

Killer Beetles $15.95/$19.95 

Strike Force $15.95/$19.95 

Subterranean Encounter 

Tape $22.95 Disk S24.95 



Communications 



Modem 80 $39.95 

DFTII.. $24.95 

Color DFT $19.95 

Lynx Modems $225.00 

Hayes 3/12 $549.95 

Hayes 300 $249.95 



Miscellaneous 



NewDos 80 $119.95 

DosPlus $119.95 

Multidos $85.00 

C. Itoh Prowriter (par) $375.00 

Epson FX-80 (par) $549.95 

Mx-80 ribbons $7.95 



Color Caterpillar $19.95 

Death Trap $19.95 



Subhunt 

Shark Treasure 
Frogger, (great) 
Donkey King. . . 
Cave Hunter 
Dragon Quest. . 
Doodle Bug. . . . 
Galaxy Attaxx . 



Color Hardware 



$19.95 
$19.95 
$24.95 
$24.95 
$24.95 
$19.95 
$24.95 
$21.95 



Amdek lll-B drives $549.00 

Atari Joystick adaptor $17.95 

C. Itoh Prowriter (ser) $499.95 



Miscellaneous 



Micro Pak Printer Paper 

540 sheets only $10.00 

this is 20 pound laser cut or buy in full 

3.000 sheel 

only $29.95 



Most orders are shipped out in 24 hours. Visa & Mastercard, Money Orders, 
Checks, C.O.D. accepted. Please allow 10 days to clear on all checks. Write or 
call today! Add S3. 00 shipping & handling. Orders going out of U.S.A. please 
add $5.00. Prices are subject to change without notice. Cash prices shown 
for items over S200.00 



w'See List of Advertisers on Page 323 
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IDBACK LOOP 



by Terry Kepner 



Send any questions or problems dealing 
with any area of TRS-80 microcomput- 
ing to Feedback Loop, 80 Micro, 80 
Pine St., Peterborough, NH 03458. 

A number of companies are offering 
i\cP/M support systems for the 
Model III. How do you go about 
obtaining CP/M public domain soft- 
ware, and what are the compatibility 
problems? 

R.K. 

Albany, NY 

Finding public domain software of 
any kind is difficult. There's lots of it 
out there, but you don't see it adver- 
tised. Your best sources of public do- 
main programs are user's groups, clubs, 
and bookstores. Another source is Dr. 
Dobb's Journal (P.O. Box E, Menlo 
Park, CA 94025, $2.50). It frequently 
has articles on CP/M, as well as pro- 
grams you can use without worrying 
about copyrights. If you have a Com- 
puServe number, you can either put a 
request for help in their bulletin board 
section or join their CP/M Special In- 
terest Group (SIG-PCS47). 

CP/M compatibility problems are 
similar to the compatibility problems 
involving Basic. Different dialects re- 
quire alterations to the programs. Un- 
like Basic, however, CP/M has been rig- 
idly controlled by Digital Research, the 
company that owns CP/M. This con- 
trol has considerably reduced the 
incompatibilities you might encounter. 
The only real problems lay with ma- 
chine-language subroutines. 



/ think the question of expanding 
RAM in the TRS-80 deserves more at- 
tention. Many of us have kept our 
Model I's simply because they've been 
good to use and we like them, but we do 
get frustrated by their 48K limitation. 

A firm called MicroHatch has a 
modification called Bigmem that 
replaces the 16K keyboard RAMs with 
64K RAMs. They claim this allows 
Model I users to use 96K while using 
RAMs that require 20 percent less 
power than the old RAMs. Bigmem will 
also support CP/M 2.2-compatible 
programs. 

If all this is true, every Model I owner 
should know about it. What do you 
think of it? There has to be a way to up- 
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Questions 

and 
answers 



grade beyond 48K without bypassing 
ROMs or making other sacrifices. 

J.M. 

San Clemente, CA 



The theory of all CP/M and other 
memory expansion units for the Model 
I and III computers is to replace the 
ROM with RAM. The Z80 can address 
only 64K of contiguous RAM. That's a 
physical, limitation of the 16-bit address 
bus (2 to the 16th power equals 65,536 
possible addresses). When you have the 
full 48K of RAM installed in your 
computer (from addresses 4000H to 
FFFFH), the remaining addresses 
(0000H to 3FFFH) are used for the 
ROMs and miscellaneous system RAM 
overhead. This means that you've used 
all the addresses available on the Z80 bus. 

To get more RAM you have to resort 
to programming and hardware tricks. 
Simply replacing the ROM with RAM 
would leave you a 64K Z80 computer 
with no way of communicating with the 
outside world (remember, part of the 
ROM is used to tell the Z80 how to in- 
terface with the cassette tape, disk 
drives, video monitor, and keyboard). 

The CP/M modification always in- 
cludes a simple program that boots your 
disk drive and loads the CP/M system 
driver software, letting you communi- 
cate with the Z80 via the keyboard and 
video monitor. In effect, you've re- 
placed the Tandy Basic ROMs with a 
new system in RAM that puts you in a 
DOS environment instead of Basic. 

If you need Basic, it's loaded from 
the disk. Because the CP/M system 



doesn't include Basic in ROM, you have 
more RAM available for programs and 
data until you load in Basic. One com- 
pany, however, puts the entire CP/M 
system into ROM so you can switch 
from Basic to CP/M without having to 
load from a disk. 

To get more than 64K of RAM in 
your system, you have to use a system 
called memory banking: You address 
64K contiguous bytes of memory, but 
the Z80 doesn't care which bank of con- 
tiguous memory it addresses. Memory 
banking requires both hardware and 
software to switch banks of RAM into 
and out of the address bus. This is how 
Bigmem works. You normally address 
the 64K in your keyboard. When you 
want to address the 32K in your expan- 
sion interface, you turn off the upper 
32K bank of memory in the keyboard 
and turn on the RAMs in the expansion 
interface. Thus, you can store data in 
one bank, process it, and then switch to 
the other bank and process its data. You 
can't have a program that spans both 
banks. If you try to do that, when the 
program switches banks, part of the 
program will no longer exist as far as the 
CPU is concerned. 

To accomplish that type of memory 
banking requires a supervisor program 
to constantly check the program and 
make sure that the proper part of the 
program is always turned on when the 
Z80 goes to address it. One mistake and 
your program becomes hopelessly con- 
fused and you have to start over. 

Memory banking can be done on a 
Model I or III without sacrificing 
ROM. In fact, you can even use mem- 
ory banking for word processing and 
spelling programs. Just put your pro- 
gram in the upper 32K bank, the data in 
the lower 16K, and then switch the up- 
per banks between spelling and word 
processing. 



I'm interested in increasing the avail- 
able RAM in my Model III. In reading 
advertisements, it appears you can get 
an additional 16K and also increase the 
display to 80 columns by 24 rows. It 
isn't clear, however, if these kits require 
CP/M to use these features. I'd like to 
have 64K and the larger display to use 
with both my DOSPLUS 3.4 VisiCalc 
and Scripsit programs, but I don 't want 



i% LIVE WIRES FROM 
5 THE UTILITY COMPANY! 



INSTANT ASSEMBLER 

New Version! 

The INSTANT ASSEMBLER is a powerful assembly language development system for the 
TRS-80, and our new version is better than ever. If you are already an assembly language 
programmer, its unique design will greatly increase your productivity: If you are just getting 
started, there is no better assembler to help you learn machine language programming. 
Some of its unique features are immediate assembly, which detects syntax errors as source is 
entered, and a compact source format that allows you to write programs nearly three times as 
large as other assemblers in the same amount of memory. It produces relocatable code 
modules that can be saved on disk or tape and linked together in memory for large or 
modular assemblies. It will also assemble to disk, tape, or directly to memory for immediate 
debugging with the built in debugger Yo i < an quickly switch from assembler to debugger 
without losing your source. The built-in debugger will step though your programs one 
instruction at a time, showing each disassembled instruction and its effect on the registers and 
memory. It can even use the symbols in your source code when stepping or disassembling. 
Our new version will load or save both conventional source files and its own condensed 

source format 

The INSTANT ASSEMBLER package includes six separate programs. The assembler itself 
includes the editor and built-in debugger. The LINKING LOADER is included in several 
versions for different memory sizes. A stand-alone version of the debugger (MICROMIND) 
is also included. MICROMIND can be relocated in memory and has commands to single- 
step, set breakpoints, display or alter registers or memory, find bytes or words, disassemble to 
screen or printer, convert between hex and decimal numbers, and write SYSTEM tapes. The 
INSTANT ASSEMBLER comes with a comprehensive 65 page instruction manual with 
many examples. 

Specify Model I or Model III. TAPE INTASM 2.1 $39.95 on tape 

Specify Model I or Model III. DISK INTASM 2.1 $49.95 on disk 

INSIDE LEVEL II 

The Programmers Guide to the TRS-80 ROMS 

INSIDE LEVEL II is a comprehensive reference guide to the Model I and Model III ROMs 
which allows the machine language oi Basic programmer to easily utilize the sophisticated 
routines they contain. Concisely explains set-ups, calling sequences, and variable passage 
for numbei conversion, arithmetic operations, and mathematical functions as well as 
keyboard, tape, and video routines. Part II presents an entirely new composite program 
structure which loads under the SYSTEM command and executes in both Basic and machine 
code with the speed and efficiency of a compiler. In addition, the 18 chapters include a large 
body of other information useful to the programmer including tape formats, RAM useage, 
relocation of Basic programs, USR call expansion, creating SYSTEM tapes of your own 
programs, interfacing of Basic variables directly with machine code, and special precautions 
for disk systems. INSIDE LEVEL II was reviewed in the April 1982 issue of 80 Micro which 
said "The book has no flaws; it is a perfect gem. " Byte Magazine said "I recommend this book 
to serious machine language programmers." 
Includes updates for Model III. INSIDE LEVEL II $15.95 

DEMON 

New Program! 

DEMON (for DEbugger and MONitor) is a new and sophisticated tool with which you can 
explore and debug machine language programs. It has two modes of operation. In the STEP 
mode, it "emulates" the operation of the Z-80 and allows you to step through any machine 
language program one instruction at a time, showing you the address, hexadecimal value, 
Zilog mnemonic, register contents, and step count for each instruction. This ability is 
extremely useful not only in debugging your own programs, but also for examining how 
other people's programs work. It will even follow program flow right into the ROMs. DEMON 
leaves the video screen unaltered so that the program you are stepping through can perform 
its display functions unobstructed. STEP mode commands include step (trace), step to a 
branch, run in step mode a! a variable rate, run for a specified number of steps, change flags 
or registers, execute a CALL or RST set breakpoints in RAM or ROM, and break when a 
number in a defined range appears in any double register. Commands in the MONITOR 
mode (all of which are available from the STEP mode) include hex arithmetic, hex to decimal 
conversion, block move fill memory, find bytes, jump to address, disassemble to s :reen or 
printer, load memory from disk or tape, write memory to disk or tape, full screen memory edit 
in hex or ASCII, and relocate other programs or itself. DEMON also includes a labelling 
disassembler with EDTASM format output to either disk or tape. This will generate source 
code from programs in memory which can then be altered and reassembled with 'your 
assembler. Screen displays may be routed to your line prints for hard copy 
Specify Model I or Model III. DEMON $29.95 on tape or disk 

DUPLICATE SYSTEM TAPES WITH CLONE 

Make duplicate copies of almost any tape including Basic, SYSTEM, data lists, assembler 
source, or "custom loaders". The file name, load address, entry point, and every byte (in 
ASCII format) are displayed on the video screen. Model III version allows changing tape 
speed so you can make 1500 baud copies of 500 baud programs like SCRIPSIT 
Specify Model I or Model III. CLONE $16.95 on tape. $21.95 on disk 



DISK INDEX VERSION 3 

Our excellent disk indexing program has now been entirely rewritten in machine language. 

DISK INDEX will assemble a master index of your entire program library by automatically 
reading the program names and free spare from each disk. I'he index may then be 
alphabetized or searched foi ani, disk program or extension It will alphabetize 2400 
programs in less than 50 seconds and will find any program out of 2400 in less than 3 
seconds. Disks or programs may be added or deleted manually, and the whole index or any 
selected pari may be printed on paper in several different formats The index itself may also 
be stored on disk for future access and update. A 48K machine will hold up to 255 disks and 
over 2400 programs in each index, and you may build as many indexes as you need. There is 
no limit to the number of filenames it can read on any one disk. It will run on either a Model 1 
or Model 111 and catalog disks foreithei machine regardless of which one is running it, though 
Model I owners must have double density to catalog Model III disks. It will automatically 
recognize any DOS and disk density. DISK INDEX works with any operating system written 
for the Model I or Model III except CP/M. and is extremely fast and easy to use. 
Specify Model I or Model III. DISK INDEX VERSION 3 $29.95 on disk 

TELCOM II 

Out popular smart terminal program has just gotten a lot smarter. Aftei two years of 
experience with TELCOM and many requests from customers, we have created TELCOM II 
for the most demanding telecommunications applications. TELCOM II maintains the same 
ease of operation and all the features of our original program (see below), and includes many 
enhancements. The terminal mode now has a help menu, a large spooler for simultaneous 
printer output at high baud rates, acknowledges receipt of all commands, and displays 
control characters. You can now load disk files into the memory buffer from within the 
terminal mode, transmit the buffer with a single command, and send files a line at a time. You 
can even view the buffer or data that has already scrolled off the screen. TELCOM II has 10 
different 40 character programmable messages that can each be sent with a single command, 
and the messages can now include control codes and delays It also has 5 different character 
translation tables for compatibility with different systems. One of the most substantial 
additions to TELCOM is a full protocol file transfer mode which is compatible with the LYNC 
program available on CP/M systems and the IBM PC. TELCOM II will exchange disk files 
with any computer running this protocol (including another TRS-80 running TELCOM II), 
and will automatically correct errors in transmission! Files can be sent to or fetched from an 
unattended computer with ZERO errors. The extreme ease of use TELCOM is known for has 
nor been compromised Reconfiguration oi the programmable features is done internally 
from clear menus for fast, easy operation. TELCOM II comes with a comprehensive 
instruction manual which is available separately for $5 (which will apply to subsequent 
purchase of the program). You won't find a smarter or easier to use terminal program at any 
price. 
Specify Model I or Model III. TELCOM II $69.95 on disk 

TELCOM I 

Our original and popular smart terminal program has most of the features needed to 
communicate with time share systems or for high speed file transfers between two disk based 
micros over modems or direct wire. It is menu driven and extremely simple to use. Functions 
include terminal mode, save RAM buffer on disk, transmit a disk file, receive a disk file. 
examine and modify UART parameters. 8 programmable log on messages, automatic 
checksum verification of accurate transmission ami reception, end many more usei conveni- 
ences. Supports line printers, lowercase characters, XorvXoii protocol, programmable 
character keys, and even saves itself on disk in different configurations ll will also exchange 
binary files without conversion to ASCII 
Specify Model I or Model III. TELCOM I $39.95 on disk 

RAM SPOOLER AND PRINT FORMATTER 

This program is a full feature print formatting package featuring user defineable line and page 
length (with line feeds inserted between words or after punctuation), indentation, screen 

dump, and printer pause. In addition, printing is done from a 4K expandable buffer area so 

that the l.PRINT or LL1ST command returns control to the user while printing is being done. 
Works with rasselie or disk systems Allows printing and processing to run concurrently. 

Output may. be directed to either the parallel port, serial port, or the video screen. 80 Micro 

said "I can only give my highest recommendation of Spooler and Mumford Micro Systems. " 
Specify Model I or Model III. SPOOLER $16.95 on tape, $21.95 on disk 

4 SPEEDS FOR YOUR MODEL I 

The SK-2 clock modification allows CPU speeds to be switched between normal, an increase 
of 50%. or a 50% reduction; selectable at any time without interrupting execution or crashing 
the program, instructions are also given for a 100% increase to 3.54 MHz. The SK-2 may be 
configured by the user to change speed with a toggle switch or on software command. It will 
automatically return to normal speed any time a disk is active, requires no change to the 
operating system, and has provisions for adding an LED to indicate when the computer is not 
at normal speed, (t mounts inside the keyboard unit with only 4 necessary connections for the 
switch option (switch not included), and is easily removed if the computer ever need- service 
The SK-2 comes fully assembled with socketed IC's and illustrated instructions. 
Model I only. SK-2 $24.95 



MUMFORD 

MICRO 

SYSTEMS 



ORDERING: Complete satisfaction is guaranteed or a full refund will be made. Include $2.00 
for postage and handling. California residents add 6% sales tax. Visa. Mastercharge and COD 



Box 400-E Su 



93067 (805) 969-4557 



, V * ' 
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to have to convert these programs to 
CP/M. 

W.L. 
Sun City, AZ 

Yes, you do have to use CP/M to get 
the increased RAM, but not necessarily 
for the larger display (see the following 
letter for details on increased video dis- 
play). To get the extra RAM, you'll 
have to disable the built-in ROM Basic, 
which also disables the I/O routines of 
the ROM and makes DOSPLUS virtu- 
ally useless. Since both Scripsit and 
VisiCalc are designed to operate in a 
TRSDOS environment, and since CP/M 
is definitely not a TRSDOS environ- 
ment, you'll have to scrap these two 
programs and buy a new word proces- 
sor and VisiCalc program for the CP/M 
system. 



I'd like to have an 80 by 24 video dis- 
play on my Model I in order to commu- 
nicate and execute programs. The 64 by 
16 display is fine when used as a com- 
puter, but I need the larger display if J 
want to use it as a terminal. 

Could you give me some information 
on the various modifications? Also, 
would it be worthwhile to modify my 
Model I, or would I be better off pur- 
chasing an inexpensive 809 by 24 ter- 
minal instead? I plan on communi- 
cating to a dual system 83 using 
RM/COBOL. 

R.K. 

Pittsburgh, PA 



Holmes Engineering (3555 South 
3200 West, Salt Lake City, UT 84119) 
has introduced an 80 by 24 display unit 
for the Model I, the VX-1. It works by 
replacing the device control block ad- 
dresses for the standard video with ad- 
dresses pointing to their driver. The 
board is enclosed in a separate box 
about the size of a disk drive. The board 
retails for $279.95, and the enclosure, 
actually an expansion interface system 
for the Model I, sells for $99.95. 

The MF-2, as it's called, plugs into 
the expansion port of your expansion 
interface and uses its own internal 16K 
RAM for video mapping and control. 
The VX-1 includes its own bootstrap 
ROM routine that automatically puts 
itself into operation when you turn on 
the computer. When needed, it can be 
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disabled, leaving you in the standard 64 
by 16 display. 

Since this unit requires no modifica- 
tion to the Model I boards, it should be 
easy to install and maintain. The total 
cost ($379.90 plus shipping) is cheaper 
than buying a dedicated terminal. How- 
ever, if you can get a terminal with 
modem for less, I'd suggest buying the 
terminal instead. 

/ recently installed Omikron 's CP/M 
Mapper I in my Model I disk system. 
I'm satisfied with the system, but now 
I'm interested in using CP/M software 
formatted for other systems without 
having to send it to Omikronfor refor- 
matting. Can you advise me of other 
alternatives? 

K.J.S. 

Sudbury, Ontario 

This is a software problem. What you 
need is a machine-language program 
that reads formats other than your stan- 
dard. As long as the other software is on 
5 '/4-inch soft-sectored disks, you should 
be able to transfer the programs to your 
system disks. I know such programs ex- 
ist, but I can't find anything specific in 
my references. Have you tried writing 
Omikron and asking if the software 
they use is for sale? If that fails, I sug- 
gest you try the CP/M user's group on 
CompuServe. 

As a last resort, Hurricane Labora- 
tories (5149 Moorpark Ave., Suite 105, 
San Jose, CA 95129, 408-257-8676) has 
a Model III program that reads 
Osborne, Xerox 820, Cromenco, IBM 
PC (single-sided), NEC PC-8000, 
Omikron Mapper I, and Zenith format- 
ted disks. If you talk with them they 
may be able to sell you a patched pro- 
gram for your Model I. 

/ have a Model I, two-disk drive sys- 
tem with Radio Shack's double-density 
board. I bought Radio Shack's Profile 
(26-1562) for the Model I, and had a 
friend customize the hard copy to a for- 
mat I wanted. Things work fine as long 
as I stay in single-density, but this re- 
stricts me to only 150 records per disk. 

I tried using the program in double- 
density, but all I get is "I/O Attempt to 
Unopen File". I'm not a programmer, 
and I don't want a complicated data 
handling program. Help! 

J.S.S. 

West Chatham, MA 



The problem is that Radio Shack's 
2.7DD uses different disk I/O addresses 
than TRSDOS 2.3, and Radio Shack 
won't support any of their programs on 
the double-density board. 

The only solution I know of is to 
switch to another DOS that does sup- 
port both double-density and the Pro- 
file program. This is expensive, but it'll 
eliminate future problems with pro- 
grams being incompatible with 2.7DD. 
Does anyone have a patch for Profile to 
make it work with 2.7DD? 

I've written a program that formats 
track zero, sector zero in single-density, 
and track zero, sector one in double- 
density. The utility achieves this without 
resorting to hardware modifications, is 
entirely software controlled, and works 
with the Model HI (16K RAM and one 
drive required minimum). 

Because of the diversity of program 
writers, Dual Density Formatter for- 
mats only track zero. Any programmer 
has the means at hand to format the rest 
of the disk in the desired density. 

DDF is easy to use. Just load DDF 
from its self-loading disk, format the 
target disk in dual density, and then 
copy your single-density boot loader to 
sector zero and your double-density 
boot loader to sector one. 

This utility is sold by Applied 80 Soft- 
ware (18 Ivy Lane, Cherry Hill, NJ 
08002, 609-482-6864) for $29.95 in 
single units. There is a discount for 
quantity orders. 

L.G. 
Cherry Hill, NJ 

Sounds good. If anyone is interested, 
give Applied 80 Software a call. 

Regarding the object code output 
from EDTASM that B.B. of San Jose 
and A.L. of Studio City had (April 
1983, p. 394), the probable cause is with 
the unclear instructions in the manual. 
Command W writes the current text 
buffer to tape. This isn't object code, 
but rather source code. It is loaded back 
into EDTASM with the L command. 

Command A is the one that gives the 
object code output after assembly list- 
ing and error count. The manual states 
this on p. 3, but it's difficult to see and 
can confuse someone. I think both B.B. 
and A.L. confused W with A. 

B.S. 
Anaheim, CA 



OUR DISK DRIVE PRICES WILL "DRIVE 

YOU CRAZY 



SPECIAL BUY ON TWO DRIVE DISK DRIVES 



An all new low cost internal half 
size drive to expand your storage 
capability. Double headed 40 track 
kits have double the storage capac- 
ity as full size double headed drives 
and utilize half the space. Disk 
drives use standard 5-% M diskettes. 
Includes DOS + Operating System, 
Mod Ill/Mod IV Compatible. 



SMALLER DRIVES 
LARGER VALUE 

IF PURCHASED AT THE SAME TIME RS232 KIT »59" 




DRIVE I KIT PLUS DRIVE 2 

Both for 
$729 



SAVE $ 1 59 



EXTERNAL DISK DRIVES 




Add-on disk drives 
fortheModelland 
III areavailablein 
40 and 80 track, 
singleand double 
head configura- 
tions. 

Contact MTI or a 
local authorized 
dealer. 



From $ 289 



INTERNAL DISK 
DRIVE KITS 



$ 459 





A new low cost internal disk kit is available to 
expand your storage capability. With this kit, you 
may expand your 16K TRS-80" Mod III computer 
Includes 1-MTI 40 track, double density disk drive, 
power supply, controller, cables and DOS PLUS 
operating system 



ADD-ON WINCHESTERS 




3C 

Add 5. or 11 megabyte hard disk drive to any 
Model III The complete self contained unit 
includes a Winchester drive, controller, power 
supply cooling system and cables in an 
attractive enclosure. _ ».«_.. 

From *1799 



Special-Includes DOS 



MTI DOES IT. Our CP/M 64K turns your TRS-80 Model III 

into two computer systems, with memory upgrade to 64K 

and an 80" x 24" column video card, you will convert your 

computer to a CP/M base machine. 

LIKE THE BIG BOYS. That means you can access the 

single largest body of microcomputer software used by 

companies like Xerox, Osborne, Eagle, etc. What is better, 

is that you can switch back and forth between TRS-DOS 

and CP/M modes, and our own Z-80 monitor. 

EASY INSTALLATION. The CP/M 64K system plugs 

directly into the TRS-80 CPU board. 

HUNDREDS OF APPLICATIONS. You have available 

literally hundreds of programs written for many mini and 

micro computers under CP/M. 

Optional CP/M 2.2 Operating System w» / HI £••£■ 



CP/M-64K 



•119 




OVER 100 AUTHORIZED SALES AND 

SERVICE CENTERS 

CALL 714 978-9833 

for the center nearest you 



iH LtSANU 



THIS IS A LIMITED TIME OFFER 



MICROCOMPUTER TECHNOLOGY INC. 

1530 S. SINCLAIR, ANAHEIM, CA 92806 

(714) 978-9833 

NOTE: WE'VE MOVED TO A LARGER FACILITY 



U.S. PRICES FOB. SANTA ANA 
CALIFORNIA AND MAY VARY BY AREA 

CP/M is a registered trademark of Digital Research Inc 
TRS-80" is a registered trademark ofTandy Corp 
M T |. is a registered trademark of Microcomputer 
Technology. Inc 

^247 
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After looking over their letters, I 
believe that you may have solved their 
problem. 

My Model I system works reliably 
and I've never had any problems with 
my RS-232. Why? The secret is in my 
treatment of the connectors. 

I scrupulously clean the edge connec- 
tors with a pink pencil eraser, and then 
with isopropyl alcohol This is repeated 
until no more black oxide can be re- 
moved. I then cover the cleaned sur- 
faces with Dow Corning High Vacuum 
Silicone Grease. Silicone grease has a 
very high dielectric constant and is quite 
viscous, so gaseous diffusion is very slow. 

This treatment is good for about a 
year and a half. Before I came to this 
solution I had to clean the surface every 
two days. 

D.M. 

Calgary, Alberta 

That's one solution about which I'd 
never heard. 

I'm having an annoying problem 
with my Model I. When I use DOS I'm 
presented with waves of lines, roughly 
three to four inches apart, moving at a 
45 -degree angle from the lower left of 
my video monitor to the upper left. 
These appear only if the CPU is waiting 
for me to do something. 

The problem seems to be in the 
expansion box, since the problem disap- 
pears if I disconnect the LNW expan- 
sion box. I didn't always have this prob- 
lem; it began after I blew a fuse in the 
LNW box. I checked the voltages and 
they appear to be good. I can mask the 
lines by adjusting the brightness control 
on the monitor, but then the screen 
becomes too dark for me to use. 

R.R. 

Stacy, MN 



My first thought was RFI, until you 
mentioned you could make the lines 
vanish by adjusting the brightness con- 
trol. I suspect that the problem is ac- 
tually a part in the LNW box that was 
pushed to its limit by whatever caused 
the fuse to blow. This part is now mar- 
ginal. It works well enough to be almost 
impossible to find on the circuit board 
since all the voltages and currents will be 
close to their correct marks, but just 
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bad enough to foul up other parts in the 
system. That kind of problem takes a 
lot of work to find, and in most cases 
it's better to leave it alone. 

If you're an accomplished technician, 
you could probably track the errant 
part down, but to pay someone to do it 
for you would be both ridiculous and 
expensive. Try sending a letter to LNW 
describing the problem (a photograph 
would be very helpful, use l/30th speed 
setting). Perhaps they've run into the 
problem before and can tell you where 
to start. 

My wife is a Spanish/French teacher, 
and she does a lot of business corre- 
spondence in Spanish. Even though 
they are on my Daisy Wheel II, I have 
been unable to find any patches for 
writing the Spanish /French characters 
from SuperScripsit. What can I do? 

as. 

Santa Rosa, CA 

What you need to do is to set the User 
Printer Codes to the values needed for 
your Spanish/ French letters, and em- 
bed them in your documents. By com- 
bining the User Printer Codes with the 
backspace command you should be able 
to get all the accent marks and special 
characters you need from your Daisy 
Wheel II printer. 



/ have a Model III, dual-disk system. 
My previous computer was a Model I 
cassette system. I want to convert my 
tape data so they can read, write, and 
store data on disk (e.g., Tape Mailing 
List by Radio Shack). Is there a simple 
way to do this? 

J.G. 
Santa Clara, CA 

Converting a tape program to disk is 
not a task easily done by a novice. You 
have to change all the tape I/O com- 
mands to disk I/O commands. Even 
transferring the data from tape to disk 
is a chore. Considering the difficulties, 
it may be cheaper to get disk programs 
and retype the information. 

As a last hope for J.G. , does anyone 
have a Radio Shack Tape Mailing List 
program that's been converted to disk? 

In response to M.H. (April 1983, p. 
392), I'd like to say that I have a similar 



problem with EDTASM on my 16K 
Model HI. When inserting lines between 
other lines I sometimes get incorrect line 
numbers: 



00100 


.THIS IS LINE 100 


00110 


.THIS IS LINE 110 


00120 


(BREAK) 


*I105 




00105 


;THIS IS LINE 105 


00115 


(BREAK) 


Ptt:* 




00100 


;THIS IS LINE 100 


00110 


;THIS IS LINE 105 


00120 


.THIS IS LINE 110 



The EDTASM manual says this 
shouldn 't happen, although a program 
similar to this one is shown on p. 10. 
When adding line 105 between lines 100 
and 110, the lines are renumbered. The 
only solution I've found is to insert us- 
ing *I105, 1 and specify a line increment 
of one. 

By the way, about the letters men- 
tioning incorrect object code output 
from EDTASM (I use Series I Edi- 
tor/Assembler Version 1. 1), I have no 
problem with output of assembled code. 

J.G. 
Dearborn Hts., MI 

Regarding the letter from M.H. 
(April 1983, p. 392), I have the same 
problem with EDTASM on my Model 
HI, as does a friend of mine. It's not 
that line 110 was replaced, the new line 
was inserted and the program re- 
numbered. 

I checked renumbering and memory, 
and both checked out fine. I'm going to 
try a new copy of EDTASM from Ra- 
dio Shack in a few days. I'll let you 
know what happens. 

J.M.L. 
Eden Prairie, MN 

I think we've discovered a bug in the 
Insert/Renumber portion of EDTASM. 
It's supposed to tell you if there isn't 
enough room for a new line between 
line numbers (using the default incre- 
ment, of course). The only solution 
seems to be to specify a line increment 
less than the increment to the next high- 
est line number. 



/ would like to point out to W.B. 
(April 1983, p. 383) that his C. Itoh 
8510 printer is identical to the NEC 
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Fame and Fortune may be yours by entering: 





Micr 

Young 
Programmer * s 



Grand Prize $300, Plus Publication 

1st prizes— $200 each, Plus Publications 
2nd prizes— $100 each, Plus Publication 1 
3rd prizes— $50 each. Plus Publication 
Honorable Mentions — Free subscription to 
80 Micro and possible publication 

(These prizes are in addition to our regular purchase price.) 

If you are an aspiring Programmer, 18 years or younger, enter 80 Micro's 2nd An- 
nual Young Programmer's Contest. Your entry may be for any TRS-80. Programs 
will be judged on originality, documentation (more on this below), and program 
elegance. The age categories are 1 1 and under, 12 through 14, and 15 through 18. All 
entries will be judged by the 80 Micro staff. 



Rules 

1. Final entries must be in by November 1, 1983. 

2. All entries must be submitted in a 10 x 13" envelope 
and must inelude: typewritten, double-spaced documen- 
tation; a printed copy of the program listing; a magnetic- 
disk or cassette containing the program listing, the docu- 
mentation, and any figures or tables; and a completed en- 
try blank. 

3. Documentation should consist of an explanation of the 
program, its purpose, how to use it. and the necessary soft- 
ware and hardware needed to use it (including memory re- 



quirements). Good documentation also points out the in- 
teresting algorithms and program techniques used with- 
out giving a line-by-line account. 

4. Entries must be original and unpublished. 

5. All winning programs become the property of 80 
Micro, 

6. The category in which you will be judged will be deter- 
mined by your age as of November 1 , 1983. You must not 
have turned 19 by that date. 

7. You may submit as many entries as you like, however, 
each one must be submitted separately and must have all 
of the information and materials stated above. 



The 80 Micro Young Programmer's 




Name 

Street Address. 
State/Zip 



-Age. 



DateofBirth_ 



City. 



Phone 



Machine (circle one) 

Model I Model III Model 11/16 
Pocket Computer Other 



Color Computer 



Include this form with your entry and return to: 

Young Programmer's Contest 
80 Micro 
80 Pine Street 
Peterborough, NH 03458 



'A trademark of Radio Shack, a division of Tandy Corporation 
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PC-8023A printer. The C. Itoh 8510, 
the NEC PC-8023A, the ADS 8001, 
and the PMCDMP-85 are all manufac- 
tured by TEC of Japan. The major dif- 
ference between all these machines is 
just the logo on the manual cover. 
Therefore the NEC driver found on p. 
376 of the April issue works perfectly, 
and without any changes. 

Where can I get the 20-pin connector 
used to attach the Model III logic board 
to the keyboard? I want a longer cable 
so that I can use the keyboard a short 
distance from the video monitor. Can I 
get the cable from National Parts? 

M.O. 
Houston, TX 

Do you want to increase the distance 
between the logic board and the key- 
board? Or do you want a second cable? 
If you want to buy a second cable, it's 
available from National Parts (900 E. 
Northside Drive, Fort Worth, TX 
76102, 817-870-5662). Its serial number 
is #AW2539, and it costs $11.50 plus 
shipping ($1.50). Be forewarned that 
the cable has female connectors at each 
end, so you can't put two cables togeth- 
er to make one long cable. Also, in- 
creasing the distance between the logic 
board and the keyboard makes the unit 
susceptible to RFI and other electrical 
noise. 

If you do want to use an extended 
cable, Priority One Electronics (9161 
Deering Ave., Chatsworth, CA 
91311-5887, 800-423-5922) has both 
connectors and cables, as does Jameco 
Electronics (1355 Shoreway Road, Bel- 
mont, CA 94002, 415-592-8097). 

I'm looking for a Pascal compiler 
that meets either the ISO or UCSD stan- 
dard agreement. This compiler must 
operate on a Model III. 

J. P. 

Tracy, Quebec 



Any Pascal that would meet the 
UCSD or ISO standards wouldn't fit in 
the available memory of the Model III. 

New Classics Software (239 Fox Hill 
Road, Denville, NJ 07834, 201-625- 
8838) sells a version of Pascal that 
comes close to the UCSD standard, ex- 
cept that Mark and Release are used in- 
stead of Dispose; it doesn't have var- 
iant records, the Width statement or 
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Page; it uses enhanced Read and Write 
instead of Get and Put; and File and 
Text are allowed only in variable decla- 
rations and not Type declarations. It 
sells for $99. 

PCD Systems (P.O. Box 143, Penn 
Yan, NY 14527, 315-536-7428) sells a 
version that meets UCSD standards, 
but they suggest you don't use it to de- 
velop programs since there isn't much 
room left for the actual program. In- 
stead, they suggest using the run- time 
package on the Model III and use their 
Pascal on a Model II to develop pro- 
grams for the Model III. 

Other companies marketing Pascal 
programs for the TRS-80 Model III are: 
Alcor Systems— 800 W. Garland, Suite 
100, Garland, TX 75040, 214-226-4476 
Barker Software— P.O. Box 5313, 
Athens, GA 30604 

Digital Research/Languages Divi- 
sion— P.O. Box 579, 160 Central Ave., 
Pacific Grove, CA 93950, 408-649-3896 
Hexagon Systems — Regent St., P.O. 
Box 397, Station A, Vancouver, BC, 
Canada V6C 2N2, 604-682-7646 
Microsoft— 10700 Northup Way, Suite 
200, Bellevue, WA 98004, 206-828-8080 
Pickles 8c Trout— P.O. Box 1206, 
Goleta, CA 93117, 805-685-4641 
Radio Shack— 1300 One Tandy Center, 
Fort Worth, TX 76102, 817-390-3011 
Ticom Systems Inc. — 13470 Washing- 
ton Blvd., Marina Del Rey, CA 90291, 
415-829-7550 



/ have an MT-32 Microtek expansion 
interface with 32K RAM. Lately it's 
been locking up when I load or try to 
create a large program. I tried new 
RAM chips without success. When I 
tried setting memory size below the ex- 
pansion interface memory locations, 
everything is fine. What's wrong? 

T.W. 
Waukesha, WI 



It's not the memory that's at fault, 
it's the cable connecting the expansion 
interface to the keyboard. Remove the 
cable, rub the contacts on both the key- 
board and expansion interface with a 
pink eraser, and then wash the contacts 
with isopropyl alcohol (use cotton 
swabs). This should give you a more re- 
liable system. If the problem returns or 
persists, you may have to use Gold- 



Plugs, or Silver-It to cure the problem 
(see previous columns for more on this 
subject). 

/ have several friends with different 
computers. Their computers are able to 
generate new characters. Is it possible to 
do the same on the Model I? If not, can 
I put in a new character generator? 
Where can I get a better memory map 
for my computer? 

D.J. 

Cleveland, TN 

No, you can't generate Model III 
special characters on the Model I. Yes, 
you can replace the character generator 
of the Model I, but I don't know of any 
company presently selling such chips 
for the Model I, except to provide an 
upper/lowercase display on home mod- 
ified Model I's. 

If you're looking for a very detailed 
memory map, get Microsoft Basic De- 
coded & Other Mysteries by IJG (1953 
West 11th St., Upland, CA 91786). It 
sells for $29.95, but is well worth the 
price. 

After installing the Gold-Plug 80 
connectors on my Model I keyboard, 
expansion interface, and disk-drive 
port, I experienced the same problems 
as those described by V.C., R.Z., and 
L. W. in your March and February 1983 
columns. 

The problems disappeared when I 
shortened the buffered expansion inter- 
face cable by removing one inch on the 
expansion interface side. Apparently, 
the additional length of the Gold-Plug 
80 connectors was enough to cause 
memorv problems. I suspect that V.C., 
R.Z., and L. W. are having problems 
with their expansion interface cable. 

R.M. 
Honolulu, HI 

That's interesting. I didn't think the 
Gold-Plugs added enough to make a 
difference. 

How do you connect a Signalman 
Mark I modem to a Radio Shack Model 
I with the RS expansion interface and 
RS-232 board? The modem and the RS 
cable both terminate in male DB25 
plugs. I tried making a short double fe- 
male cable, but nothing happened. I 
tried the COMM and TERM positions 




GET AN 
EAR-FULL 



Teach yourself music theory. Become an 
expert at identifying melodic intervals. Every- 
thing you need is in Music Teacher, a two- 
part educational program. 

Music Theory — Learn staff and bar lines, 
treble and bass cleffs, the grand staff, time 
signatures, rests, notes, and major scales. 

Ear Trainer — Improve your listening skills. 
Teach yourself to identify musical intervals 
by hearing them as often as you like. You'll 
never find a more patient teacher. 

Become a musical expert with Music 
Teacher. Ideal for teachers and students. 

TRS-80* Models I & III (Level II), or PMC* computer. 
0300RD,- disk, sound, light pen optional, 32K, $19.95. 
0059R, tape, sound, light pen optional, 16K, $14.95. 

• I RS-Hd i\ a register! d trademark of Radio Shack, a division oj Tandy ( orp. 
"PMC is a registered trademark of Personal Microcomputers Inc. 



Yes! Send me copies of Music Teacher (tape)@$14.95. 

copies of Music Teacher (disk)@$19.95. 

Please add S2.50 postage & handling. 



I VISA 
name . 
address 
city 



□ MC DAE LiCheck/MO 



state.. 



card// 

signature. 



exp. date_ 



_/ip_ 



Instant Software CALL 1-800-258-5473 to order 338B8M 



Instant Software* lit. 101 & I'.lm St.'l'elerhoroiigh Ml O.WX 



rlAr now holds the wild card: 

3by5 

The Complete Personal Information 
Retrieval System for Microcomputers 



Features Include: 

• 3by5 editor/search program you use like a card file 

• Enter, modify or delete records while searching 

• Index automatically updated 

• Rapidly search large data and text files in seconds 

• No coding required 

• Interactive Help File included 

• Demonstration data and text files 

• Maintenance policy to keep MAP updated 

• Complete documentation 

MAP is Available For Use On: 

• TRS-80 Model II TRSDOS', 64K 

• TRS-80 Model III TRSDOS or LDOS 2 , 48K 

• Apple lie 3 CP/M 4 , 64K 

• All versions require 1 disk drive 

'TM Tandy Corp TM Logical Systems. Inc 'TM Apple Computer. Inc 
'TM Digital Research. Inc. 

Complete MAP package for only $125.00 
Abridged introductory version for $35.00 

SOFTSHELL ,M 

The Small Computer Specialists for Professionals 
P.O. Box 18522, Baltimore, MD 21237 



SVC 



TRS-M- 
■ MIC AND 
AMCMILH 
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SYSTEM REFERENCE CARDS 

"This is a quality document and is beautifully con- 
ceived and produced. . . .1 am in awe of your magnificent 
document." 
H.W.W., Dayton, Ohio 



Send Check or Money Order 


MODEL 1: BASIC & Assembler 


FC1002 


$4.95 


MODEL 1: BASIC Only 


FC1001 


2.95 


MODEL II: BASIC & Assembler 


FC1005 


5.95 


MODEL III: BASIC & Assembler 


FC1003 


5.95 


MODEL III: BASIC Only 


FC1004 


3.95 


COLOR: BASIC S Extended 


FC1006 


4.95 


POCKET: BASIC 


FC1009 


2.95 


APPLE II + II PLUS: BASIC & 6502 


FC1008 


495 


APPLE II + II PLUS: BASIC Only 


FC1007 


3.95 



NEW! 



NEW! 
Heath/Zenith 

H DOS 2.0 
FC1014$5.95 



Z80 

MICROPROCESSOR 
FC1011 $4.95 




RAINBOW 

CERTIFICATION 
SEAL 



ZX80, ZX81 and 

Timex Sinclair 
1000 

FC1012S5.95 



"VIST 



Call TOLL-FREE for Credit Card Orders 1-800-258-5473. Or, send your order with 

payment or complete credit card information to: 

WAYNE GREEN BOOKS • Retail Sales • Peterborough, NH 03458 

Enclose $1.00 per order for shipping and handling 



TR8-M- 
COMPUTER 




APPLE- 

II & II PLUS 



■TRS-80 is a Registered Trademark of Tandy Corp 

APPLE is a Registered Tradem** ol APPLE COMPUTER. INC. 

'Z80 is a Registered Trademark ol Zilog. inc 



sSee List ot Advertisers on Page 323 
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on the RS-232 board switch without 
success. 

DM. 

Red Bank, TN 

First check and make sure the 
RS-232, board is operational. Short 
pins 2 and 3 together. Whatever you 
type in, your terminal program should 
be echoed to the screen. If it doesn't, the 
board is making poor contact with the 
expansion interface. Loosen the screws 
and fiddle with the board until you get a 
response. 

Second, check the cable you made 
with a volt/ohmmeter to make sure that 
all the connections are good and that 
you don't have any pins accidentally 
connected together. 

Third, check the manuals for the 
RS-232 board and the Signalman 
modem to make sure they are using the 
same pins for the same purpose. 

After all that, you should get a re- 
sponse and be ready to go. 

/ recently upgraded the expansion in- 



terface on my Model I from 16K to 
32K, but when I Print Mem my total 
was 38340, which is wrong for a 48K 
machine. I tried two different sources 
for the 16K chips, with the same results. 

E.C. 
Norfolk, VA 

You might not have a hardware 
problem, but rather a misunderstand- 
ing. Do you get the 38340 from Level II 
Basic or from Disk Basic? If you're in 
Disk Basic, the missing RAM is the 
DOS and Disk Basic (the DOS and Disk 
Basic take up almost 10K). The 38340 
sounds awfully familiar to me. 1 vaguely 
remember that as being the memory 
size from TRSDOS Basic with a 48K 
machine. 

If you get that response from Level II 
Basic, take the unit to the repair center. 
There's nothing you can do unless you 
have access to an electronics shop and 
a troubleshooting manual for the 
Model I. 

/ typed in the printer driver for the 



NEC PC-8023A-C printer with Super- 
Scripsit (April 1983, p. 376). It works 
fine on my C. Itoh Prowriter8510, but I 
can't get a document to double-space 
just by specifying double-spacing in the 
open document options. Neither do the 
super /subscript features work correct- 
ly. Not knowing much about Assembly 
language, I decided to use a few user- 
defined print codes to do the job. 

To double-space, use 27 84 52 56. 
These codes set the line pitch to 48/144 
of an inch. Note that simply using 27 84 
48 won 't work, as the printer is expect- 
ing 2 bytes in ASCII code to describe 
the pitch. 

To superscript, use: 

27 91 

27 84 49 50 27 114 10 

27 84 49 52 27 102 10 27 65 

27 93 

I recommend using each line as a sep- 
arate prin t code. The first sets the prin t- 
er to incremental print. The second sets 
line pitch to 12/144 of an inch, sets re- 
verse line feed on, and sends one line 
feed. The third sets line pitch at 14/144 
of an inch, sets forward line feed on, 



TRS- 



ay 



i 



TriSoft introduces the CP/M-68K operating system for the Radio Shack Model- 16 and Model-ll Enhanced 
computers. This addition to the CP/M family adds the speed and power of the 16/32 bit MC68000 under 
CP/M-68K while maintaining compatibility with the vast library of CP/M 2.2 software. 



Runs in conjunction with CP/M 2.2 

Easy context switching between 2.2 and 68K 

Z80 acts as I/O slave under CP/M-68K 

68000 assembler provided 

Industry standard C compiler provided 

Requires CP/M 2.2 



TriSoft CP/M-68K 
Manual set only 
Pickles&Trout CP/M 2.2 

Standard P&T CP/M 
Model- 1 6 P&T CP/M 
Hard Disk P&T CP/M 
P&T manual set 



$395. 
45. 

With CP/M-68K 

$175. 525. 

210. 555. 

235. 580. 

35. 



t 



4102 Ave. G 
Austin, Texas 
78751 
1-512-445-5580 



w 



CP/M, CP/M 2 ?, CP/M-68K '" Digital Research 
TRS-80 Model 16 and Model II '" Radio Shack-Tandy 
68000 '■ Motorola 

Z80 '" Ziioq 
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sends a linefeed, and resets pitch to nor- 
mal 1/6 of an inch. Finally, the last line 
sets the logic seek mode back on. Line 2 
has 2/144 of an inch more line feed 
because the printer doesn 't return to the 
same place it started from if it's given 
12/144 of an inch both times. I recom- 
mend using four print codes for the 
same reason. If you 're going to be doing 
several jumps, it's best to set the printer 
to incremental mode, do the super- 
scripts and subscripts, and then return 
to logic seek mode. 

Subscripting is done in a similar 
fashion: 

27 91 

27 84 49 50 10 

27 84 49 52 27 114 10 27 65 27 102 

27 93 

Note that it's important to be in incre- 
mental mode; if you aren't, the printer 
ignores the entire command. If you're 
doing this from Basic you'll notice you 
get a carriage return along with the 
CHR$(10) if you aren't in incremental 
mode. Very irritating. 

G.J. 

Indianapolis, IN 

Thanks for the information. 

Can you tell me where I can buy the 
CP/M conversion for a Model II? 

Also, can you provide the name or 
address of any company that copies 
large numbers of disks for small-time 
people who want to sell their programs? 
I'm also looking for Pascal on the 
Model II. 

E.V. 

Baltimore, MD 

Got your pencil ready? These are 
companies with CP/M for the Model II: 
Aton International — 260 Brooklyn 
Ave., San Jose, CA 95128, 408-554- 
9922 

Cybernetics — 8041 Newman Ave., 
Suite 208, Huntington Beach, CA 
92647, 714-848-1922 
FMG Corporation — 5280 Trail Lake 
Drive, P.O. Box 16020, Fort Worth, 
TX 76133, 817-294-2510 
Omikron— 1127 Heart St., Berkeley, 
CA 94702, 415-845-8013 
Parasitic Engineering — 1101 Ninth Ave., 
Oakland, CA 94606, 415-839-2636 
Pickles & Trout— P.O. Box 1206, 
Goleta, CA 93117, 805-685-4641 

Now for the Model II Pascal com- 
panies: 
Alcor — (see previous letter this 

sSee List of Advertisers on Page 323 



column) 

Digital Research/Language Division — 

(ibid) 

FMG Corporation — (see CP/M listing 

above) 

Hexagon Systems— (see previous listing 

this column) 

Microsoft — (ibid) 

Radio Shack— (ibid) 

Ticom Systems Inc. — (ibid) 

For your second request, I don't have 
the name of any company that manu- 
factures second-party disk programs, 
although I do know of one that repro- 
duces tape programs in lots of 100. Are 
there any companies interested in 
assisting E.V.? 

/ have a Model HI, two-disk-drive 
system with LP VIII. The computer, 
cassette recorder, and printer are all 
connected to a power strip. When I turn 
it on the printer's print head moves first 
to the right margin, and then to the left 
margin. As the computer comes on, the 
printer prints an E. Is there any way to 
prevent this? 

After a few minutes there is a soft, 
but annoying, hum from inside the 
computer. It sounds like a power trans- 
former. Is it the sign of an impending 
disaster? I live in Europe and we have a 
220 V, 50 Hz power supply. I'd like also 
to know what will be involved, when I 
return to the U.S., in changing my com- 
puter from 220V to 110V operation. 

P.B. 

Zurich, Switzerland 

The E is the result of a control code 
sent by the Model III to the printer port 
on power up. The easiest solution is to 

leave your printer off until you need it. 

The hum develops because the power 
supply transformer windings are loose 
(probably due to age) and vibrating 
with the 50Hz line supply. Nothing is 
wrong, and no damage will result. If 
you can put up with the hum, it doesn't 
need to be replaced. 

Switching the power supply is simple, 
but expensive: Tandy just removes the 
two 220V power supplies and puts in 
new 110V units. There are no trade-ins 
on the 220V units, so you end up paying 
$77.80 for each new power supply, plus 
$30 installation. Total cost is $1 85.60. ■ 

Terry Kepner is a free-lance writer 
and programmer, and the vice president 
of Interpro. He's been writing about 
microcomputers since 1979. 




htveyP 




s ■-* [i if you 

(J ever wished that 

you had a better program- 
ming language, PASCAL 80 may 
be the language you dream about. It is 
a compiled language, faster, more ac- 
curate and easier to modify than Basic. 
Yet it is so easy to use that you can 
forget the hassles and diskette spinning 
of other compiled languages, including 
other versions of Pascal. 

Now you can create your own com- 
mand files that execute from DOS 
without having to load a language into 
the computer first, but do it with far less 
work than machine language. You can 
sell your compiled programs without any 
royalty payments! 

Although designed for teaching and 
ideal for that purpose, PASCAL 80 also 
allows serious applications with a full 
fourteen digits of accuracy, even on log 
and trig functions! 

PASCAL 80 allows you to create files 
on the TRS-80® Model I, Model III, 
LNW-80, PMC-80, or LOBO MAX-80 
that will run on any of the other 
machines under TRS-DOS®, LDOS, 
NewDOS, NewDOS 80, DBL-DOS or 
DOS Plus. 

SUMMER SPECIA 




with 

Orders 



postmarked by 



August 30, 1983. 



PASCAL 80 is used in dozens of High 
Schools, Colleges, and Technical 
Schools, and has been favorably re- 
viewed in Byte, Creative Computing, 
and other magazines. 

You get all of this at a bargain price of 
only $99 plus $2 shipping. If you call and 
order by MasterCard or VISA, we will 
even credit you $1 for the phone call. 
Call or send your check today! 



^ 



SOFTWARE 



239 Fox Hill Road 

Denville, NJ 07834 

(201) 625-8838 



J<2 



^259 



TRS-80* and TRS-DOS are trademarks of Radio Shack, 
LNW-80 of LNW Research. PMC-80 of Personal Micro 
Computers. l.OBO. I. DOS, and MAX-80 of Lobo Systems, 
DOS-Plus of Micro Systems Software, NewDOS and 
NewDOS 80 of Apparat, and DBL-DOS of Percom. 
PASCAL 80 is a trademark of New Classics Software. 

NEW!! POINTER VARIABLES! 
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TAKE II 




This column features Model II, 12, and 16 conversions of 
earlier programs. Readers who have converted programs for 
their own use are encouraged to submit them. 

CRAM, a program by Hardin Brothers, appeared in the August 
1982 issue of 80 Micro. It was short and nicely annotated— a 
clear candidate for rewriting. 
The game is diabolically clever; push any key to make the 



The Key Box 
Model II 
32KRAM 

Basic 



10 'cram model II- Rick Johnson's rewrite of Hardin Brothet 

20 'program in 80 Micro of August 1982. 

30 DEFINT A-Z:GOSUB 270 

40 L=0:R=79:T«1:B=22:N=U:GOSUB 230 

50 ' *** move right 

60 J=J+1:IF J=R THEN 200ELSE PRINT? (I, J) , "*" • 
70 IF INKEY$="" THEN 60ELSE N=N+1:R=J 

80 ■ *** move down 

90 GOSUB 180:I=I+1:IF I»B THEN 200ELSE PRINT? (I , J) , "* " ■ 
100 IP INKEY$="" THEN 90ELSE N=N+1:B=I 
110 ' *** move left 

120 J-J-lsIF J=L THEN 200ELSE PRINT? (I, J) , "*"; 

130 IF INKEY$="" THEN 120ELSE N=N+lsL=J 



140 



move up 



moving line turn right. The game is over when the line runs in- 
to itself or a border. Your score is the number of right turns 
you are able to make. 

While your tendency is to tap out a steady pattern on the 
keyboard, that strategy leads to a quick finish with few points. 
A steadily accelerating pace appears to be required, but be 
careful, the horizontal and vertical rates of motion are not 
quite the same. 

Since the command IF POINT(I,J) is not available in 
Model II Basic, a few counters remember the increasingly 
smaller physical bounds of the playing space. A small delay 
compensates for the vertical movement that otherwise would 
be too fast with the 4.0 MHz clock. Without the delay, the 
program differs only in the screen size. 

A young child who practiced for hours and an older person 
who spent a long lunch hour hold the highest scores— both ob- 
tained scores of 24. I'll bet you can't play just one game. ■ 

Rick Johnson is an analyst for Advanced Technology Inc. 
and can be reached at P.O. Box 41238, Indianapolis, IN 
46241. 



150 GOSUB 180:I=I-1:IF I=T THEN 200ELSE PRINTS ( I , J) , " *" ; 

160 IF INKEYS = "" THEN 150ELSE N=N+1 .- T=I :GOTO 60 

170 ' *** delay vertical 

180 FOR Z=l TO 20: NEXT Z: RETURN 

190 ' *** game over 

200 CLS:PRINT@ 820 , "Turns-" ; N, "Previous high=";M:IF N>M THEN M=N 

210 FOR 1=1 TO 2000:NEXT I: GOTO 40 

220 ' *** initialize border 

230 CLS:FOR J=0 TO 79: PRINT? (0 , J) ,"-";: PRINT? (22 , J) ,"-";: NEXT J 

240 FOR 1=0 TO 22 : PRINT? (I , 0) , " I " ; : PRINTS (I , 79) , " I " ; : NEXT I 

250 1=1 :J=0:A$=INKEY$: RETURN 

260 ' *** directions 

270 FOR 1=1 TO 20:CLS:PRINT CHRS (26 ) :CLS: PRINT CHRS (25) :CLS: NEXT I 

280 CLS:PRINT TAB ( 8) , "Welcome to the game of CRAM":M=0 

290 PRINT:PRINT"Do you want instructions?" 

300 AS=INKEYS:IF AS="" THEN 300 

310 IF AS = "N" OR AS = "n" THEN CLS-.RETURN 

320 IF AS="Y" OR AS="y" THEN 330ELSE 280 

330 PRINTrPRINT TAB(8) "The object of the game is to cram as many" 

340 PRINT'stars as you can onto the screen. Each time you wish to" 

350 PRINT'change the direction of the moving line, press any key" 

360 PRINT"except <BREAK>. The game is over when the moving line runs" 

370 PRINT"into any previously drawn position. At the end of the game" 

380 PRINT'your score will be reported. ": PRINT 

390 PRINT"Press any key to start the game." 

400 A$=INKEYS:IF AS="" THEN 400ELSE CLS:RETURN 

410 ' *** L is current Leftmost position, R is Right 

420 ' *** T is Top, B is Bottom, N is Number counter for turns 
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ARE YOU TIRED OF HEADACHES AND Wi 
FROM STARING AT YOUR TRS-BO'S HARSH WHITE VIDEO DISPLAY? 

Well, a FATIGUE FIGHTER optical filter changes that display to a nice, easy on 
the eyes, green. It is made of hard 1/8 inch thick acrylic for durability, attaches in 
seconds without tools, and matches TRS-80 styling. So, invest in some relief , get a 
FATIGUE FIGHTER for your Model I, II, or in. It will probably be one of the most used 
accessories you will ever buy. 



P.S. Available 
direct from us or at 
computer stores. 

TRS-80 IS A TANDY CORP TRADEMARK 



TO ORDER: 

Send Name 4 Address Typed or Clearly Pnnted with Check or 
Money Order (U.S. FUNDS) tor $14.95 Each. Includirg Shipping. 
Canadian Orders Add $1.00 Each All Other Foreign Orders Add 
$3.00 Each tor Shipping. NO CREDIT CARD ORDERS. COD'S (U.S. 
ORDERS ONLY) are $3 00 Additional per Order 4 are Accepted by 
Mail or by Calling 904 378-2494 or 9 5 M-F. Rorida Residents Add 
5% Sales Tax. 



mD 



SOUTHERN INNOVATIVE DESIGN 
3033-15 N. E. 19TH DRIVE 
GAINESVILLE, FL 32601-3326 "35 



— DEALER INQUIRIES INVITED — 
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AND SERVICE 
TOO GOOD TO 



2i2!r«s-8o 



® 



GOOD TO PASS UP! 



COLOR COMPUTER 





tape 


disk 


Diagnostics 


17.25 




Graphics Editor 


17.25 




Master Control II 


22.95 




Bugout (Monitor) 


16.95 




Oracle (Graphic Monitor) 




25.75 


Ultra 80 CC (Editor/Assembler) 




42.50 


Ultra 80 CC Plus Oracle 




64.95 


Soundsource (with Cable) 


21.95 




Color Games by Lance 


15.95 




CC thello 


12.75 


14.95 


Ghost Cobbler, Space Invaders 


17.50 


20.50 


Colorout 




11.95 


Color Bonanza 


42.95 




Color Caterpillar or Death Trap 


17.25 




Color Scarfman 


17.25 




Deathplanet: The Dogstar Adv. 


15.95 




Dunkey Munkey 


21.95 




Mean Craps Machine 


15.95 




GAMES 








tape 


disk 


Attack Force or Cosmic Fighter 


12.75 


15.95 


Stellar Escort or Galaxy Invasion 


12.75 


15.95 


Meteor Mission II or Robot Attack 


12.75 


15.95 


Defense Command or Super Nova 


12.75 


15.95 


Weerd 


15.95 


15.95 


Forbidden City or Forbidden Planet 




29.95 


Hyperlight Patrol 




15.50 


Defiance (Disk Only) or Panik 


15.50 


19.50 


Devil's Tower 


12.75 


15.95 


Alien Defense or Bounceoids 


13.95 


17.25 


Sneak Thief 


17.25 


18.95 


Frogger 


17.25 


19.95 


Reign of Red Dragon or Stratos 


19.95 


19.95 


Double Feature 




31.95 


Caterpillar or Scarfman 


13.95 


17.25 


Penitrator 


21.75 


21.75 


Armoured Patrol or Eliminator 


19.95 


19.95 


Rear Guard or Sea Dragon 


19.95 


19.95 


Adv. Tripac 1-3, 4-6, 7-9, or 10-12 




31.75 


Adventure International Hint Book 




6.95 




Newscript 



$99.95 

Mailing Labels 



114.95 



THE HOME ACCOUNTANT 

The #1 best selling program for home and small busi- 
ness accounting is now available for TRS-80 Model 
3. Handles up to 99 accounts, five checkbooks, multi- 
ple income accounts, and can split transactions to any 
number of accounts. Prints net worth statements, 
income statements, as well as custom designed 
reports. Displays a bar chart and trend for any selected 
category. It is easy to use and yet provides all the power 
you'll need. (By Continental Software, requires Model 
3, 2 drives. 48K.) 



$62.95 



TALLYMASTER 

Designed to help those running a business or house- 
hold It is easier to learn than most spreadsheet programs 
and includes complete documentation and an on-line 
HELP command. Handles up to 702 expense or income 
categories. (By Prosoft, requires 48K, 1 disk drive) 



$64.95 



T80-FS1 

FLIGHT SIMULATOR 

The realism of "out-the-window" flight is yours with 
this challenging simulation by SubLOGIC. It is written 
in machine language and is capable of a 3 to 6 frame 
per second display. Flight characteristics are similar 
to the Piper Super Club. Outperforms other simulators 
costing over $100,000. 

Model 1 or 3 Tape Version — S22.50 
Model 1 or 3 Enhanced Disk — S2a50 

Maxi CRAS 

A Check Register Accounting System featuring up to 
223 accounts with no limit to the number of transactions. 
Prints statements showing activity in one or more 
accounts, check registers, income and expense subtotals, 
and an account distribution statement, if you have been 
disappointed with other money managers, it's time to get 
the best. Requires 2 drives & 48K. List $99.95. 



$79.95 



OMNITERM 

The best "smart" terminal package available for the 
Model l/lll. It's menu driven and includes a text editor, 
four conversion utilities, and setting files to access all of 
the popular data bases such as CompuServ, the Source, 
Dow Jones, etc. User defined keys and automatic 
reformatting of data to the size of your screen are only 
two of many extra features. List S95.00 

1.95 



$79. 



SOFTWARE 




NEWDOS80/Vers. 2 


$124.95 


LD0S 5.1 


109.95 


D0SPLUS 3.5 


119.95 


D0SPLUS II 


199.95 


Micro Clinic - Mod 1 


24.50 


Micro Clinic - Mod 3 


28.50 


Trashman 


34.50 


Faster 


24.95 


R.P.M. - Disk Timer 


22.50 


CAU's Basic Editor 


24.75 


M-ZAL 


129.50 


T-ZAL - Mod 3 


39.95 


LD0S Utility Disk #1 


42.50 


LD0S FED (File Editor) 


33.95 


EDAS - Version IV 


84.95 


The BASIC Answer 


59.95 


Super Utility Plus Ver. 3.0 


65.95 


Maxi Manager w/utility 


119.50 


Maxi Utility 


44.95 


Maxi Mail (Mod 3 Only) 


79.95 


Maxi Stat 


169.95 


GEAP Version 2.1 


46.50 


Dot Writer Version 1.5 


55.95 


GEAP Plus Dot Writer 


84.95 




$119.50 

Includes Correcting Feature 

Hyphenation Option 41.95 

Grammatical Error Option 41.95 

Electric Webster is a TM of Cornucopia Software 



24-Hour Shipping tor Items in Stock 

Free Use of Credit Cards 

Large Selection-Call for Items Not Listed 



Toll Free Order Line 

Free Shipping on Orders over S100 

Friendly, Honest, Reliable Service 



We accept Visa, Master Card, check, cash, money 
orders, and COD. In the 48 continental States add S2.50 
for UPS standard shipping, we'll pay shipping if your 
order is over S100. Alaska and Hawaii orders are 
charged actual shipping charges. COD orders are 
charged an extra $2.00 and require cash or certified 
check on delivery. POs accepted upon approval. 

When ordering by mail, include your telephone num- 
ber, credit card information, computer model, memory 
size, and number of drives. Colorado residents add 
appropriate sales tax (6'/2% in Denver). 

Prices are subject to change without notice. 




Applied Microsystems, Inc. 

612 Washington, Denver, CO 80203 -*» 



ORDER NOW 
TOLL FREE 



1-800-468-4474 

IN COLORADO CALL 861-9250 



LOOS is a TM of Logical Systems, Inc. 



M-ZAL is a TM of CAU, Inc. 



TRS-80 is a TM of Tandy Corp. 



NEWSCRIPT is a TM of Prosoft 
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BUY A BANANA. SAVE A BUNCH. 



Meet the Banana;" the very 
tough, versatile, portable, and 
reliable dot-matrix printer from 
Gorilla!" 

At $249.95 retail it's an ideal 
and inexpensive companion for 
personal computers like Apple® 
(or Apple "look alikes"such as 
Franklin® or Albert®), TIf 
CommodorefTRS-SOfKaypro,® 
Tiraexf Osborne? etc 

After that, it's merely com- 
parable to other printers that can 
cost up to three times as much: 
10" carriages (to handle standard 
9V2" paper), 80 columns, graphics 
capability, 10 characters per inch 
(expandable to 5 cpi) draft-quality 
print (for perfectly acceptable 
form letters, data processing, 



business reports, etc.) tractor 
feed (for precise alignment and 
quick loading), parallel or serial 
interface (take your pick), self- 
inking ribbon cassette (for long 
life and easy installation), 10 
portable pounds in weight, and 
compatibility with so many of the 
most popular personal computers 
on the market. 

Plus its printhead features a 
unique single-hammer design that 
eliminates a lot of moving parts, to 
eliminate a lot of annoying repairs. 

That's the Banana: silly name, 
serious service. It's everything 
the expensive dot-matrix printers 
are . . . 

Except expensive. 




Leading Edge Products, Inc., 225 Turnpike Street, Canton, Massachusetts 02021 
* Toll-free: 1-800-343-6833; In Massachusetts (617) 828-8150. Telex 951-624. 



READER SERVICE 



This card valid until September 30, 1983. 

Please help us to bring you a better maga- 
zine— -by answering these questions. 



Reader Service: To receive more information from any of the advertisers in this issue of 80 
Micro circle the number on the Reader Service Card that corresponds with the Reader Service 
number on the ad in which you are interested. You will find numbers, preceded by a ^, near 
the logo of each advertiser. Complete the entire card, drop into a mailbox and in 4-6 weeks you 
will hear from the advertiser directly. 



My vc<e for Uie bait advertisement in this issue gotn 10 
Reader Service number ll 



Jcompany) whose 



How much have you 

1 Nolblng 
H2. Lees than S100 



veslori in computet software during lha last 12 momh»? 

03. $100-$250 OS. $S00-$1.000 

D4 S39o-S3oo ne. over si.ooo 



A. Program ll myself 
. ,5. Copy il 



B How do you acquire incut of your software' 
'. : 1 r'rom software houses 
'. 2. From magazines 
: J From friends ind other programmers 

C. Where do you buy moel of your computer hardware? 

L). Radio Shack store "4. Mul order 

[ '.1. Other computer'eleetronics Mora HS. Used equipment dealer 

{ J3. Department store C16. Private Individual 

D Whal type o( TRS-eO(s] do you own? 

1 Model! \ jr. ol i [J4. Model III Level [ Ul. Model 12 

■-■2 Model 1 Level 11 . !S. Model III Level II OS. Color 

C"3. Model II L'J6. Model 16 :». Pocket 

E. How much have you invested in computer hardware (Including peripherals) during the last 12 
months? 

~.1. Nothing CA. J2.00O-S3.000 36. $4,OOO-S5,0Ou 

O" 2: Under $1,000 Zi. S3.OOO-J4.0O0 T:7 Over $5,000 

5 $l.000-$2,000 

F. How much do you plan to spend on computer hardware (including peripherals) during the next 12 
months? 

O'l Nothing ZA. $2.OOO-$3.0O0 f )6. $4.000- $5,000 

2. Under $1,000 ~S. $3JX»-$4.000 ; -7. Over $S.0O0 

3 $1.0O0-$2.(XXl 

C. Which of the following peripherals do you plan lo buy during the next 12 months? 
1 Printer COB Voice Synthesizer 

l Modem ; 17. Disk System 

13 Plotter ;.}8. Expansion Interface 

ZA. loystlck/Came Paddles _!» Monitor 

rjs. Ught Pen 

H. Do you ever write Assembly-language programs? 
. il. Yes 

Z.2. No 



I, Do you invest i 

;.:1. Yes 
32. No 
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The articles in M Micro are: 

1 Tou simple 



202. Too complex 



3 |ust right 



Name 



L. Which of the following columns do you read? Please rale them on a scale of 1 (seldom reed) to 5 
lalways read). 

1. Remarks S. Coperntca Mathematics 9. The Color Key 

2 Commander 80 «. MONEY DOS 10. The Next Step 

3. The Gamer's Cafe 7. Fun House 11. Suite 16 

4. News 8. Feedback Loop 12 Medical Opinion 

M. If you ire not • subscriber plane circle 500. 



Address 
City 



State. 



_Zip_ 



80 Micro • August 1983 
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Please send me the following 80 
Micro products: 



80 Micro 

Peterborough NH 03458 



Qty. 


Catalog • 


Title 


Unit Price 


Total 









































































SURSCRIPTION 



Omicn 



ubscribers save $ 

off the 
newsstand price 



Shipping and handling charges: 

$ 1 .50 1 st book. $ t .00 each additional book 

(OPS. use street address) 

S 10.00 each book overseas airmail 



Shipping/handling 
Total 



Enclosed $_ 
Bill: O AE 



Card#_ 



□ MC 



O Check 

DV1SA 



.Exp. date 



□ M.O. 



Signature 
Name 



Interbank* 



Address. 
City 





======== 


Enclosed $_ 
Bill: C AE 
Card# 

Exp. date . 
Signature 


New Subscription Renewal 
1 year— $35.97 

n Check riMA 
U MC 3 VISA 

Exp. date 
Interbank* 


Name 


Address 


City 


State Zip 



_State_ 



-Zip- 



No C.O.D. orders accepted 



Please allow 4-6 weeks for delivery 



Canada and Mexico $44.97, 1 year only, OS Funds. 

Foreign Surface S54.97, 1 year only, CIS Funds drawn on OS bank. 

Please allow 6-8 weeks for delivery. 
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107 AardvarkLtd 135 

26 Access Unlimited 350.351 

356 Adel Computer Mart 295 

82 Aerocomp Inc 198. 199 

136 Allen Gelder Software 193 

476 AlphaBit Communications 233 

17 Alpha Products Co 13,15,17 

374 ALPS 21 

1 10 Amdek Corporation 145 

217 American Small Business Computers 

171,173,175 

258 Ammicro 107 

406 Analytical Processes Corp 333 

141 Amtek Software Products 43 

' Ann Arbor Precision 42 

40 Apparat Inc 229 

575 Applied 80 Softwares 354 

390 Applied Microsystems Inc 321 

514 Ashland Computer Systems 266 

383 Astro-Star Enterprises 296 

569 Aton International Inc 348 

551 BSB Electronics 348 

152 BCCOMPCO 48 

300 B.T. Enterprises 77 

184 Baudy House Computer Products .-309 

243 Bay Technical Associates Inc 221 

558 Beaver Electronics. 352 

25 Beta Enterprises Inc 174 

• Bible Research Systems ,.331 

106 Binary Devices 136 

381 Bodex 103 

• Bottom Line. The 305 

165 Briefcase Portable 238 

532 Brum Electronics 217 

181 CMD Micro 331 

64 California Word Exchange 33 

279 Canadian Micro Software 230 

466 Check-Mate 353 

103 Chromasette Magazine 97 

148 Circle Computer 196 

102 CLoad Magazin&lnc 97 

448 Coleman Computer Services 218 

436 Communications Cable 174 

168 Compu-Quote 174 

252 CompuAddCorp 289 

455 Compukit 342,343 

120 Computer Applications Unlimited 329 

139 Computer Case Company 262 

133 Computer Discount of America 270 

549 Computer Entrepreneur Publication 255 

138 Computer Express 133 

357 Computer Friends 225 

420 Computer Peripheral Resources 283 

18 Computer Plus 19 

505 Computer Services of Danbury . 168 

453 Computer Shack 59 

109 Computer Shack 269 

39 Computer Shopper 336 

244 Computer Store. The 225 

• Computerware 348 

564 Computerware 352 

578 Comrex International Inc 352 

45 Cornucopia Software 37 

566 Corvus Systems Inc 344 

• Cosmopolitan Electronic Corp 38, 39 

187 Cottage Software 275 

190 Creative Computer 70 

223 Crest Software 170 

307 Custom Data 216 

282 DFW Computer Center 130 

322 D/PunchCo 61 

37 Dangar Enterprises 187 

452 Data-Mail 348 

553 DatamateCo 354 

438 Datascore 216 

118 Data Services Inc 63 

99 Data Systems 169 

342 Datatek Inc 306 

565 Datatek Inc 354 

4 Data Timers 213 

367 Digital Images 21 

204 DISKcount Data 79 



441 Diskette Connection 295 

5 DisketteJunction 93 

62 Displayed Video 183 

571 Docutel/OlivettioneCorp 349 

353 Dresselhaus Computer Products 55 

216 E.A.P. Company/Gold Plug 72 

• EartyGames 167 

154 Eigen Systems ' 295 

• 80Micro 35.196.211,228.303,306.315 

555 Electric Bookshelf, The 346 

159 Electronic Specialists Inc 287 

125 Elite Electronic Industries 88 

97 Epson America Inc 326. 327 

561 Erb Computer Systems 346 

• Excellonix 273 

454 Farwest Systems & Software 214 

228 Florida Micro Computer Systems 121 

214 Fort Worth Computers 185 

262 Frank Hogg Laboratory Inc 304 

449 Frogg House/Professor Jones 230 

379 Gamester Software 70 

186 Good-Lyddon Data Systems 29 

287 H A.K. Workshop 187 

9 H & E Computronics 

153 '55. 157 159 161 162 '63 
572 • ■ 352 

355 > '68 

153 •■■.■■. '39 

•(■•'••■. 291 

175 I- '■•-•■ 179 

326 Hjv -JH'v* 47 

?i| I ■-• ■ 104 

445 UG 90 

446 I JO 91 
44 ISR 170 
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15 Janphil Software 187 
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536 Johnson & Johnson Computers 303 

16 K& L Software .61 

554 K& [.Software 346 

331 KSoft 177 

576 KSS Associates 344 

485 Kalglo Electronic Co. Inc. 176 

354 Kuzel Computer Software 172 

32 LNW Research Corp 95 

31 LNW Research Corp 7 

30 LNW Research Corp CIV 

33 LNW Research Corp 197 

268 L& RSoftware 172 

462 Langley St. Clair Instr Inc 29.41.87,89,254 

336 Last Electronics 231 

472 Leading Edge Products Inc 322 

155 Leds Publishing Co. Inc 196 

• Level IV Products Inc 143 

573 Lewis Computer Supply 348 

131 Libra Laboratories Inc 49 

75 Lichen Software 244 

563 Lichen Software 352 

135 Lindbergh Systems 45 

• Load 80/Color Load 80 : 66.67 

330 Logical Devices Inc 303 

251 Logical Systems Inc. 57 

115 Lynn Computet Service 111 

393 M.C.S. Software 341 

398 MESC : 125 

128 Macro Systems Software 178 
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457 Management Systems Software 228 

560 Mannesmann Tally 346 

241 Marathon Sycir-m-. Software '13 

146 Master Elec''-""--ir. 333 

199 Mega-Byte "86 

574 Method Sysreni-. t.. 354 

461 Memory Mei r^rit .40 

149 MicroArchit"L!.i-i 289 

247 MterocompUf "ecrrc -igy r- 313 

• MicroDataSi-SRie; '22 '23 
14 Micro Data Si,roi <■-. 9 11 

435 Micro-Compufr >Ul< ■■ Cur-j /89 

• Micro-Desig-i 57 

463 Micro-Desig-i 2'S 249 
429 Micro-Desig ■■ 273 

426 Micro-Desig-' 216 

427 Micro-Desigi 217' 

428 Micro-Design 217 
76 Micro-Desig" 215 

132 Micro-80lnc 283 

161 Micro-Grip IK 231 
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• Micro Price 297 
312 MlcrosetteCn 165 
579 Micro Software . '. 354 
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380 Microtech E.pcriM-.. 222 
548 Microwaves Com;u.ie- P'ocucts 179 

• Midwest Computer Wholesale .231 

137 Miller Microcomputer Service 223 

• Misosys 8. 1 16 

58 Modular Software Associates 2i'4 

67 Mumford Micro Systems 311 

55 Mumford Micro Systems 102 
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533 NEBS Computer Forms 27 

255 New Classics Software 56 

259 New Classics Software 319 

232 Nocona Electronics 187.334 

54 Nodvill Software 221 

508 Ocean Inc 244 

50 Omikron . 25 

568 Omnilogic Inc '. 346 

36 Omnisoft Research 215 

195 Omnitek Computers Infl. Inc 271 

206 Options-80 232 

151 Orion Instruments 339 

321 PABSoftware. .. '. 178 

433 PCD Systems .'■ 115 

207 Pacific Exchanges 222. 228. 232 

567 Pacific Technology Services 344 

122 Pan American Electronics : 309 

333 Peggytronics .' 243 

324 PeUTek .-; 106 

' Percom Data Company . . 3 

124 Perry Computers 177 

176 Personal Computer Products 335 

509 Phone Line, The !'". .'. 347 

290 Pickles & Trout : h ■ 265 

490 Pion Inc '...'. 146 

160 Pioneer Software ..,.....' 117 

306 Powersoft 194 

315 Powersoft 309 

11 Practical Peripherals Clll 

260 Pro/Am Software 245. 296 

80 ProgramStore 180.181 

143 Progressive Electronics 129 

423 Proper Touch, The 214 

98 Prosott 31 

95 Prosoft 345 

91 Prosoft 33 

557 PulseSoftware 354 

48 Quality Computer Services 52 

194 Ouant Systems 238 



273 RCMComputers 62 

402 RDSSoftware 220 

?00 R&SSoftware ..... 176 

41 Racet Computers Ltd 301 

468 Racet Computers Ltd 301 

296 Rainbow. The . 283 

* Realty Software Co 186 

275 Red Baron Computer Products 137 

145 REMarkable Software 191 

129 REMsoft Inc 227 

518 Rizzo Data Systems 21 

213 68 Micro Journal 218 

432 SHSSolutions 218 

550 SGLWaber Electric 344 

35 SID 320 

340 SLRSystems 293 

368 Safeware 237 

142 Sales Data Inc 191 

• Sandpiper Software 193 

203 Scientific Engineering Labs 257 

510 Scott Tasso Associates 220 

83 Screen Play 109 

272 Securities & Commodities Co 225 

363 Shawmut Systems 191 

34 Shepherd Marketing 220 

163 Simufek Computer Products 263 

164 Simutek Computer Products 261 

12 Simutek Computer Products 259 

577 Single Source Solution 352 

182 Smallsystems Center, The 194 

372 Soft Systems & Consulting 258 

1 16 Softronics , 127 

57 Softshell 317 

410 Software Factory 185 

399 Software Guild. The 84.85 

537 Software Options, The 75 

327 Software Support 22.23 

261 Softwear Inc 217 

276 Solutions Inc 8 

292 SonSoft 152 

119 Spectral Associates 126 

570 Spectro Systems 349 

506 Star Micronicslnc 131 

71 Sublogic Communications Corp 287 

456 Sunlock Systems 177 

285 Sun Research Inc 347 

538 Sybex 147 

174 Syracuse R& DCenter 257 

100 Systems Group. The : 73 

208 3M 99 

189 TabSales 260 

70 Taranto & Associates Inc 101 

440 Tech Data Corp 215 

144 Texas Computer Components 152 

59 Texas Computer Systems 189,298,299 

320 Todays Future 172 

81 Total Access 149 

552 Toucan Software 354 

489 Tripte-D Software 61 

227 Trisoft . 1 318 

622 Two/Sixteen Magazine 221 

• 417 Universal Data Research 287 

413 Upwego 185 

10 VR Data Corp 105,307 

169 Van Horn Office Supply 193 

166 Vanguard Technology 214 

• Vespa Computer Outlet 271 

335 Virginia Micro Systems 221 

305 Wadsworth Electronic Publishing 347 

563 WattsOut Inc 346 

• Wayne Green Books 

222.228,232,271,276,309,317,336 

• Wayne GreenfBook Nook 277, 278, 279 

238 Western Microsystems 308 

179 Western Operations 245 

• William A. Fink 54 

337 Wittsoft 293 

27 World Wide Data Systems Inc 285 

• Woodworks, The 221 

158 XYZT Computer Dimensions Inc. . . r 119 

156 York 10 Computerware .-349 




80 Micro, August 1983 • 323 



The GAMER'S CAFE 



by Rodney Gambicus 




We'd never have gotten into this 
jam if Max hadn't stopped for 
fried okra in Marietta. We were heading 
south on Route 80, planning to bypass 
Atlanta and stop in Macon. That is, un- 
til Max spotted the neon sign. 

"Bar-B-Que! Fried okra!" 

Next thing you know, we'd crossed 
the median, dodged a line of Georgia 
traffic, and headed back the other way. 
Econolines are not meant to jump me- 
dians. I thought we'd had it. I could tell 
Mercedes did too; she made a syntax er- 
ror in the program she was writing. 

While Max traded our extra copy of 
Dig Out for three orders of okra and 
four barbecue sandwiches to go, Mer- 
cedes and I decided to set up the Cafe in 
Atlanta after all: spread some gamers' 
good will, soak up that Southern 
hospitality, and keep Max off the 
highways for a while. 

The plan was good, but my sense of 
direction was bad. I proceeded to circle 
the city on 1-95 until sundown, mutter- 
ing, "How do you get off this beltway?" 
while the others lost themselves in lunch 
("This isn't bad," Mercedes said. "It's 
sort of like zucchini") and the mail. 
***** 

Modesty is the true sign of a serious 
gamer, and Scott McClure, the "Expert 
High Score Demolisher" of Winter 
Park, FL (he bellowed, "I HAVE 
SPOKEN" in May), has been rebuked 
by several readers. Some thought his 
letter a joke or deplored his boasting; 
Jim Dossey of Ocala, FL was more busi- 
nesslike — "I think he brags too much, 
so I beat his Bounceoids score 
(3,059,800 to 2,028,450).'.' 

But even Jim's score must bow to 
Chas Weiss (Cleveland, OH), who had 
the game reset on him at 8,879,950 
points with 135 men left. There's a re- 
markable silence from Winter Park. 

Speaking of high scores ("Do we ever 
speak of anything else?" Mercedes 
muttered), we're considering dropping 
some entries from the board. Steven C. 
Ohliger II of Cincinnati may be inno- 
cent — he says, "I guess I found out the 
secret of the game Armored Patrol" — 
but his score of 1,000,000 makes us 
think he's stumbled into the "garage," 
as A. P. experts call it. 

80 Micro revealed this invulnerable 
shelter in August 1982 (p. 21), and 
it seems the trick could make score 
claims meaningless. Steve Kolokowsky 
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Take that, 

Scott 
McClure 



of Spring Valley, NY, even topped 
500,000 just by leaving the game on all 
night. 

Patrick Kellogg (White Bear Lake, 
MN) writes with other suspect games: 
"If you load in Super Nova in double- 
spaced (CHR$(23)) letters, you can play 
the game while your ship disappears. 
You can play forever doing this. 

"Liberator will contort itself at 
400,000 points, where the player can 
walk through walls, barrels, anything. 
And if you get blown up while bombing 
the base in Penetrator, you can fly un- 
derground. . . . Hasn't anyone else found 
these programming errors?" 

We may drop these games from the 
Much-Too-Big Board (as the editors in 
Peterborough call it). Meanwhile, Pat- 
rick adds, "How about the secret mes- 
sage in Asylum, the 'dividing line' in 
Eliminator, or the way to get 10,000 
free points in Demon Attack? But that's 
for you to find out." 

Finally, there's someone with no 
name, no address, and no spelling: "My 
name is Doctor Damage. That's all 
you'll ever now." We'll print scores 
without photos, but only from real 
people. 



Max had been looking at the prism- 
and-glass cityscape and mumbling 
"Rhett Butler. . .here?" and Mercedes 
had fallen asleep by the time I veered off 
the beltway somewhere on the outskirts 
of town. The first thing we saw was a 
sign for a place called the Limelight. 

"A bar?" Max asked, looking at me. 

"Drinks? Beer? Pretzels?" I mur- 
mured, looking at him. 



"Months on the road sharing milk 
shakes with an 1 1 -year-old," he growled. 
"I've had it." So we locked Mercedes in 
the van and rushed for the entrance. 

Once inside, Max and I just stood on 
the balcony taking it all in: the lights 
flashing in the cavernous black interior; 
the frenetic dancers amidst the Lucite; 
New Wave music, decibels beyond our 
Radio Shack Minisette. 

It was there, beers in hand, that we 
came to the awful realization: We 
couldn't think of anything to think or 
talk about but the Cafe. The dancers re- 
minded Max of Apple Panic, and the 
lights made me think of readers' an- 
swers to our call for screen photo tips. 

Michael Peters, district technical rep- 
resentative for Business Imaging Sys- 
tems, sent advice from Eastman Kodak: 
"Adding light from a flash or other 
source only serves to overpower the 
light produced from the monitor. Try 
photographing the screen with little or 
no room light and no flash. 

"For best results, use a shutter speed 
slower than 1/60 of a second to permit a 
complete scan. Faster speeds will cause 
a diagonal band to appear on the 
screen, obliterating information." 

Kurt Plowman (Harrisonburg, VA) 
recommends an even slower speed — 
1/30, sometimes 1/15 or 1/8 — since the 
monitor is displaying 30 frames per 
second. Carl Mann (Newburyport, NH) 
adds that 400 ASA color film works 
nicely; set the f-stop or aperture after 
you set the shutter speed. 

Inexpensive models with fixed focus 
and aperture, Carl says, just can't use 
the screen's light, though an SX-70 or 
other instant camera with an automatic 
shutter might do the job. 



Conversation was dragging again 
when Max suddenly spilled his beer. 
"Mercedes!" 

"What?" I followed his shaking 
finger and saw someone cutting across 
the dance floor. "Here?" 



"No," Max said hopefully. "Could 
be anyone." 

"With dyed hair, leather flight 
jacket, tap shoes, and a Model 100 
slung on her hip from a guitar strap?" I 
moaned. "It's her all right." 

Max was so unnerved at seeing her 
that he jumped off the balcony and 
landed below on all fours. He won the 
dance contest. I took the stairs. 

We caught up with her just as she was 
describing audio spectrum analyzers 
and sound frequencies to a member of 
the stage crew. "Oh, hi, guys. This is a 
neat place. Did you know the Tubes use 
a Color Computer to synchronize their 
light display?" 

At that moment a security guard ar- 
rived, shouting something about jump- 
ing off the balcony and being underage. 
He made us wait backstage while he 
called Mercedes' dad in Baltimore. 

"Twenty years to life," 1 muttered. 
"This is going to put us behind schedule 
on the one-line games contest." 



"I think I'll write an adventure and 
enter the contest myself," Max said. 
"Win a subscription to 80 Micro for the 
Harlan County Jail." 

He grabbed a napkin and started 
scribbling: 

10 CLS:PRINT"WELCOME TO..."; 
:FORX=lTO800:NEXT:PRINT«ESCAPE 
FROM DOOM!":FORY= lTO2STEP0:"FORX 

= 1TO800:NEXTX:CLS:1NPUT"You are in a 
room with 3 doors marked 1 , 2, & 3. Which do you 
want";A:IFA= 1CLS: PRINT" Wow! You've 
escaped! "ELSECLS:PRINT"Sorry, try 

again! ":NEXTY 

Mercedes was not impressed: "Geez, 
that's even duller than the guess-the- 
random-number games." 

"There's a line here that's too long 
for the screen," I added. "Could you 
put in a carriage return?" 

"No way," Max said. "I had to go 
into Edit mode to get the last few char- 
acters in." 

"And that was after I showed him 



how to use question marks for 
PRINT," Mercedes muttered. 

"Miss Silver?" the guard yelled. 
"Your father wants to talk to you." 
Mercedes winced and scurried off to the 
phone. She returned, walking very fast — 
"Dad told them we were harmless; let's 
get out of here" — and we made, as the 
saying goes, a bolt for the door. 
***** 

So we're back on the road — Mer- 
cedes' dad apparently wants us to take 
her straight to Baltimore, but she says 
the Epcot Center and Disney World are 
very educational— and the contest's on 
schedule after all. 

If you think you can do better than 
Max (either adventure or arcade, as 
long as it fits in 255 bytes of Model 
I/III/4 Basic), send those games, post- 
marked by August 1. We're going to 
publish a bunch of runners-up as well as 
the lucky subscription winner. 

And Max says he's working on a tip 
sheet for Escape from Doom.B 



The Big Board 



/Mien Defense 

- Armored Patrol 
Astro Blast (CC) 

- Attack Force 
Bablc Terror 
Barricade 
Bounceoids 
Caterpillar 
Chicken 

—Cosmic Fighter 

Cyborg 
~~ Defense Command 

Demon Seed 

Dig Out 

Donkey King (CC) 

Dungeon Escape 

— Eliminator 
--■Flying Saucers 

Fortress 
Frogger 
Galactic Attack (CC) 

— Galaxy Invasion 
Galaxy Invasion Plus 
Ghost Hunter 
Haywire (CC) 
Insect Frenzy 
Jovian 

Laserball 

Laser Defense 

Leaper 

Liberator 
—-Lunar Lander 
"— Meteor Mission 2 

Meteoroids (CC) 

Microbes (CC) 



1,124,950 

1 ,000,000* 

15,225 

1,306,810 

7,858 

17,520 

8,879,450 

249,656 

8,922 

581,280 

99,960 

126,170 

94,210 

194,100 

74,800 

2,028 

474,950 

1,786 

187,600 

45,810 

41,340 

7,185,230" 

1,113,600 

41,190 

4,950 

520,610 

133,320 

72,530 

246,910 

35,410 

1,000,000 

9,600 

119.750 

25.270 

69,400 + 



Tommy Seniuk, Vegrevillc, Alta. 

Steven Ohliger, Cincinnati, OH 

Andrew Puglisc, Aliquippa, PA 

Johanna Bennett, Ft. Greeley, AK 

Mad Max 

Troy Scrapchansky, Uncasville, CT 

Chas Weiss, Cleveland, OH 

David Smith, Kingwood, TX 

Halfdan Hansen, Nelson, N.Z. 

I,. Ken Jackway, Phoenix, AZ 

George Heineman, Framingham, MA 

Bette Dufraine, Bolton, CT 

Philip MacKenzie, Bloomfield Hills, MI 

Ron Coleman, Jacksonville, FL 

Richard Uglum, Milwaukee, WI 

Farhad Abrishami, Silver Spring, MD 

Ron Johnston, Emporia, KS 

Mark Fertig, Northville, MI 

Mark Brinkman, Emporia, KS 

Ron Johnston, Emporia, KS 

Rich Fiore, Clemson, SC 

James & Richard Oh, Pebble Beach, CA 

Geordon Portice, Twining, MI 

John Kane, Nelson, N.Z. 

Richard Vchlow, Bayside, NY 

Darrien Ewaniuk, Vegreville, Alta. 

Mark Brinkman, Emporia, KS 

Neil Matson, Panama City, FL 

George Heineman, Framingham, MA 

Tommy Seniuk, Vegreville, Alta. 

Steven Renner, Chagrin Falls, OH 

Nelson Kruger, Duarte, CA 

Bob Brown, Dallas, TX 

Andrew Puglise, Aliquippa, PA 

Rich Fiore, Clemson, SC 



Gamer 's Cafe readers are in vited to submit their high scores, for these and other TRS-80 games. 
We'll print unvalidated scores, hut validated ones (a photo of the screen) will, of course, rank 
higher in prestige. 



John Kane, Nelson, N.Z. 

Andrew Puglise, Aliquippa, PA 

Troy Scrapchansky, Uncasville, CT 

Rich Hore, Clemson, SC 

Matt Dossey, Ocala, FL 

Joerg Klora, Pattenham, W. Germany 

Andy Lehtola, Mound, MN 

Brian Gehrich, Quincy, 1L 

Jim Dossey, Ocala, FL 

George Heineman, Framingham, MA 

Mark Silverman, Atlanta, GA 

Ron Johnston, Emporia, KS 

Rich Fiore, Clemson, SC 

Rich Fiore, Clemson, SC 

Mark Fertig, Northville, Ml 

David Heyman, Conway, PA 

John Hope, Kingston, Ont. 

Scott Trent, Hales Corners, WI 

Brian Gehrich, Quincy, IL 

Ron Johnston, Emporia, KS 

Jer McLanahan, New Canaan, CT 

Geordon Portice, Twining, MI 

Andrew Puglise, Aliquippa, PA 

C. Athanas & N. Kincaid, Topsham, ME 

Mark Fertig, Northville, MI 

Farhad Abrishami, Silver Spring, MD 

Mad Max 

Farhad Abrishami, Silver Spring, MD 

Richard Vehlow, Bayside, NY 

Farhad Abrishami, Silver Spring, MD 

Chris Athanas, Topsham, ME 



Armored Patrol and several other games are on Cafe probation. See nexl month's Big Board 
for the verdict . 



Solo record: 2,423,850 (Michael Titus, Horseheads, NY). 



Missile Attack 


41,430 


Monkey Kong (CC) 


746 


Monster Invaders 


32,620 


Monster Maze (CC) 


14,340 


Olympic Decathlon 


9,598 


Outhouse 


524,746 


Pac Attack (CC) 


56,235 


Paddle Pinball 


3,980,310 


Panik 


43,370 


-Penetrator 


345,510 


Planet Invasion (CC) 


68,500 


Planetoids 


48,270 


Polaris (CC) 


53,879 


Poltergeist (CC) 


4,840 


Robot Attack 


143,250 


Scarfman 


679,490 


Sea Dragon 


552,890+ + 


Skyscraper 


10,000,000 


Space Castle 


39,000 


Space Intruders 


14,030 


Space Warp (Level 8) 


261 


Stellar Escort 


53,350 


Storm (CC) 


170,775 


Strike Force 


433,900 


Super Nova 


2,138,710 


Swamp Wars 


59,130 


Time Runner 


89,479 


Venture 


29,440 


Venturer (CC) 


919,050 


Voyager 1 


833 


Weerd 


17,120 



+ + Expert mode: 339,080 (David Smith, Kingwood, TX). 



80 Micro, August 1983 • 325 



; •'-;-•."•.< 




For everyone who's tried 
to top the MX-80, bad news. 
We just did. 




-97 
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The Epson MX-80 is the best-selling dot 
matrix impact printer in the world. It has 
been since its introduction. And despite the 
host of imitators it spawned, no one has 

been able to top it. Until now. 

FX-80: Son of a legend. 

The new Epson FX-80 is far more than just 

doo-dads added on to last year's model. It's 
the most astonishing collection of features 
ever assembled in a personal printer. 

For starters, it's fast: 160 CPS. And clean. 
All the print quality Epson is famous for in a 
tack-sharp 9x9 matrix. 

But that hardly scratches the surface. 
Create your own alphabet. 
With the new FX-80, you aren't limited to 
ASCII characters. You can create your own. 
Any character or symbol that can be defined 
in a 9x11 matrix can be added to the FX-80's 
already impressive library of type styles and 
stored in its integral 2K RAM. 

So you can create "Sally's Gothic" or 
"Tom's Roman" just by downloading and 
modifying standard characters. Or you can 
create a custom set from scratch. Either way, 
you can store up to 256 new characters. And 
if you don't need a new alphabet, the RAM 
functions as a 2K data input buffer. 
Who knows graphics better than Epson? 
Nobody, that's who. And if you don't 
believe it, witness the FX-80. 

With a 12K ROM capacity, the FX-80 gives 
you a few things the others don't. For exam- 
ple, not one, not two, but seven different dot 
addressable graphic modes are program 



selectable. And can be mixed in the same 
print line. Everything from 72 DPI (dots- 
per-inch) Plotter Graphics to the 640 dots 
per line resolution designed to match the 
remarkable monitor clarity of the Epson 
QX-10 personal computer. 

And that is in addition to an astonishing 
array of 136 different user-selectable type 
styles including Proportional, Elite and Italic 
as well as the more conventional faces you 
get on other printers. 

Hard-to-beat hardware. 

The FX-80 has all the hardware features 
you've come to know and love on the MX 
Series: logic seeking, bidirectional printing, 
the by-now-famous disposable printhead, 
and more. 

The FX-80 features an adjustable pin 
platen or optional friction/tractor feed, so 
you can use fanfold, roll or sheet paper . . . 
backwards or forwards. The FX-80 even 
gives you reverse paper feed. 

And if you're printing forms, the FX-80 
has a feature you're gonna love: a function 
that allows you to tear off the paper within 
one inch of the last print position. 

Be the first on your block. 

We'd be willing to bet that the FX-80 — like 
the MX-80 — will have its share of imitators. 
Don't be fooled. To make sure you get the 
genuine article, rush down to your local 
computer store right now and let them show 
you everything the FX-80 can do. 

And while you're there . . . ask them to 
show you how it works with our computers. 





EPSON AMERICA, INC. 

COMPUTER PRODUCTS DIVISION 

3415 Kashiwa Street 
Torrance, California 90505 
(213)539-9140. 
Outside California, phone 
(800) 421-5426 for the 
Epson dealer nearest you. 



■ See List of Advertisers on Page 323 
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COPERNICA MATHEMATIC 



XjL by Bruce Douglass 



A variety of problems in science, 
engineering, mathematics, and sta- 
tistics lead to eigenvalues. The determi- 
nation of frequencies in freely oscillat- 
ing mechanical or electrical systems, or 
critical frequencies for rotating shafts, 
lead to eigenvalue problems. The solu- 
tions of many partial differential equa- 
tions also lead to eigenvalue problems. 
Determining the principal components 
of regression matrices (a type of statisti- 
cal analysis called factor analysis) and 
determining the relationship between 
two groups of correlations (called can- 
nonical correlation) lead to eigenvalue 
problems. 

An eigenvalue is also known as a 
characteristic value. In equation 1, A is 
a square n by n matrix, A is a scalar (real 
number), and X is an n by 1 vector: 



AX-AX 



Equation 1 



The values of A that make equation 1 
true for matrix A are called the eigen- 
values. The vectors X that make the 
equation true for some A are called ei- 
genvectors. Together, an eigenvalue 
and its corresponding eigenvector are 
called an eigenpair. 

In principle, the A's are easy to find. 
If you evaluate the determinant in equa- 
tion 2, you obtain the nth-order 
polynomial. The I in equation 2 is the 
nth-order identity matrix. The roots of 
this polynomial are the eigenvalues. The 
polynomial arrived at is the characteris- 
tic equation. 



det(Al-A) = o 



Equation 2 



Determination and solution of the 
characteristic equation is one of the 
least practical methods for solving ei- 
genvalue problems, however. First, ex- 
panding the determinant of a 20 by 20 
matrix requires 10 18 arithmetic opera- 
tions. Since errors add up, the coeffi- 
cients for the characteristic equation 
may be totally meaningless by the time 
the expansion is complete. Add to this 
the round-off error due to numerical so- 
lutions of the polynomials, and you 
have a pretty bad mess. 

The most popular method for deter- 
mining the largest eigenvalue is the 
power method. Assume that the square 
matrix A has n eigenvalues, one of 
which is larger than the others, and that 
A has n linearly independent eigenvec- 
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by the combination of the other 
eigenvectors). 

Any vector in the n-dimensional 
space can be represented by a weighted 
sum of the various eigenvectors. For an 
arbitrary vector X0, 



Eigenvalues 

and 
eigenvectors 



tors Ui...U n (linearly independent 
means that no eigenvector is produced 



x = 


= a, U,H a ; U 


+ . . . \ 


a„ U n Equation 3 


If you let: 






x,= 


= AX„ 








= A(a, U,+a 


2 U 2 +. 


.+a,,U M ) 

Equation 4 




= a, AU,+a 2 


AU,+ 


...+a n AU 11 

Equation 5 


Since all the Uj 


s are eigenvectors of A, 


then 









AU, AjUj 

This is true for all i = 1 to n, so the sub- 
stitution in equation 5 produces: 



10 REM EIGENVALUES VIA POWER METHOD 

20 DEFINT I-N:DEF FN MAX ( A,B) =- ( A>B) *A- (B=>A) *B 

25 DEF FN DNE ( A,B) = (ABS ( A-B)<=0 . 00001) 

30 CLS: PRINT" EIGENVALUES BY POWER METHOD" 

40 INPUT" ENTER THE ORDER OF THE MATRIX" ;N 

50 DIM A(N,N) f B(N) ,C(N) 

60 PRINT" ENTER THE ROWS OF A" 

70 FOR 1=1 TO N: PRINT" ROW #";I 

80 FOR J=l TO N:INPUT A(I,J):NEXT J, I 

90 PRINT" ENTER INITIAL VECTOR" 

100 FOR 1=1 TO N:INPUT B(I):NEXT I 

110 FOR K=l TO 10: REM MAX ITERATIONS 

120 GOSUB 1000: REM A( , ) *X (K) ==>M*X(K+1) 

130 • GOSUB 3000 :REM COMPUTE B = EIGENVALUE 

140 GOSUB 2000: REM UPDATE VECTOR 

150 GOSUB 4000 :REM PRINT APPROXIMATION 

160 IF FN DNE(B f Bl) THEN PRINT, "CONVERGED! " :GOTO 190 

17 B1=B:REM UPDATE LAST EIGENVALUE 

180 NEXT K:PRINT,"DID NOT CONVERGE" 

190 END 

1000 REM MULTIPLIES A(N X N) BY VECTOR B (N)==> VECTOR C (N) 

1010 C=0:FOR 1=1 TO N:C(I)=0 

1020 FOR J=l TO N 

1030 C(I)=C(I)+A(I,J)*B(J) 

1040 NEXT J:C=FN MAX (C,C ( I) ) :NEXT I 

1050 FOR 1=1 TO N:C(I)=C(I)/C:NEXT I 

106 RETURN 

2000 REM STUFF VECTOR C ==> B AND SCALE IT 

2010 FOR 1=1 TO N:B(I)=C(I) :NEXT I 

20 20 RETURN 

3000 REM GET EIGENVALUE 

3010 XK=0:XJ=0:FOR 1=1 TO N 

3020 XK=B(I)*B(I)+XK 

3030 XJ=B(I)*C(I)+XJ 

3040 NEXT I 

3050 B=C*XK/XJ:REM EIGENVALUE APPROXIMATION 

3060 RETURN 

4000 REM PRINT RESULTS 

4010 PRINT, "CURRENT APPROXIMATION" 

40 20 PRINT" EIGENVALUES, -B 

4030 PRINT" EIGENVECTORS; : FOR 1=1 TO N:PRINT B ( I) ; :NEXT: PRINT 

4040 RETURN 



Program Lis ling I 



If You Do A Lot Of Editing Of 
Your BASIC Programs, Then 




m 



TheF 
the 1 

lbe< 
ifjsa 
BASIC 



tereen Text Editor for BASIC, we were the first to give 



i%i 



t ability? The ability 
your BASIC progranrtwtth the ease of word processing. 
/pe of word processor specifically designed to handi* 
programs instead of letters and documents. 





■ The capability to change, insert and 
delete a character or characters: 

Simply position the cursor over the 
character that you wish to change and 
type in the new one. Another handy feature 
is Insert Mode, this is used to add text in the 
middle of a program line. 

■ Extend a line or insert new lines: 

Extending a line is as simple as two 
keystrokes, instantly the cursor jumps to the 
end of the program line and the editor is 
placed in the insert mode. 

■ Delete, copy or move statements: 

All you have to do is mark the line or block 
of lines and then tell the editor where to 
move or copy them. 

■ Global Search and/or change any 
specified string: 

Have you ever needed to change a lot of 
PRINT statements to LPRINTs? 

■ Macro key facility: 

Macro keys can cut your programming 
time in half. You can define each of the 26 
letter keys (A-Z) to represent BASIC 
keywords, or any letter or number 
combination up to 6 characters per key. 

■ Renumber commands: 

Whats so special about this renumber 
facility? Not only can it renumber selected 
portions of your program, it also checks all 
GOTO, GOSUB, THEN and ELSE statements 
and updates them as needed! 

sSee List of Advertisers on Page 323 



You may have seen other Editor programs 
advertized that give you one, maybe two 
of these features. You may have also seen 
some of these features sold as separate 
utility programs. 

Only CAU offers a complete editing system, 
not just a word processor patched up to 
handle line numbers. 



You can order the BASIC Editor directly from 
Computer Applications Unlimited or ask your 
local computer store. 




The Editor is supplied on tape with complete 
instructions to move it to disk. If you wish us to 
send the editor on disk please add $5.00 
and ask for a DISK DUMP 

Add $2.00 for shipping in the U.S. and 
Canada, $10.00 outside USA 
N.Y. State Residents add applicable Sales Tax. 
Dealer Inquiries Invited. 

Computer Applications Unlimited 
P.O. Box 214, DeptFSBE, Rye, N.Y. 10580 
(800) 354-5400 (toll free, orders only) 
(914) 937-6286 (questions & 
NY state residents) 



MattwCwd 



3 



/-?/ /COMPUTER 
IJLJ APPLICATIONS 



UNLIMITED 



i dlv. of CAU, Inc. 



TRS-80 is a TM of Tandy Corp. 
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COPERNICA MATHEMATICA 



Program Listing 2 

PROGRAM POWER; 
CONST 

MAX_SIZE = 10? (* maximum size of the matrix *) 
TYPE 

MATRIX = ARRAY (.l..MAX_STZE f l-.MAX_SIZE.) OF REAL; 
VECTOR = ARRAY ( .1. .MAX_SIZE.) OF REAL; 
VAR 

A : MATRIX; 
B,C : VECTOR; 

SIZE, MAX _IT, LOOPS : INTEGER; 
EIGENVALUE, LAST. SCALE : REAL; 
FUNCTION DONE(A,B: REAL): BOOLEAN; 
BFGIN 

DONE := (ABS(A-B) <=0. 00001) 
END; 
PROCEDURE INPUT _MATRIX(VAR A: MATRIX; VAR S: INTEGER); 
VAR 

I, J : INTEGER; 
BEGIN 

WRITE ('ENTER THE SIZE OF THE MATRIX: '); 
READLN(S) ; 
FOR It" 1 TO S DO 
BFGIN 

WRITELN( 'ENTER ROW NUMBER ' , 1 : 4 , ' '); 
FOR J:= 1 TO S DO 
READLN(A( . I, J.. ) ) ; 
END r 
END ; 
PROCEDURE INPUT _VECTOR( VAR V:VECTOR; S:INTEGER); 

VAR 

I : INTEGER; 
BEGIN 

WRITELN( 'Enter initial guess of eigenvector'); 
FOR It« 1 TO S DO 
BEGIN 

WRITE( 'ENTER ELEMENT 1 ,1:4, ' '); 
READLN(V( .1.) ) ; 
END; 
END; 
PROCEDURE MULT...A..X. B(VAR A: MATRIX; VAR B,C:VECTOR; 
VAR SCALE: REAL; SIZE: INTEGER); 
VAR 

I, J : INTEGER; 
FUNCTION MAX(A,B: REAL): REAL; 
BEGIN 

IF ABS(A) >ABS(B) THEN 

MAX := A 
ELSE 

MAX := B 
END; (* end MAX *) 
BEGIN 

SCALE := 0; 
FOR I:» 1 TO SIZE DO 
BEGIN 

C(.I.) := 0; 

FOR J:= 1 TO SIZE DO 

CM.) := CM.) + A(.I,J.)*B(.J.); 
SCALE := MAX(SCALE,C(.I.)) ; 

END; (* END FOR I *) 
FOR I:= 1 TO SIZE DO 

C(.I.) := CM.) /SCALE 
END; (* END MULT_A_X_B *) 
PROCEDURE GET_EIGEN(VAR B,C:VECTOR; SIZE: INTEGER; 
VAR EIGENVALUE, SCALE: REAL) ; 
VAR 

X,Y : REAL; 
I : INTEGER; 
BEGIN 

X := 0; Y := 0; 
FOR I:= 1 TO SIZE DO 
BEGIN 

X := B(.I.)*B(.I.) + X; 
Y := C(.I.)*B(.I.) + Y; 
END; 
EIGENVALUE := SCALE*X/Y; 
END; (* END GET_EIGEN *) 
PROCEDURE PRINT (EIGENVALUE: REAL; VAR EIGENVECTOR: VECTOR); 
VAR 

I : INTEGER; 
BEGIN 

WRITELN( 'Current approximation') ; 



Listing 2 continue': 



X, =a, A, U,+a 2 A 2 U,+ ... . +a n A n U n 

Equation 6 

We can define X 2 : 

X,=AX,=a, A, U.+ .-.+an^U,, 
or 



X 2 = AX,=A 2 X. 



Rqua'inn 7 



We can define a sequence of these Xj's 
as Xj = A Xj _ i , Therefore, 

X k --= a, A k U, + . . , + a,, A„ k U n Eqi-iation 8 

We can factor out Al k , leaving 



Xk-Al^a.U.+a^k/A.^U, 



-a n (A r yA, k )U n ) 
Equation 9 



Since A, is larger than the rest of the 
eigenvalues (we assumed we had a larg- 
est eigenvalue at the start), then as k ap- 
proaches infinity all the ratios of (Ai k / 
A10 will approach zero. 

Therefore, for a sufficiently large k: 



X^A^a.U, 



or 



X k + , - A,X k 



Equation '0 



Equation 1 1 



This is a convergent sequence of num- 
bers. As k gets larger, the accuracy of 
equation 10 increases, since the other 

terms get closer to zero. 
This approach, formalized into an 

algorithm, is called the power method. 
Since you want to find A, (and because 
division by a vector doesn't make any 
sense), you need to produce the dot pro- 
duct of both sides of equation ) 1 and 
solve for A,: 



A.=(V-X k + I )/(V-X k ) 



Equation 12 



There are several options for our 
choice for the vector V, as long as we 
don't let V be all zeros. A common 
choice is V = X k . This makes equa- 
tion 12: 



A,=(X k -X k + l )/(X k -X k ) 



Equation 13 



By the definition of the eigenvalue 
problem, the X k 's converge to the 
eigenvector corresponding to the eigen- 
value computed. There is a problem, 
however. 
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L Minx 2 continued 

WRITELN( "Eigenvalue =' /EIGENVALUE: 8: 5) ; 
WRITELN( 'Eigenvector : '); 
FOR I:= 1 TO SIZE DO 

WRITE ( EIGENVECTOR (. I.) :16:5) ; 
WRITELN; 
END; (* END PRINT *) 
BEGIN (* MAIN PROGRAM STARTS HERE *) 
WRITELN (' Eigenvector by Power Method'); 
WRITELN ('by Bruce Powel Douglass'); 
WRITELN ('A-Priori Software, 1983'); 
INPUT_MATRIX(A,SIZE) ; 
INPUT_VECTOR ( B , S I Z E ) ; 

WRITE ( 'Enter maximum number of iterations: '); 
READLN(MAX_IT) ; 
LOOPS := 0; 
LAST :- 0; 

WHILE ( LOOPS <-MAX_IT) AND NOT ( DONE ( LAST , EIGENVALUE) ) DO 
BEGIN 

LAST := EIGENVALUE; 
MULT_A_X_B ( A , B , C , SCALE , SI ZE) ; 
GET. _EIGEN(B,C, SIZE, EIGENVALUE, SCALE) ; 
B :-^ C; (* UPDATE EIGENVECTOR *) 
PRINT ( EIGENVALUE, B) ; 
LOOPS := LOOPS + 1; 
END; 
IF LOOPS >MAX_IT THEN 
WRITELN ('DID NOT CONVERGE 1') 
ELSE 

WRITELN ( ' CONVERGED 1 ' ) ; 
END. 



Since these equations compute 
powers of A and the eigenvector X, they 



run the risk of under- or overflow. An 
overflow occurs when the range of sin- 



gle-precision numbers is exceeded 
(about 1 E 38). An underflow occurs 

when the number represented tails be- 
tween the smallest number greater than 
zero that the computer can represent in 
single-precision format and zero, and it 
is represented as zero. To avoid this 
problem, we will scale the eigenvector 
during each iteration by dividing all 
elements of the eigenvector by the 
largest element. Numbers are thus not 
allowed to grow significantly larger 
than zero during each iteration. 

If we let m ; be the scaling factor for 
the ith iteration, we see the algorithm 
producing: 



AXo^niiX, 
AX,=mX 



A^m.tXrXoVPC-X,) 
A 2 =m 2 (X r X,)/(X 2 X 2 ) 



Program Listing 1 (Power) performs 
this algorithm to find the largest eigen- 
value of a square matrix. It assumes the 
eigenvalue is real and not complex. If 
the matrix is symmetric, the power 
method converges twice as fast as for a 
nonsymmetric matrix. A well-known 
theorem of linear algebra also assures us 
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220 



Program Listing 3 

10 REM EIGENVALUES/VECTORS BY DEFLATION-POWER METHOD 

20 REM BY BRUCE POWEL DOUGLASS, A-PRIORI SOFTWARE 1983 

30 DEFINT I-L,N:DEF FN MAX (A,B) =- (ABS ( A) >ABS (B) ) *A- (ABS <B) =>ABS ( 

A))*B 

40 DEF FN DNE(A,B)=(ABS(A-B)<=0.0001) 

50 CLS: PRINT" EIGENVALUES BY POWER METHOD" 

60 INPUT"ENTER THE ORDER OF THE MATRIX" ; N : N1=N:NS=1 

70 DIM A(N,N) ,B(N) ,C(N) ,E(N) ,DF(N,N) ,UR(N,N) ,U(N,N) ,Z(N,N) 

80 PRINT" ENTER THE ROWS OF A" 

90 FOR 1=1 TO N:PRINT"ROW #";I 

100 FOR J=l TO N: INPUT A(I,J):NEXT J, I 

110 FOR 1=1 TO N:UR(1,I)=A(1,I) :NEXT I 

120 PRINT"ENTER INITIAL VECTOR" 

130 FOR 1=1 TO N:INPUT B(I):NEXT I 

140 INPUT"MAXIMUM NUMBER OF ITERATIONS" ; IT 

150 FOR L=l TO N:REM GET ALL EIGENVALUES 

160 FOR K=l TO IT: REM MAX ITERATIONS 

GOSUB 290:REM A( , ) *X (K) ==>M*X (K+l) 

GOSUB 3 90: REM COMPUTE B = EIGENVALUE 

GOSUB 360: REM UPDATE VECTOR 

GOSUB 460: REM PRINT APPROXIMATION 

IF FN DNE(B,Bl) THEN PRINT, "CONVERGED! " :GOTO 240 

B1=B:REM UPDATE LAST EIGENVALUE 
23 NEXT K: PRINT, "DID NOT CONVERGE" : STOP 

240 GOSUB 7 40: REM STORE EIGENVALUE AND CALCULATE EIGENVECTOR 
250 IF L<N THEN GOSUB 500: REM DEFLATE MATRIX 
260 NEXT L 

270 GOSUB 680: REM DISPLAY FINAL RESULTS 
280 END 

290 REM MULTIPLIES A(N X N) BY VECTOR B (N)==> VECTOR C (N) 
300 C=0:FOR I=NS TO N:C(I)=0 
310 FOR J=NS TO N 
320 C{I)=C(I)+A(I,J)*B(J) 
330 NEXT J:C=FN MAX (C,C ( I) ) :NEXT I 

340 FOR I=NS TO N: C ( I) =C ( I) /C : NEXT I : REM SCALE VECTOR 
350 RETURN 

360 REM STUFF VECTOR C ==> B AND Z 

370 FOR I=NS TO N:B ( I) =C ( I) /C (NS) : Z (L> I) =B ( I) :NEXT I 
380 RETURN 

390 REM GET EIGENVALUE 
400 XK=0:XJ=0:FOR I=NS TO N 
410 XK=B(I) *B(I)+XK 
420 XJ=B(I)*C(I)+XJ 
430 NEXT I 

440 B=C*XJ/XK:REM EIGENVALUE APPROXIMATION 
450 RETURN 

460 REM PRINT RESULTS 
470 PRINT"CURRENT APPROXIMATION", 
480 PRINT"EIGENVALUE=";B 
490 RETURN 

500 REM DEFLATE MATRIX A(,) 

510 GOSUB 550: REM BUILD DEFLATION MATRIX DF=Al ( ) *U ( I , ) 
520 GOSUB 610: REM A<== A-DEFLATION MATRIX, N<=N-1 
530 FOR 1=1 TO NS:B(I)=0:NEXT I:B(NS)=1 
540 RETURN 

5 50 REM BUILD DEFLATION MATRIX <== Al ( ) *U ( I , ) 
560 FOR I=NS TO N 
57 FOR J=NS TO N 
580 DF(I,J)=C(I)*A(NS,J) 
590 NEXT J, I 
600 RETURN 

610 REM DEFLATE MATRIX A(N,N) TO A(N-1,N-1) AND 
620 REM DECREASE N<==N-1 
630 FOR I=NS TO N:FOR J=NS TO N 
640 A(I,J)=A(I,J)-DF(I,J) :NEXT JsNEXT I 
650 NS=NS+1 

660 FOR I=NS TO N:UR{NS , I) =A(NS , I) :NEXT I 
67 RETURN 

680 REM DISPLAY FINAL RESULTS 
690 PRINT"RESULTS:" 

700 PRINT" EIGENVALUES: " ; : FOR 1=1 TO N:PRINT E(I);:NEXT I:PRINT 
710 PRINT" EIGENVECTORS ARE THE COLUMNS" 

720 FOR 1=1 TO N:FOR J=l TO N:PRINT USING "###.#*#* ";U(I,J);:N 
EXT J: PRINT: NEXT I 
73 PRINT: RETURN 

7 40 REM STORE EIGENVALUES/VECTORS 
750 E(L)=B:FOR I=NS TO N:C ( I) =B( I) /B(NS) :NEXT I 
760 GOSUB 800: REM COMPUTE EIGENVECTOR 
770 REM STORE EIGENVECTOR IN COLUMNS OF U 
7 80 FOR 1=1 TO N:U(I,L) =B(I) :NEXT I 
7 90 RETURN 

Listing J continues 



that if the matrix is symmetric, all the 
eigenvalues are real. 

The program asks for the size of the 
matrix. This is equal to the number of 
the rows or columns of the matrix. A 
starting estimate for the eigenvector is 
also requested. You might type 1 (enter) 
(enter). . .0 (enter), for example. The 
program then computes the dominant 
eigenvalue and its corresponding 
eigenvector. 

Consider the matrix A: 



■2 

2 



Enter this 2 by 2 symmetric matrix by 
rows. Row 1 is 5 and - 2. Row 2 is - 2 
and 2. The true result is A = 6 and X = [1 
-.5]. 

Power uses the DEF FN capability of 
Disk Basic. FN MAX(A,B) returns the 
value of the greater (in absolute terms) 
of its two arguments. FN MAX( - 10,9) 
returns -10; FN MAX(3,4) returns 
4.00. FN DNE(A,B) returns a logical 
True (- 1) if the absolute value of the 
difference between them is less than 
0.00001 , the convergence criterion. You 
can set your own convergence criterion 
in the program or request it from the 
user, as you see fit. These functions are 
simply inserted within the program lines 
or called as subroutines for Level II 
users without Disk Basic. 

Try Power with the sample problem 
and see how quickly it converges! Pro- 
gram Listing 2 is the same program 
written in Pascal. I tested it with Alcor 
Pascal, but it should run on any stan- 
dard Pascal implementation, since no 
special features are used. Note that in 
Pascal the size of the arrays must be de- 
clared since Pascal does not support dy- 
namic array dimensioning. 

Well, that's an easy way to find the 
largest eigenvalue and eigenvector. As it 
turns out, the initial assumptions are a 
bit too strict. The largest eigenvalue can 
be repeated (there can be two largest ei- 
genvalues) and the eigenvectors do not 
necessarily have to span the vector space 
for the power method to converge. For 
some problems, all you need is the larg- 
est eigenvalue and its eigenvector. 

For other problems, however, you 
must know most or all of the eigen- 
values, eigenvectors, or both. Other 
methods have been developed to solve 
this problem. I will discuss two: defla- 
tion technique and the inverse power 
method. 



332 • 80 Micro, August 1983 



ASSEMBLY LANGUAGE 

PROGRAMMERS! 

Edit Your Programs With Instant Software's 

Advanced nrfwuw^wrti 





Solve your programming problems from ASSEM to ZSIM! 
ASSEM. the 3-pass editor/assembler: 
•USES little RAM 
•PROVIDES a powerful line editor 
•CORRESPONDS with any parallel port printer 
•EXECUTES without modification on 16. 32 or 48K 
systems, with 1-4 disk drives 
ZSIM, the machine code simulator/debugger: 

•EMULATES instructions using simulated registers 
•ASSEMBLES directly to disk, tape or memory 
•TRACES program execution through ROM to debug 
larger, more complicated programs with speed and ac- 
curacy. 
The most advanced debugging system! 

TRS-80» Model I only. Disk, 32K #0365RD SI 19.97 




Debug larger, more complicated programs with this 
simulating, labeling debugger! Any debugger will enhance 
the usefulness of your assembler, but. only ZSIM can make 
your programming tasks easier! ZSIM: 

•RUNS machine code instructions onc-at-a-time at your 

bidding 
•EMULATES the instruction using simulated registers 
•INTERRUPTS the simulations whenever any one of a 

large number of user-specified conditions are met 
•DISPLAYS mnemonics for each instruction, using 

convenient labels 
•LISTS register contents and corresponding memory 
locations 
ZSIM works on ROM as well as RAM since you don't need 
breakpoints to retain execution control (although break- 
point operation is also available). This is the best tool 
available to examine your code in DETAIL!! 
Take a closer look at your assembly code! 

TRS-80 Model I, Tape, 16K, #0376R $29.95 

Instant Software 

•TRS-80 is a trademark of (he 

Radio Shack I livision of Tandy Corporation 



BUSINESS SOFTWARE 

IBM-PC, OSBORNE, NORTHSTAR, 
RADIO SHACK, XEROX, EPSON QX~IOj 

CBW a TRSDOS 

ALL SOFTWARE INCLUDES SOURCE CODE 
PRICE INCLUDES FULL SUPPORT 
= $= TAX/PACK =$ = 

TAX /PACK FOR PRACTITIONERS IS COMPLETE, COORDINATED, 
AND INCLUDES MOST-USED FORMS AND SCHEDULES. PRINTS 
ALL SCHEDULES, NO MASKS, NO DATA FIELD ENTERED MORE 
THAN ONCE. ALL DATA PASSED AUTOMATICALLY BETWEEN 
SCHEDULES AND 1040. FULLY SUPPORTED ALL YEAR. PAR- 
TIAL OR FULL SYSTEM. CAN BE USED FOR SINGLE OR 
MULTIPLE RETURNS. EXTREMELY FLEXIBLE. COMPUTING 
TAXES FOR OVER FIVE YEARS . STILL $730.00 TIL SEPT. 83. 

*$= ALSO' =$= 
MAIL LIST MANAGER 
UTILITY BILLING SYSTEM 
REAL ESTATE APPRAISAL SYSTEM 
PETROLEUM DISTRIBUTORS SYSTEM 



RETAIL INVENTORY a BILLING SYSTEM 




sialytical 
Processes 



•orporation 



635 Main Street or 
P.O. Box 1313 
Montrose, CO, 
81402 or call 

(303)249-1400 
VISA— M.C. 
• 406 



MASTER ELECTRONICS, INC. 

*TRS-80 is a trademark of Tandy 



Interbank 
Card* 




YES!! I want to enhance my TRS-80! Send Me: 

copies of 0365RD @ Si 19.97 

_ copies of 0376R @ 829.95 
Please add 82.50 for postage and handling 
□ VISA D MC DAE □ CHECK/MO 

Name 

Address 

City 



Exp. Date. 



Signature 



Call toll free 1-8CO-258-5473 
Instant Software, Rte. 101 & Elm St., 
Peterborough NH 03458 



338B8F 



Toll FREE: 1-800-531-7323 



TEXAS CALL COLLECT 512/689-5536 

MASTER ELECTRONICS, INC. 

228 SOUTH 7th STREET 

RAYMONDVILLE, TX 78580 
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Lislinn 3 continued 
800 REM 
810 REM 
820 REM 



COMPUTE EIGENVECTOR 

B(I) IS PASSED AS THE COMPUTED EIGENVECTOR 
OF THE DEFLATED MATRIX, AND B(I) IS PASSED 
OUT AS AN EIGENVECTOR OF THE ORIGINAL MATRIX 
UR(I,J) HOLDS THE FIRST ROW OF THE VARIOUS 
DEFLATED MATRICIES 

Z(I,J) HOLDS THE COMPUTED EIGENVECTORS OF THE 
DEFLATED MATRICIES. THIS EMULATES A RECURSIVE 
DEFINITION FOR DETERMINING THE FINAL EIGENVECTOR 
OF THE ORIGINAL MATRIX 
I=L-1 TO 1 STEP -1 



830 REM 

840 REM 

850 REM 

86 REM 

870 REM 

880 REM 

890 REM 

90 FOR 

910 SUM=0:FOR J=l TO N 

920 SUM=SUM+UR(I,J) *B(J 

93 NEXT J: REM SUM HOLDS 

OMPUTED EIGENVECTOR 

940 IF SUM=0 THEN 990 

950 T=(B-E(I) )/SUM 

960 FOR J=l TO N 

970 B(J)=Z(I,J)+T*B(J) 

980 NEXT J 

990 NEXT I 

1000 RETURN 



THE DOT PRODUCT OF THE ROW AND THE C 



22.406875 


7.513724 


4.848950 


1.327046 


1 .096595 




Eigenvectors (columns) 




0.245878 


0.550962 


0.547173 


.341013 


- .469358 


0.302396 


0.709440 


-.312570 


0.116435 


0.542212 


0.453215 


.340179 


0.61 Si 12 


0.019591 


0.544452 


0.577177 


.08341! 


.1 15607 


0.682043 


.425866 


0.556380 


- .265436 


.455494 


-.636071 


- .088989 



I'igure I 



The scheme behind the deflation 
method is to use the power method to 
determine the largest eigenvalue and ei- 
genvector. Then you factor out this so- 
lution from the matrix (deflate the ma- 
trix) and reapply the power method. 

Let A, be the dominant eigenvalue 



and U, be its eigenvector of matrix A. 
Both values were determined by the 
power method. U, is normalized by di- 
viding all its elements by the first, leav- 
ing a vector U, = [1, u 2 /u,, u 3 /u,,. . ., 
u n /u,], or U, = [1, e„ e 2 , . . . , e„]. Let a, 
be the first row of A, a 2 be the second 



row, and so on. We can easily demon- 
strate the following equation: 



AU. 



am a„2 a n3 



a nn | 



a,, + e 2 a, 2 + e, a,, + e„ a ln 
a 2 , + e 2 a„. +- e, a 2J + e n a 2n 



I am + e2 a n2 + ei a n3 + e n a ni 

= A, U, 

which implies 
a, U,=A, 
a, U 2 = A 2 

so we form the matrix 

A - u,-a, 

which zeros out the top row of the 

result: 

|a,, a, 2 a, 3 ... a ln j ■ | 1 | j a,, a, 2 ... a, n | 

iam^a,,;, . . . a, in j |e n | 











= | z 

I / 



The result of the process A -Ul-al 
leaves an n by n matrix with the top row 



Continues on p. 338 



UNT COMPUTERS 



100% RS COMPONENTS, NO FOREIGN DRIVES OR MEMORY— FULL WARRANTY 



8K MODEL 100 $ 649.00 

24K MODEL 100 799.00 

16K MODEL 4 799.00 

64K MODEL 4 1579.00 

80K MODEL 12, 1 DR 2499.00 

80K MODEL 12, 2 DR 3149.00 

128K MODEL 16, 1 DR 3898.00 

128K MODEL 16, 2 DR 4510.00 



DMP 100 PRINTER $ 299.00 

DMP 200 PRINTER 599.00 

DMP 500 PRINTER 1398.00 

DMP 2100 PRINTER 1599.00 

DWP 410 DAISY 1095.00 

DWP DAISY WHEEL II 1599.00 

12 MEG HD MODEL 11/12/16 2769.00 

ALL RS SOFTWARE 20% OFF 



CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS. 

(817) 825-4027 

NOCONA ELECTRONICS • Box 593 • Nocona, TX 76255 
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Program Listing 4 

PROGRAM DEFLATE; 
CONST 

MAX_SIZE = 10; (* maximum size of the matrix *) 
TYPE 

VECTOR = ARRAY(.1..MAX_SIZE.) OF REAL; 
MATRIX = ARRAY( .1. .MAX_SIZE.) OF VECTOR; 
VAR 

A,U,UR,Z : MATRIX; 
B,C,E : VECTOR; 

SIZE,MAX_IT,LOOPS,L,J,NS,I : INTEGER; 
EIGENVALUE, LAST, SCALE : REAL; 
PROCEDURE INITIALIZE(VAR A,U,UR,Z: MATRIX); 
VAR 

I, J : INTEGER; 
BEGIN 

FOR I:= 1 TO MAX_SIZE DO 
FOR J:= 1 TO MAX_SIZE DO 
BEGIN 

A(.I,J.) :=0; 
U(.I,J.) :=0; 
UR(.I,J.) s=0; 
Z(.I,J.) :=0; 
END; * 
END; 
FUNCTION DONE(A,B: REAL): BOOLEAN; 
BEGIN 

DONE := (ABS(A-B)<=0. 00001) 
END; 
PROCEDURE INPUT_MATRIX(VAR A,UR: MATRIX; VAR S: INTEGER); 
VAR 

I, J : INTEGER; 
BEGIN 

WRITE('ENTER THE SIZE OF THE MATRIX: '); 
READLN(S) ; 
FOR I:- 1 TO S DO 
BEGIN 

WRITELN( 'ENTER ROW NUMBER ' , I : 4 , ' '); 
FOR J: = 1 TO S DO 

READLN(A(.I,J.)) ; 
END; 

UR(.1.):= A(.l.); 

END; 
PROCEDURE INPUT_VECTOR(VAR V:VECTOR; S:INTEGER); 

VAR 

I : INTEGER; 

BEGIN 

WRITELN( 'Enter initial guess of eigenvector'); 
FOR I: = 1 TO S DO 

BEGIN 

WRITE ( 'ENTER ELEMENT' ,1:4,' '); 
READLN(V( .1.) ) ; 
END; 
END; 
PROCEDURE MULT_A_X_B(VAR A: MATRIX; VAR B,C: VECTOR; 
VAR SCALE: REAL; SIZE,NS: INTEGER) ; 
VAR 

I, J : INTEGER; 
FUNCTION MAX(A,B: REAL): REAL; 
BEGIN 

IF ABS{A) >ABS(B) THEN 
MAX := A 
FOR I:= 1 TO NS-1 DO 

B(.I.):= 0; 
B(.NS.) := 1; 
END; (* END REDUCE *) 
PROCEDURE PRINT (EIGENVALUE: REAL; VAR EIGENVECTOR: VECTOR); 
VAR 

I : INTEGER; 
BEGIN 

WRITELN( 'Current approximation") ; 
WRITELN( 'Eigenvalue =■ EIGENVALUE: 8: 5) ; 
WRITELN( 'Eigenvector: '); 
FOR I:= 1 TO SIZE DO 

WRITE ( EIGENVECTOR (. I.) :16:5) ; 
WRITELN; 
END; (* END PRINT *) 
PROCEDURE PRINT_RESULTS( EIGENVALUES: VECTOR; 
VAR EIGENMATRIX: MATRIX; SIZE: INTEGER) ; 
VAR 

I, J : INTEGER; 
BEGIN 



Listing 4 continues 




TRS m IBM 

FILE TRANSFER PROGRAM 

Transfer your TRS Model I, II, III, or 16 
files to the IBM Personal Computer. 

• No more retyping 

• No more wasted rime 

• Fast transfer - baud rates of 1 1 0-9600 
» File concatenation supported 

• Send files of any length 

• Make $$$ - the IBM PC is new and ' 
software is scarce - take your "new" 
IBM programs and seil them for $$$. 

• Transfer any file - ASCII, embedded 
control codes, compressed binary 
formats, encrypted data bases, high 
level language programs (Basic, 
Fortran, Cobol, Pascal, etc), elec- 
tronic spread sheet data, word pro- 
cessor files - it all gets transferred - 
nothing is added - nothing is lost! 

The File Transfer Program comes 
complete with all instructions, hard- 
ware and software (for both TRS 

and IBM) 

FILL , vi _ r H [ ■ I i J vcffe 
(Works with IBM DOS 1. 1 or 2.0) 

$89.95 

Plus $1 .60 shipping & handling. 

State TRS model when ordering, 
(CA residents add 6.5% State sales tax) 

MC/VISA/COD/CHECK OK | Vc 



Phone orders call 

(408) 988-0164 

■ PERSONAL 

■ ■COMPUTER 

■ ■■PRODUCTS 

1400 Coleman Avenue, Suite C-1 8, 
Santa Clara, California 95050 

IBM is a registered trademark of International Business 
Machines Corp. 



^See List of Advertisers on Paye 323 
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SLICK PAGES? NO! 
GREAT DEALS? YES! 




.Computer Shopper pages aren't slick because they 
were designed tor one purpose: to put buyers in touch 
with sellers at the lowest possible cost. This resulted 
in bargains on new and used equipment and software. 

Individuals nationwide are able to list their pre-, 
owned items tor only a tew dollars. This created hund- 
reds ot classified ads in over 100 big 11x14 pages. 

And to make sure there were enough buyers for 
advertisers, the subscription price was set low, too! 

So strike your first deal by taking advantage o< this 
special trial subscription ofte-. today 1 6 months. $6 or 
12 months. $10. Money back guarantee. MasterCard 
and VISA accepted 

COmPUTSR SHDPPBR 

P.O. Box F583«Titusville, FL 32780 

305-269-3211 "' 
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an i on 

Foreign Computer 
Stores /Magazine Dealers 

You have a large technical audience that 
speaks English and is in need of the kind of 
microcomputer information the Wayne 
Green Publications group provides. 

Provide your audience with the maga- 
zines they need and make money at the 
same time. For details on selling Micro - 
computing , 80 Micro , Desktop Computing , 
inCider , HOT CoCo , Instant Software and 
Wayne Green Books contact : 

Sandra Joseph 

World Wide Media 

386 Park Ave. South 

New York, N.Y. 10016 

Phone— (212) 686-1520 

Telex— 620430 



micro 

Single Back Issues 




January 1980 $5.00 

February to June 1980 3.00 

Single back issue 
July 1980 to May 1983 3.50 

Single back issue 
June 1983 on 4.50 

Add $1.00 per magazine for shipping. 

10 or more back issues 

add $7.50 per order for shipping. 

Back issues»Attn. Mail Order 
80 Pine St.* Peterborough, NH 03458 



Lining J continued 

WRITELN ( 'Final results'); 
WRITELN ( • Eigenvalues * ) ; 
FOR I:= 1 TO SIZE DO 
WRITE ( EIGENVALUES ( . I.) :8:5) ; 
WRITELN; 

WRITELN( ' Eigenvectors are the columns: '); 
FOR I:= 1 TO SIZE DO 
BEGIN 

FOR J:= 1 TO SIZE DO 

WRITE (EIGENMATRIX( .I,J.) :16:5) ; 
WRITELN; 
END; 
END; (* END PRINT_RESULTS *) 
BEGIN (* MAIN PROGRAM STARTS HERE *) 

WRITELN( 'Eigenvalues/vectors by Deflation-Power Method'); 
WRITELN ('by Bruce Powel Douglass'); 
WRITELN ( 'A-Priori Software, 1983'); 
WRITELN( 'Initializing ...'); 
INITIALIZER, U,UR,Z) ; 
INPUT_MATRIX(A,UR,SIZE) ; 
INPUT_VECTOR(B,SIZE) ; 

WRITE ('Enter maximum number of iterations: '); 
READLN(MAX_IT) ; 
NS:= 1; 

FOR L:= 1 TO SIZE DO t 

BEGIN 

LOOPS := 0; 
LAST := 0; 
EIGENVALUE := 1; 

WHILE ( LOOPS <=MAX_IT) AND NOT (DONE (LAST, EIGENVALUE) ) DO 
BEGIN 

LAST := EIGENVALUE; 
MULT_A_X_B(A,B,C, SCALE, SI ZE,NS) ; 
GET_EIGEN (B,C,SIZE,NS, EIGENVALUE , SCALE) ; 
(* UPDATE EIGENVECTOR *) 
FOR I:=NS TO SIZE DO 

B(.I.):= C(.I.)/C(.NS.); 
PRINT(EIGENVALUE,B) ; 
LOOPS := LOOPS + 1; 
END; 
IF LOOPS >MAX_IT THEN 

WRITELN ('DID NOT CONVERGE! 1 ) 
ELSE 

WRITELN ( ' CONVERGED I ' ) ; 
Z(.L.) :=B; (* STORE EIGENVECTOR OF SUBMATRIX *) 
UPDATE_VECTOR ( L , NS , E IGENVALUE , C , E , UR , Z ) ; 
IF L<SIZE THEN 

REDUCE(A,NS,SIZE,C) ; 
END; (* END FOR L *) 
PRINT_RESULTS(E,U,SIZE) ; 



END. 



ELSE 

MAX := B 

END; (* end MAX *) 
BEGIN 

SCALE := 0; 
FOR I:= NS TO SIZE DO 
BEGIN 

C(.I.) := 0; 

FOR J:= NS TO SIZE DO 

C(.I.) := C(.I.) + A(.I,J.)*B(.J.) ; 
SCALE := MAX (SCALE, C(. I.) ) ; 
END; (* END FOR I *) 
FOR I:= NS TO SIZE DO 
C(.I.) := C(. I.) /SCALE 
END; (* END MULT_A_X_B *) 
PROCEDURE GET_EIGEN(VAR B,C:VECTOR; SIZE,NS: INTEGER; 
VAR EIGENVALUE, SCALE: REAL); 
VAR 



X,Y : REAL; 




I : INTEGER; 




BEGIN 




X := 0; Y := 0; 




FOR I:= NS TO SIZE DO 




BEGIN 




X := B(.I.) *B(.I.) + 


X; 


Y : = C(.I.) *B(.I.) + 


Y; 


END; 




EIGENVALUE := SCALE*Y/X; 




END; (* END GET EIGEN *) 




PROCEDURE UPDATE VECTOR (L,NS: 


INTEGER; VAR EIGEN: REAL; 


VAR C,E: VECTOR; VAR UR,Z 


MATRIX) ; 


VAR 





Listing 4 continues 
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Because it's there. And it'll be 
there until you have Easy Calc, 
Business Analysis and Master 
Plot. . . three essential addi- 
tions to the modern profession- 
al's survival gear. Why spend 
endless hours forecasting, cal- 
culating and graph-plotting 
when Instant Software's busi- 
ness programs can do it for you? 
At a fraction of the time. And at 
a fraction of what you'd expect 
to pay. 



MASTER PLOT. 



BUSINESS ANALYSIS —— m^m 

Get forecasting capabilities previously 
available only on large computers. This 
flexible, professional time series analy- 
sis and forecasting package lets you: 
•Forecast and analyze sales. 
•Perform product and business 

planning. 
•Analyze stock, trends and growth 

rates. 
•Research business cycles. 
•Forecast spending and energy con- 
sumption. 
Plus much more! Analyze and forecast 
like a pro with Business Analysis. 
Requires: TRS-80 Model I and III 32K 
Tape #O140R $75.00 
Disk #0 1 52 RD $99.95 



Get your point across graphically with 
this professional graph-plotting and 
printing package. 

•Enter graph data from keyboard 
equations or from your BASIC 
programs. 
•Plot up to 10 sets of data on the 

same graph. 
•Create your own plotting symbols. 
•Choose any number of horizontal 

and vertical lines. 
•Select your own number of inter- 
polated points between your data 
points. 
•Print graphs any size from 1 x 1 to 
7 x 24 inches. 
Plus much more! Make your charts and 
graphs the easy wav . . . with Master 
Plot. 
Requires: TRS-80* Model I only 

48K Disk Epson * * MX-80 
printer with Graphtrax 
#0435RD $149.95 



EASY CALC ■■■— mmm* 
Turn your TRS-80 into an electronic- 
spreadsheet! 

•Write numeric data into simple 
rows and columns on your screen. 
•Add, subtract, multiply, divide or 
exponentiate single values or rows 
and columns. 
•Calculate percentages and sum- 
mations of rows or columns. 
•Enter and save entire series of 

calculations. 
•Handles up to 600 figures. 
Written for non-computerists. Easy to 
understand instructions. Easy to use. 
Requires: TRS-80 Disk 48K 

Model I: #0269RD $49.95 
Model III: #0369RD $49.95 



"Epson is a trademark of Epson America. • TRS-80 is a trademark of the Radio Shack Division of Tandy Corp. 



I - " 



YES! I want to conquer that mountain! 

Send me: #0269RD @ $49.95 #0369RD @ 849.95 

#0435RO @ 8149.95 #0152RD @ $99.95 #0140R @ 875.00 



nCheck/MO 
_TAmer. Ex. 
C MC 
LjVISA 



NAME 

ADDRESS 

CITY 

CARD# _ 



STATE. 



ZIP.. 



INTERBANK^ 

Add $2.50 postage and handling SIGNATURE _ 



EXP. DATE_ 
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- 1-800-258-5473 

Rte. 101 & Elm Street 
Peterborough, NH 03458 
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Listing 4 continued 



I, J : INTEGER; 
SUM,T: REAL; 
BEGIN 

E(.L.) := EIGEN; 

FOR I:= NS TO SIZE DO 

C(.I.) := B(.I.)/B(.NS. 
FOR I:= L-l DOWNTO 1 DO 



); 

1 TO SIZE DO 
:= SUM + UR(.I,J.) *B( .J.) ; 



BEGIN 

SUM :-• I 
FOR J:= 
SUM : 
IF SUMO0 THEN 
BEGIN 

T := (EIGEN-E(.L) )/SUM; 
FOR J:= 1 TO SIZE DO 

B(.J.):= Z(.I,J.)+T*B(.J.) ; 
END (* END IF *) 

END; (* END FOR I *) 
FOR I:= 1 TO SIZE DO 
U(.I,L.) := B(.I.) ; 
END; (* END UPDATE_VECTOR *) 

PROCEDURE REDUCE(VAR A:MATRIX; VAR NS: INTEGER; 
SIZE: INTEGER; VAR C : VECTOR) ; 
VAR 

I, J : INTEGER; 
DF : MATRIX; 
BEGIN 

FOR I:= NS TO SIZE DO 
FOR J:= NS TO SIZE DO 

DF(.I f J.):= C(.I.)*A(.HS,J.) ; 
FOR I:= NS TO SIZE DO 
FOR J:= NS TO SIZE DO 

A(.I,J.):= A(.I,J.)-DF(.I,J.); 
NS := NS + If 
FOR I:= NS TO SIZE DO 

UR(.NS,I.) := A(.NS,I.) ; 



22.4069 

l.(XXX) 

1.2299 
1.8425 
2.346- 1 
2.2620 



0.245878 

0.302397 

0.45301 

0.576998 

0.556187 



.(XXX)2 

0.00000 
.00000 
0.00020 
0.00018 
0.00019 



Eigenvalues 
7.51783 4.84594 1.32684 

Eigenvectors (columns) 



1 .0000 

1.2875 

-.6173 

-.1514 

-.4818 



1.0000 

- .5792 
1.1378 

- .2108 
-.8335 



1.0000 
-.3443 
- .0552 

-2.0012 

1.8675 



Eigenvectors (columns) 
0.550962 0.547173 -.341013 
0.709353 -.316931 0.117402 

,3401 0.622593 0.018811 

-.083417 -.115339 0.682444 
- .265456 - .465066 - .636844 



Eigenvalue errors 
.00411 0.00301 
Eigenvector errors 



0.00000 
0.00009 
-.00008 
0.00001 
0.00002 



0.00000 
0.00436 
.00448 
- .00027 
0.00057 



0.00021 

0.00000 
- .00097 
0.00078 
.00040 
0.00077 



- 1 .09688 

1.0000 
-1.1582 

-1.1585 
0.9081 
0.1911 



- .469358 

0.543634 

0.543765 

.426239 

.089681 



0.00029 

0.00000 
.00142 
0.00069 
0.0O037 
0.00069 



Fig. 2. Computed Eigenpairs from 5 x5 matrix 
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all zeros. After a little algebra, if A is an 
eigenvalue of the smaller (n-1) by 
(n- 1) submatrix B, then it is also an 
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eigenvalue of A, the original matrix. B 
is a deflated matrix to which you can 
now apply the power method to find the 



next most dominant eigenvalue. 

Producing the eigenvectors is a little 
more difficult. The power method ap- 
plied to matrix B produces an eigen- 
value X 2 and corresponding eigenvector 
V. Because V has only n - 1 elements, 
put a zero in the first position, so that it 
has a total of n elements. However, V is 
not, in general, an eigenvector of A; it is 
a linear combination of the most domi- 
nant eigenvector and the next most 
dominant eigenvector. In fact, we can 
show that 

Ui = U,-tV 

where 

t = (A,-A 2 )/(a,-V) 

(U; and U 2 are the most dominant and 
next most dominant eigenvectors). 

If you compute a third submatrix, C, 
then the power method produces A 3 (an 
eigenvalue of A) and V (a linear combi- 
nation of U,, U 2 , and U,)- You can iter- 
atively proceed until you've determined 
all eigenvalues and vectors. The Basic 
code in- Program Listing 3 does this, as 
does the Pascal in Program Listing 4. 

The eigenvectors are computed along 
with the eigenvalues; as in the straight 
power method. However, to come up 
with an eigenvector to the original 
matrix, you must recursively compute 
the eigenvectors by determining the vec- 
tor corresponding to the current 
eigenvector of the next smallest sub- 
matrix that is an eigenvector of the next 
largest submatrix, until you are back to 
your original matrix. Easier to compute 
than to say! 

Using the deflation programs, you 
can compute the eigenvalues and their 
corresponding eigenvectors from real 
matrices. If the eigenvalues are com- 
plex, the programs have a lot of trouble. 
But if they are all real, as is the case with 
a symmetric matrix, the program finds 
reasonable answers. 

For example, run the deflation pro- 
gram for the following matrix: 



5 4 3 2 1 

4 6 4 3 

3 7 6 5 

2 4 6 8 7 

13 5 7 9 



The actual answers are in Fig. 1. The 
first row holds the eigenvalues in the 

order they are computed, from largest 
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to smallest. The column vectors below 
each eigenvalue are the corresponding 
eigenvectors. 

Figure 2 shows the results returned 
from the deflation program. The eigen- 
vectors produced by the deflation pro- 
grams are scaled with respect to the first 
element. Let's "unscale" them, and 
compare the computed results with the 
actual results (see Fig. 3). 

Figure 4 shows the error associated 
with the computed eigenvalues and ei- 
genvectors. The eigenvectors tend to be 
more accurate the earlier they are com- 
puted. The same is also true for the 
eigenvectors, but the eigenvalues are 
normally more accurate than the eigen- 
vectors. (1 determined the error by sub- 
tracting the computed values from the 
actual values.) 

For larger matrices, the deflation 
method is limited by accumulated 
round-off error. Since numerical error 
occurs during deflation, each deflation 
matrix is in error. This means the coeffi- 
cients of the deflated matrix are slightly 
inaccurate. 

The next deflated matrix includes 



local error produced by deflation, and 
the error associated with the previous 
deflation step. This is called accumulat- 
ed round-off error. It means there is an 
upper limit on the number of deflations 
you can do and still come up with a 
reasonable answer. Certainly, the 10th 
eigenvalue is suspect. The error accu- 
mulates at different rates depending on 
the nature of the matrix. If the matrix is 
ill-conditioned, error accumulates more 
rapidly. 

One way out of this mess is to use the 
deflation method to obtain initial esti- 
mates of the eigenvalues and eigenvec- 
tors, and then apply the inverse power 
method to get better estimates of the 
true answers. 

The inverse power method works just 
like the power method. You might re- 
call that the power method finds the 
largest eigenvalue and its corresponding 
eigenvector. It is easy to prove that the 
smallest eigenvalue of a given matrix is 
the reciprocal of the matrix's largest in- 
verse. After inverting the matrix, you 
can find the smallest eigenvalue of the 
original matrix by applying the power 



method to it. 

With a little trickery, you can use the 
inverse power method to find any eigen- 
value of the original matrix, provided 
that you have a decent estimate of it 
(here's where the deflation method 
comes in). 

Let a be the estimate for the ith eigen- 
value (it needn't be either the largest or 
the smallest). Then, if A is the true value 
of the eigenvalue in question, a A 
should be small. Since the inverse power 
method finds the smallest eigenvalue of 
the original matrix (or the largest of its 
inverse), then I /(a- A) is the largest 
eigenvalue of the inverse. Thus, apply- 
ing the power method to the inverse of 
the matrix shifted by a zeros in on the 
eigenvalue desired. Rather than invert 
the matrix A, you would invert the 
matrix (A - al), where I is the identity 
matrix. The matrix A al is the matrix 
A in which the diagonal elements 
(A(l,l), A(2,2), etc.) all have a sub- 
tracted. Then you can invert this 
matrix, and apply the power method to 
get a better approximation of the eigen- 
value. ■ 



CONVERT YOUR TRS-80 



lOI 



III II 



DEVELOPMENT 




Now you can develop Z-80 based, 
stand-alone devices such as games 
robots, instruments and peripheral 
controllers, by using your TRS-80 as a 
development system. The DEVELOP- 
MAlE ph jgs into the expansion con- 
nector of your TRS-80 and adds 
PROM PROGRAMMING and IN- 
CIRCUIT-EMULATION capabilities to 
your system (with or without expan- 
sion interface) 



■See List of Advertisers on Page 323 



Complete instructions and sample 
schematics are included to help you 
design your own simple stand-alone 
microcomputer systems. THESE 
SYSTEMS CAN BE AS SIMPLE AS 
FOUR ICs: one TTL circuit for clock 
and reset, a Z-80, an EPROM, and one 
peripheral interface chip 

When the In-Circuit-Emulation 
cable is plugged into the Z-80 socket 
of your stand-alone system, the sys- 
tem becomes a part of your TRS-80: 
You can use the full power of your 
editor/assembler's debug and trace 
program to check out both the hard- 
ware and the software Simple test 
loops can be used to check out the 
hardware, then the system program 
can be run to debug the logic of your 
stand-alone device. 

Since the program is kept in TRS-80 
RAM, changes can be made quickly 
and easily. When your stand-alone 
device works as desired, you use the 
Developmate's PROM PROGRAMMER 
to copy the program into a PROM. 
With this PROM, and a Z-80 in place of 
the emulation cable, your stand-alone 
device will work by itself. 

fl i m 1-m.M — — ■ — — w— — — 



The DEVELOPMATE is extremely 
compact: Both the PROM programmer 
and the In-Circuit-Emulator are in one 
small plastic box only 3.2" x 5.4" A 
line-plug mounted power supply is 
included. The PROM programmer has 
a "personality module" which defines 
the voltages and connections of the 
PROM so that future devices can be 
accommodated However, the system 
comes with a "universal" personality 
module which handles 2758, 2508 (8K), 
2716, 2516 (16K), 2532 (32K). as well 
as the new electrically alterable 2816 
and 48016 (16K EEPROMs) 

The COMPLETE DEVELOPMATE 
81, for Model I, with software, power 
supply, emulation cable, TRS-80 
cable, and "universal" personality 
module $329 

DEVELOPMATE 83. Model III version, 

same as above $329 

PM2 PERSONALITY MODULE for 
2732A EPROM $15 

PM3 PERSONALITY MODULE for 
2764 EPROM $15 

ORION 

INSTRUMENTS ^si 

172 Otis Avenue, Dept. M, Woodside, 

CA 94062 

(415) 851-1172 

Master Charge and Visa phone orders accepted 

California residents please add 6':% sales tax. 
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RELOAD BO 



by Amee Eisenberg 



The bugbears of Load 80 are Assem- 
bly-language programs. You 
shouldn't be intimidated by them, 
though— it's easy to run a program 
labelled /SRC. 

To run an Assembly-language pro- 
gram, you must own an editor/assem- 
bler. Editor/assemblers are supplied on 
disk or on tape; buy one that runs on 
your model TRS-80. If you never use 
disks, a tape editor/assembler is what 
you want. If you always use disks, get a 
disk editor/assembler. If you usually 
use disks but buy Load 80 on a cassette, 
you need a disk editor/assembler that 
supports tape I/O. 

Load 80 Cassette: 
Cassette Editor/ Assembler 

Following the directions in your 
editor/assembler manual, load the 
editor/assembler. 

Use your ears to find the beginning of 
the program you wish to load. 

Enter the Load command — it should 
be some variation of L file <enter>. 
Your editor/assembler manual has the 
correct syntax. 

Play the Load 80 cassette. A good 
load displays flashing stars in the upper 
right corner of the screen. 

Check the listing. Most editor/as- 
semblers use the command P#:* to 
PEEK at the buffer from beginning (#) 
to end (*). Check your editor/assem- 
bler's manual for proper syntax. The 
listing should scroll across the screen. 

Assemble the listing using the A com- 
mand. At the Ready Cassette prompt, 
place a blank cassette in your tape 
recorder, set it to record, and press the 



the 
bugbea 



enter key. The computer then writes the 
assembled code to your tape. 

Use the tape of the assembled code as 
a system tape. (See your computer man- 
ual if you have questions about how to 
do this.) Read the 80 Micro article ac- 
companying the Load 80 program to 
find out more about the program. 

Load 80 Cassette: Radio Shack 
Disk Editor/ Assembler 

Boot the Editor/ Assembler disk. The 
Editor/ Assembler manual's appendix 
has a section on the TPSRC utility. 
Read it. 

Use your ears to find the beginning of 
the program you wish to enter. 

At the DOS prompt, type TPSRC 
and press enter. The tape source-code 
utility is engaged. It offers two options; 
you wish to engage option 1 — read a 
source tape. 

Play the Load 80 cassette. The file 
name appears at the lower left corner of 
the screen. When the tape is finished, 
the TPSRC utility automatically saves 
the program to disk and creates a new 
file on your disk named file/SRC. 

Use the A command to assemble the 
listing. This creates a file on your disk 
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Article 



Muddy Pig Simulator 
Attack of the TRS-80 
Attack of the TRS-80 
Micro-Melodies 
Armageddon 



File Spec 

COPYRGHT/BAS 

PIGS/BAS 

TRS1/BAS 

TRS2/BAS 

MELODY/BAS 

ARMAGEDN/BAS 



Lost On the Great Barrier Reef BARRIER/BAS 



Light Cycle 
Collegiate Capers 
Strip Blackjack 



LGHTCYCL/BAS 

PCHASE/BAS 

STRIPBJ/BAS 



Comments 

Tape Only 

None 
None 
None 
None 
None 
None 



None 
None 
None 



named file/CMD. This file runs from 
the DOS prompt just like any other 
command file. 

Read the 80 Micro article to find out 
more about the program. 

Please note: The Radio Shack Disk 
Editor/ Assembler runs Load 80 Cas- 
sette source code. 

Load 80 Cassette: Disk 

Editor/ Assembler (Not Radio Shack) 

Read your editor/assembler manual 
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Disk 

The Alternate Source 
ALE Editor 

Models I and 111 

No Tape I/O 
Apparat Inc. 
EDTASM 

NEWDOS80 

No Tape I/O 
Computer Applications Unlimited 
M-ZAL 

Models I and III 

32K RAM, Two-Disk System 

Allows Tape I/O 
Instant Software 
Assem/ZSIM 

Model I 

Allows Tape I/O 

Misosys 
EDAS-IV 

Models I and III with Disk Drives 

Allows Tape I/O 
Mumford Micro Systems 
Instant Assembler (disk version) 

Models I and 111 

Radio Shack 

Series 1, Editor/Assembler — Disk 

Models I and III 

Allows Tape I/O 

Needs patch to run Load 80 disks 

(see Reload 80, April 1983, p. 404) 

Tape 

Computer Applications Unlimited 
T-ZAL 

Model III only 
Mumford Micro Systems 
Instant Assembler (tape version) 

Models I and III 
Radio Shack 

Series 1 , Editor/ Assembler— 
Cassette 

Models I and III 

A Sampling of Editor/ Assemblers 
(in alphabetical order) 
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to find out how its tape source code 
utility works. Follow the directions. 

Then follow the instructions above 
for the Radio Shack Disk Editor/ 
Assembler. 

Load 80 Disk: Disk Editor/ Assembler 
(Not Radio Shack) 

Place your editor/assembler disk in 
one drive and your Load 80 disk in 
another. Load your editor/assembler. 
(See your editor/assembler's manual if 
you're uncertain about this procedure.) 

Use the L (Load) command to load 
the selected source code program into 
the editor/assembler. 

Use the P command to check the list- 
ing you've just loaded. Most editor/as- 
semblers use P#:* to PEEK at the buff- 
er from beginning (#) to end (*). 



"Read the 80 Micro 

article to find out more 

about the program. " 



Assemble the listing by using the A 
command. This will create a new file on 
your disk named file/CMD. 

The assembled program runs from 
the disk operating system (DOS) 
prompt according to the author's in- 
structions in 80 Micro. 

Load 80 Disk: Radio Shack 
Disk Editor/ Assembler 

To run Load 80 disk source code pro- 
grams with a Radio Shack Editor/ As- 
sembler, use a conversion program. 
(We published one in Reload 80, April 
1983, p. 404. It is available on the Load 
80 tape or disk, or you can type it in 
from the listing.) 

The Load 80-to-Radio Shack 
(L80TORS/BAS) program is in Basic 
and allows single-drive conversions. 
Run it as you run any Basic program 
and convert your selected source-code 
program. 

Place your Editor/ Assembler disk in 
one drive and the disk with the selected 
source-code program in the other. 

Follow the directions given above to 
run a Load 80 disk source-code pro- 
gram with a disk Editor/ Assembler. 

Please note: You must convert Load 
80 disk source-code programs to Radio 
Shack format to assemble with a Radio 
Shack disk Editor/ Assembler. ■ 
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Programs for Business & Home — $ 39 95 ^ 



•- Model I (Tape) 

For the Radio Shack Model iii (Disk) Computers with 48K 



Executive Calculator Software Packa ge 

Over 150 user proven programs integrated into a comprehensive software system 

Includes Programs For: 

• Over 150 user-proven programs 

• Fully illustrated users guide 

• TrsDos speed up utility (Disk only) 

» Programs use sound and graphics 

• Automatic update privileges 
Order with Confidence by Phone or Mail 

Visa / MasterCard welcome 



Graphs & Charts 

• Real Estate Analysis 

• Loans & Investments 

• Pricing & Profits 

• Plus many others 1 !! 

MCSsOFTWARE 



809 PARKWAY, CONWAY. AR 72032, 501 327 4443 



-393 



sSee List of Advertisers on Page 323 
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MODEL 4 DRIVE 




MODEL 4 STUFF 
MODEL 4 COMPUTERS 



No charge for shipping on any Compuklt Computer* 

B4R one tingle headed drive 

64K two single headed drives 

64K two double headed dri ves. ............... ..._ 

I28K systems add only ............... 

MODEL 4 64K UPGRADE $62.05 

prime grade pre-tested RAM with Instructions 

MODEL 4 RS232 KIT $69.95 

completed and tested ready for Installation 

Model I, III, 4 green phosphor 
antiglare CRT Kit $89. 

a complete new CRT. not a filter 

MODEL 4 DISK DRIVE UPGRADE 



All of the Compuklt Model 4 Disk Drive Upgrade Kits 
contain these features that other companies usually 
do not provide. Switching power supplies * Tandon 
disk drives * B4K of Model 4 RAM * Sound * and an Easy 
to Use Installation Manual. Requires only a 
screwdriver (no soldering) The no drive upgrade 

art „,.„... ,. ....... — ...,S299. 

One drive upgrade kit . .... ..... S499. 

Two drive upgrade kit............ $699. 

Two double headed drive kit ............. 899. 

MODEL III to MODEL 4 
UPGRADE $750. 

Converts your Model III Into a Model 4 (except for 
Cabinet and disk drives). Includes new keyboard. 84K 
RAM, Sound, and free Installation (required). Ship us 
any working Modal III, even it it's not ail factory 
equipment, and get back a Model 4. in your case. 

MODEL 4 SOUND 
$29.90 

No soldering required. Include* instructions 



N»w low prices/ 
$1496. 

$1*96. 

•«t.s>o 



MODEL III COMPUTERS 

Limited production Model Ill's please use our toll free 
number to call for availability at these prices (1 20day 
Compukit warranty on all of these units) 

48K no drive Model III « 799. 

One drive Model III »' 195. 

Two drive Model 111.......... ...™..S1395. 

Two double headed drive Model IH.. — $1595. 

MODEL III DISK DRIVE UPGRADE 
KITS 

All of the Compukit Model 3 Disk Drive Upgrade Kits 
contain these features that other companies usually 
do not provide. Switching power supplies * Tandon 
disk drives * 32K of Model III RAM * Compuklt Doctor * 
and an Easy to Use installation Manual. Requires only a 
screwdriver (no soldering). 

The no drive upgrade — .._. . S27S. 

One drive upgrade kit _ $478. 

Two drive upgrade kit 1678. 

Two double headed drive kit ...» — 8878. 

MODEL III RS232 Kit $69.95 

completed and tested ready for installation 

TANDON DISK DRIVES 

p Perfect for replacement er add on drives for any 5" 
drive system including Model I, III, 4, COCO. IBM PC, 
LNW, MAX80. and many mora. 

Single Sided 40 track TM10Q-1 S188. 

Double Sided 40 track TMI00-2 ......8299. 

Single case with extender .459.95. 

Dual Case with extenders 889.95. 

Two drive cable .824.95. 

ask for a free copy of Doctor Robert's drive Manual 
with the purchase of any Compukit disk drive or Kit 

COLOR COMPUTER DRIVE 

Complete drive including case and controller card 
•449.DD 

COMPUKIT DOCTOR S29.95 
Disk based diagnostic software package for the Model 
I, III. and soon the Model 4 



COMPUKIT 



ordering Information \ 

We accept Visa, Mastercard, Wire Transfers, and Certified Checks for quickest 
shipping. Orders received on personal checks are held for clearance. 



1-713-480-6000 order line 1-800-231-9971 
16206D Hickory Knoll , Houston , Texas 77568 
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COMPLETE MODEL III HARD 
DRIVE SYSTEM $1295. Ill 



THIS IS NO JOKE. We have a large quantity 
contract to bring you the highest quality 
system at the lowest price available. The 
combination of Tandon Hard Drives and 
Western Digital's error checking and 
correcting drive controller board create 
the backbone of the Hard Drive Specialist 
System. The balance of the interfacing is by 
(the) oldest engineering teams in the Model 
III/ Hard Drive business. Unlike other hard 
drive companies, we rate a hard drive 
AFTER format (a 15 Meg drive is actually 
19.1 MB before format). These units are 
fully assembled and tested ready to plug 
Into your computer, all that you need to add 
is software. Power required 105-130 volts 
ACBOhz 

Dimensions 8-1/4"x6-1/2"xT3" (jiist a 
little bigger than two regular disk drives) 

Model III/ 4 HARD DRIVE 
SYSTEMS 

5 MEG... $1295. 

1 MEG ...S 1 495. 

15 MEG ...$1695. 

Model 1/ LNW/ MAX80 
SYSTEMS 

5 M EG $ 1 345. 

1 MEG ......$ 1 545. 

15 MEG $1745. 

Modelll, 12, 16 SYSTEMS 

5 M EG $1 595. 

10 MEG $1795. 

15 MEG $1995. 



APPLE HARD DRIVE SYSTEMS 

(note spec* differ from above unite), 

5 MEG ............ i ...$1395. 

10 MEG. $1595. 

15 MEG... $1795. 

IBM HARD DRIVE SYSTEMS 

(notn spec* differ from above urtBjS&cF 

5 MEG $1395. 

10 MEG $1595. 

15 MEG $1795. 

SECONDARY DRIVES 
(Ready to plug into any HDS 
system for added storage 
capacity) 

5 MEG .$ 895. 

10 MEG $1095. 

15 MEG $1295. 

HARD DRIVE PATCHES 
Hard drive patches are 
available for DCSPlSE 
NEWDOS, and LOOS, foil!! 
Model 1,111,4 priced at $50. 
each. U i 1 4 mUH iif tffi 






MARD DRIVE SPECIALIST 






a division of Compukit 



1'7 13-480-6000 order line 1-800-231-6671 
16206D Hickory Knoll , Houston , Texas 77565 <455 
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NEW PRODUCTS 



200-Megabyte Bank 

The Bank, Corvus Sys- 
tems' new microcomputer 
mass memory device, stores 
up to 200 megabytes of data 
on a removable tape car- 
tridge. The unit costs $2,195, 
and is available for delivery 
in September. 

Computers perceive The 
Bank as a Winchester disk 
drive, which it resembles in 
size and price. However, it 
stores data on a continuous 
loop of 100-track magnetic 
tape enclosed in a 5 '/^-inch- 
square cartridge. 

Three cartridge sizes are 
planned— 6t Mb, ltf Mb, 
and 2H Mb, the last with a 
capacity equivalent to 4ft 
single -sided, double-density 
floppy disks. The Bank is 
random-access; individual 
files are addressed and load- 
ed either onto a disk or into 
the computer itself. 

According to Corvus, the 
unit will be most popular in 
network applications, partic- 
ularly those which require 
very large amounts of on-line 
data without exceptional 
speed. The 200 Mb cartridge 
takes an average of 10 sec- 
onds to find data, then trans- 
fers it at up to 60K per 
second. 

The Bank locates files in 
the order they appear on the 
tape, not in the order of re- 
quests; with a number of 
users (up to 64 on Corvus' 
Omninet system) simultane- 
ously accessing files, the con- 
tinuously looping tape pro- 
duces access times nearly as 
Fast as a busy Winchester. 

Information is available 
from Corvus Systems Inc., 
2029 O 'Toole Ave., San 
Jose, CA 95131, 408-946- 
7700. 

;ader Service »^566 



available from SGL Waber 
Electric. The strips feature an 
on/off switch and circuit 
breaker protection, and are 
designed to detect dangerous 
ground fault currents caused 
by moisture, improper or 
faulty connections, or worn 
insulation. 

Each strip sells for $63.40 
(four outlets and a 6-foot 
cord), $66.70 (four outlets 
and a 15-foot cord), $70.45 
(eight outlets and a 6-foot 
cord), and $73.80 (eight 
outlets and a 15-foot cord). 
They are available from SGL 
Waber Electric, 3H Harvard 
Ave., Westville, NJ 08093, 
6#9-456-54ft. 

Reader Service <>550 

New D»t-M atrix 
Printers 

Japan Digital Laboratory 
(JDL) exports two dot-ma- 
trix printers to the U.S. mar- 
ket. Both feature 180- by 
180-dot graphics resolution, 
condensed and expanded 
characters, and a bidirection- 
al print head. Both printers 
have an Intel 8085 chip for 
Centronics parallel and RS- 
232C serial ports. 

The JDL P200 ($2,149) 
uses automatic cassette sheet 
feed; its 16- by 24-d#t (single- 
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pass) matrix prints at 70 cps 
in elite format, 58 cps in pica 
format. The friction- feed 
JDL P700 ($2,099) also of- 
fers a 145 cps data processing 
mode. 

For more information, 
contact Pacific Technology 
Services, 332 Pine St., San 
Francisco, CA 94104, 415- 
956-3926. 

Reader Service »> 567 



Five Mere Tracks 

Model I owners who use 
TRSDOS 2.3 with 40-track 
drives are wasting 12K of 
space per disk — the storage 
difference between 35 and 40 
tracks. CVT3540 is software 
that formats the additional 
tracks and patches TRSDOS 
2.3 to recognize and use the 
extra capacity. 

The operating system con- 
tinues to work with 35-track 
disks, and no files are dis- 
turbed in formatting tracks 
35 through 39. The utility 
checks the system code to 
prevent incorrectly patching 
a nonstandard DOS. 

CVT3540 is supplied on 
cassette for unprotected 
transfer to disk. It costs 
$17.50 from Mysoft Com- 
puter Software, P.O. Box 
417, Arroyo Grande, CA 




A Safe Outlet 

Four 15-amp, 125 V ac 
multiple outlet strips are 
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Corvus Bank 



93420, 805-481-3992. 
Reader Service <^559 

11/12/16 Disassembler 

Disassem is a Z80A pro- 
gram that disassembles Model 
II program files, converting 
the binary code to Assem- 
bly source code. Output takes 
place through the screen, 
printer, and/or a source file. 

The hold key starts and 
stops the display scroll. The 
Fl key orders a printout. De- 
scriptive error messages help 
trace mistakes. 

The program requires 15K 
of memory. It includes patch- 
es for TRSDOS 2.0a that let 
you disassemble any Radio 
Shack program file and view 
the entire memory while us- 
ing the Debug monitor. With 
Tandy's Thinline utility, it 
can be converted to TRSDOS 
2.0b for the Models 12 and 16. 

Disassem costs $49.99 
from K & S Associates, 202 
Park Ave., Bloomfield, CT 
06002, 203-243-3321. 

Reader Service S 576 



Logic Analyzer 

The •mniL»j3C LA-16M 
works with a 48K Model I or 
III t» provide features nor- 
mally found in logic ana- 
lyzers costing $lf,tff or 
more. Its interactive menus 
and help routines make com- 
plex digital analysis easy. 

The LA- 1680 can collect 
1,000 data samples on each 
of 16 channels. In addition to 
triggering modes, such as 
And/Or/Not on data or 
glitch (with trigger point 
located anywhere in its 
1,000-word sample memory) 
the unit features triggering 
modes like absence of repeti- 
tive event and delay by event 
or time (from 1 microsecond 
to 30 seconds). The system 
uses internal or external 
clocks as fast as 20 MHz; 
both clock and trigger out- 
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DOES STRING COMPRESSION HAVE YOU 
TIED UP II KIOTS? 

LET TRASHMHIf CLEAN OP THE MESS! 

THIS PROGRAM IS A MUST FOR EVERYONE WHO USES "BASIC". ON A TRS-80. Why? Because it 



can reduce BASIC'S string compression time delays by 95% or' more. 




# 


SECONDS DELAY 


PERCENT ! ' 


STRINGS 


NORMAL 


TRASHMAN 


IMPROVEMENT 


250 


11.8 


0.7 


94 ' 


500 


4b. 8 


1.6 


96 5 


1000 


I79.6 


3.5 


98 


2000 


713.2 


7.8 


98.9 



(All timings done on TRS Model I. Model til 15% faster, but pfri 
arovements identical. Listing of mnrg i-toq-am ain< dde o i truest ; 





speeds up 
most TRS-80 BASIC programs 
by 20-50%. It's helped hun- 
dreds of satisfied people and 
it can help you. Detailed in- 
structions make it easy to 
use. FASTEH analyses your 
BASIC programs white they 
run. then displays a simple 
change, usually one line, 
that sequences program vari- 
ables so the ROM will find 
— them faster. 
You can use FASTER to speed up programs you've 
bought, as well as programs of your own. Since it isn't a 
compiler, your BASIC programs can be read and changed 
afterwards. FASTER works on business programs, models, 
and games. The more complex your program, the better the 
results. 

Does FASTER really work? Yes! Just check the reviews in 
Personal Computing, May, 1981, p. 116: "FASTER is effec- 
tive and easy to use"; 80 U.S. Journal, April* 1982, p> 106: 
"I recommend FASTER to everyone"; and 80 MICRO {April, 
1982. p. 40): "If you...woald like a significant increase In 
the nut-time speed, then buy FASTER." 

FASTER runs on the TRS^80 Models I and HI, 16-48K tape 
or disk, and all major operating systems. $29.95 

"QUICK COMPRESS" takes only 276 bytes of 
memory, and removes the blanks and remarks from even 
the largest BASIC program in less than 3 seconds. It pro- 
duces smaller, faster programs without altering their logic. 

SPECIAL: FASTER and QUICK COMPRESS: $39.95 



WHAT'S STRING COMPRESSION? 

When a BASIC program changes a string (words, names, descrip- 
tions), it moves it to. a new place in memory, and leaves a hole in 
the old place,- Eventually, all available memory, gets used up and 
BASIC has to push the strings together to free up some space, This 
takes time, lots of time. The computer stops running for seconds or 
minutes, and you may even tfrnk it's 'crashed' . 

Yes! String compression is what's been causing alt those in- 
tolerable delays. The keyboard won't work, and until all the strings 
have, been collected., you just have to srt and wait Then things run 
for a while, until string compression is needed again. And again. 

11 you're using your computer- for business, that wastes your 
money. It you're using it personally it wastes your time. 

WHAT'S THE SOLUTION? 

As soon as. you start usthg TRASHMAN, those, delays w>'il almost 
disappear. The program is very easy to use, so you don't have to be 
a computer programmer to/ take advantage of it. It's written in 
'machine language' and uses only 578 bytes of. memory for itself, 
plus two bytes for each "string" /in your program. It works with 
other .. machine language programs and. .all the. major, operating 
systems. 

HOW WELL DOES IT WORK? 

If you use it with a BASIC program that has only a few strings, 
very little time is wasted in string compression, and TRASHMAN will 
be only slightly helpful. But; in programs, that use hundreds, or 
thousands of strings, including large string arrays, TRASHMAN is 
just what you need. If you have any remaining doubts, just look at 
the chart, and then get yourself a copy as last as possible. 

TRASHMAN ir available on disk 
for just $39.95. 

ATTENTION SOFTWARE PUBLISHERS: 

Trashman may be licensed for use with your packages. 
Ca'l for details 




You can avoid unnecessary disk: 
errors and repair bills by using : 

RPM. This easy-to-use program 
measures the rotational speed and 
fluctuations of your disk drives, arid V 
warns you if they are running too 
fas!, too slow, or unevenly. 

Incorrect or erratic speed is a 
common cause of unexplained disk 
errors and loss of data. RPM 's docu-. 
mentation explains how to detect and correct these problems 
quickly and easily. As 80 MICRO (April, 1982, page 41) 
said; "If your drives have problems I recommend RPM 
before paying to get it repaired." 

RPM is supplied on diskette ior the TRS-80 Models land 
III. We suggest you order a copy be/ore you need it. 

$24.95 
ORDER FROM YOUR LOCAL SOFTWARE 
DEALER, OR CALL NOW, TOLL-FREE: 

(800) 824-7888, Operator 422 

FOR ORDERS OR INFORMATION CALL: 

(213) 764-3131, or write to us. 




Dept. G, Box 560, No. Hollywood, CA 91603 -95 



TERMS: We accepl VISA, MasterCard, cheeks, or even cash. Please add $2.00 shipping handling wilhtn US* or Canada- and SS.00 



NEW PRODUCTS 




LA- 1680 Logic Analyzer 



puts can be qualified. 

After collection, data is 
analyzed via several innova- 
tive displays ranging from 
standard timing diagrams to 
eight-channel maps and his 
tograms. Signature analysis is 
a newly popular method of 
digital testing; the LA- 1680 
derives the hexadecimal 
signature of 14 test points 
simultaneously. 

All test parameters, data, 
and time and date can be 
stored on TRSDOS disk, and 
all channels can be relabeled 
for convenience. All displays 
can be printed. 

The unit costs $1,250 from 
OmniLogic Inc., P.O. Box 
87, Renton, WA 98057, 
206-271-2000. A Model I/Ill 
demo disk of LA- 1680 dis- 
plays is $5. 

Reader Service >s 568 



Custom Screen Utility 

Scrnwrtr is a Model I/I II 
utility that lets you design 
specially formatted screens 
for use in Basic programs. 
Once a screen is designed, 
pressing the enter key saves it 
to disk; subroutines are in- 
cluded for later recall. 

The design process uses a 
floating, nondestructive cur- 
sor controlled by arrow keys. 
A corner display constantly 
shows the cursor's numerical 
location, and the shift and ar- 
row keys move lines of text. 

The program costs $19.95 
from K & L Software, P.O. 
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Box 39093, Northbridge Sta- 
tion, Charleston, SC 29407, 
803-552-9990. 

Reader Service ^554 



Graphics tor LNW 

The Chart-Ex program lets 
LNW80 computers plot high- 
resolution bar, line, and pie 
charts on the screen and print 
them on an Epson MX-70, 
-80, or -100 printer with 
Graftrax. 

Data is entered from the 
keyboard or users' VisiCalc 
or other files. Chart-Ex plots 
up to three variables, and 
offers eight printer output 
selections. 

Chart-Ex costs $89.95 plus 
$2.25 postage (California res- 
idents add 6.5 percent sales 
tax). It is available from Erb 
Computer Systems, 10840 



Hunter Ave., Whittier, CA 
90601, 213-699-6684. 
Reader Seivice ^561 

Software Library 

TRS-80 users, as. well as 
Apple, IBM, Atari, and 
CP/M buffs, can borrow 

programs from the Electric 
Bookshelf, a member -owned 
collection of microcomputer 
software. There are no mem- 
bership fees required to join. 

For a membership applica- 
tion and list of available pro- 
grams, write I he Electric 
Bookshelf, P.O Box 1409, 
Nor cross, G A 30071. 

Reader Service ^555 

Office Dot-Matrix 

The Marmesmann Tally 
MT 1800 is a multifunction 

printer designed for small 
business systems with large 
print runs. Besides offering 
letter-quality printing at 50 
cps and draft work at 200 
cps, it operates at a low 52 
decibels. 

Two letter-quality fonts 
are included, with additional 
fonts available in kit form. A 
graphics option provides 
three different dot densities 
and tone gradations from 
gray to solid black. 

A quick -tear assembly 
allows individual fanfold 
forms to be removed without 




Mannesmann Tally Printer 



wasting the next form. Auto- 
matic front feed controls the 
printing and formatting of 
pre-cut forms, and a bottom 
feed accommodates adhesive 
labels or heavy paper stocks. 

The MI 1800 sells for 
$1,995 from Mannesmann 
Tally, 8301 South 180th, 
Kent, WA 98032, 206-251- 
5524. 

Readei Service ^560 

Touch Me in the 
Morning 

WattsOut is a 2- by 3-inch 
anti-static device that at- 
taches to your micro's key- 
board and a ground. The 
words "Touch Me" are 
prominently displayed on its 
surface; follow its suggestion 
before using the keyboard, 
and charges that could cause 
data errors and circuit dam- 
age are harmlessly drawn 
away. 

According to the manufac- 
turer, WattsOut's $9.95 price 
makes it a bargain compared 
to anti-static mats and 
sprays. It is available from 
WattsOut Inc., 2020 S. 
Oneida #201, Denver, CO 
80224, 303-759-3880. 

Reader Service ^ 562 

Hard-Disk Xenix 

Aton International has an- 
nounced support of the mul- 
ti-user Xenix operating sys- 
tem on Model II, 12, and 16 
micros equipped with 
Tandy's 8- or 12-megabyte 
hard disks. 

Aton CP/M 2.2 allows 
users to share different oper- 
ating systems on the same 
Winchester. CP/M and ei- 
ther Xenis or TRSDOS can 
be booted up, allowing access 
to both Xenix's multi-user 
capability and CP/M's vast 
software library on one hard 
disk. Flawed sectors, bad 
tracks, and other problems 
are automatically detected 
and fixed. 

The $279 package includes 



Portable Model 100, 8K, ..... , *6I 

Model 12 1 Drive . . '2730 

Model 12 2 Drive. . f 3499 

Model IV 64K 2-Drive M699 

16K Fxt. Basic Color Computer '2T*I 

64K Chips, set of 8 *79 

Super Pro Keyboard *69 

Complete line of 

Verbatim, Televideo, Okidata, 
Prowriter 

'prices subi&rt tn rhnnnp 
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Mwy 1 1 South 



Trenton, Go. 
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WORD 

PROCESSING 
ON YOUR 
TRS-BO 
BECOMES 
CHILD'S PLAY 

USING SCRIPSIT 

by 

William James Haga 



USING SCRIPSIT 
is a complete and 
easy-to-use guide to 
SCRIPSIT — one of the most powerful word processing 
packages available for the TRS-80 Model I or III. 
USING SCRIPSIT is for the first-time user and the 
expert, presenting procedures at every level of difficulty 
in simple-to-follow steps and exercises. 
$2195 yy ^305 

L ook for these WFPCO products at your 
local computer dealer or bookstore. 
For more information or to order 
direct, call 415-595-2350 
and ask for Wendy Moore 
(MasterCard and Visa 
orders only). > 



Wadsvyorth Electronic Publishing Company 



6 Davis Drive, Belmont, California, 94002 




657-5104 




Am^i 






mm*. 






wt 




Hello thayuh. This is Eben Flow, proprietor 
of the Fish or Cut Bait Company, buyer and 
seller of lobstah bait for 49 years. My hobbies 
are collecting linoleum samples, squashing flies 
and playing pac-person on my home computer. 

But here on Martinicus Rock, off the coast of 
Maine, the power can be a tad erratic. So, to 
cure the brownout and blackout problems, 
and to keep them spikes and surges off my 
picture tube, I got me a MAYDAY 
Uninterruptible Power Supply from SUN 
RESEARCH. Them fellas fixed me up real good 
and real light on my pocketbook, too. Got me 
a MAYDAY for my mini-calcaputer with a 
voltage regulator and everything for only 325 
clams. They even included the battery in a nice 
waterproof box. Handy out here, you know. 
Now, if MAYDAY would only keep them sea 
dogs out of my barrel. . . 

MAYDAY Protection even you can afford! 




^W 



SUN RESEARCH, INC. 

Box 210 

New Durham, NH 03855 

603/859-7110 

TWX 5102974444 



• 285 



'See List of Advertisers on Page 323 
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We review products from every source and carry ALL of THE BEST 




PRODUCTS 



We offer products from: 

Mark Data • Tom Mix 

'•Micro Works • TDP • Radio Shack 

Book Publishers • Botek • Aardvark 

'' Motorola • Frank Mogg Laboratories 

cro Technical • Nanos • Epson • C. Itoh 

Hayes • Signalman • Dugger Growing Systems 

We are a TDP dealer wilh good prices! 

SOFTWARE. Graphics 8 Arcade Games! • Adventure Games! 

Home Management • Finance • Word Processing and Mailing Lists • Data Bases 

Modem Software • Assemblers and Editors • Graphics Programming Aids 

We have OS-9 Software! 

HARDWARE: 16K • 32K • 64K Memory Expansions • Printers • Modems ♦ Cables 
Interfaces • Lower Case Adaptors • Disk Drives • Monitors • Computers 

ACCESSORIES: Books • Ribbons • Service Manuals •■ Reference Cards • Supplies 

Attractive Authorship Program for programmers who want to turn software into cash! 

Shipping Irom stock Dealer Inquiries. Invited 



CALL 

OR 

WRITE 

FOR 

COMPLETE 

INFORMATION 




COMPUTERWARE 



Box 668 
6809 Specialists Encmitas, CA 92024 • (619) 436-3512 

Computerware is a trademark of Computerware 



FREE SHIPPING 



Epson/Smltfe-Corona Printers 

MX80 $428.08 FX80 $550.00 MX100 tt7B.lt 

TRS 80 / Parallel Printer Cable 120.00 

IBM Parallel Printer Cable $15.00 

CTM MICROHICS 6ENIRI 10 $ CM! 

BENIN! 15 $ CALL 

Smith Corona TP-1 Letter Quality Daisy Wheel $575.00 



?w 



JHR 



EliniMKS 

MC. 



TRS-80 MOD III Disk Controller inci Disk Controller Power 

Supply Mounting Hardware tables & nstruction Manu; ; $230.00 

POWEB SUPPLIES Dual 8" Slim Line MM Dual 5 v." $ N.M 

ANO CABINETS Single 5 V. f M.N 

3" 0UAL DRIVE SUBSYSTEM FOR IBM $725.00 

Amdsk Monttors 

Mod 300 Phosphor - $150.00 Composite Color III - $345.00 

IBM RGB Compatible Color II - $509.00 Color I - $300.00 

IBM/TRS 80 Disk Drtm/Cablnets 

TM 100 Single 40 Track Drive - $100.00 

TM 100-2 Double 40 Track Drive - $200.00 

TEAC 5VV SUM SINGLE « DOUBLE DRIVE SUBSYSTEMS $ CALL 



ATA-MAIL 

P.O. Box818. 
eseda.CA91335 



VISA MASTERCARD ($100 Mm , Add 2%) Or 
Cefrfied Check Ninety Day Warranty 

(Par's & Labor) TRS s a Registered Trade-narK. 

Tandy Corp. Prices Subject to Change 

Without NCce FREE SHIPPING IN 

CONTINENTAL U.S. 

(213) 993^1804 ^ 452 



NEW PRODUCTS 




RS-232 Multi-Adapter 



Aton CP/M 2.2, the hard 
disk adaptation, and docu- 
mentation. Xenix must be 
purchased separately from 
Radio Shack. A hard disk 
upgrade for current Aton 
CP/M owners is $100. 

For more information, 
contact Aton International 
Inc., 260 Brooklyn Ave., San 
Jose, CA 95128, 408-554- 
9922. 

Reader Service ^569 

RS-232 Multi-Adapter 

B & B Electronics' Multi- 
Adapter has one male and 
two female RS-232 connec- 
tors, with pins 2-25 con- 
nected to socket strips. The 
male connector's LEDs mon- 
itor the status of pins 2-6, 
8, and 20. Two spare LEDs 
are connected to their own 
socket strip; they can connect 
to any pin. 

With 20 jumper wires in- 
cluded, the unit costs $79.95 
plus $1.75 shipping and han- 
dling from B & B Electronics, 
P.O. Box 475, Mendota, IL 
61342, 815-539-5827. 

Reader Service f 55 1 



June's New Products sec- 
tion gave the bulk wholesale 
price for Head Computer 
Products' disk drive cleaning 
kit (p. 364). The suggested 
retail price is $34.95. 



Disks Tabs and Boxes 

Lewis Computer Supply 
Co. (38211 Logan Drive, Fre- 
mont, CA 94536, 415-792- 
1531) offers Super Tabs, 
adhesive disk labels that ex- 
tend from the drive opening, 
letting you see which disk is in 
which drive at all times. The 
tabs come in six colors, and 
cost $2.50 per sheet of 12. 

The firm also supplies 
acrylic disk cabinets with file 
dividers. A 12-inch file 
($49.95) will hold 90 disks; a 
6-inch one ($34.95) holds 45. 
Bronze, green, red, or blue 
cabinets are available for an 
extra $3 each. 

Reader Service >s 573 



Faster CoCo Cassettes 

Fastape is a machine-lan- 
guage utility for the Color 
Computer that doubles the 
speed of cassette operations. 
It allows full use of the Co- 
Co's high-speed mode, can 
read tapes accidentally saved 
at high speed, and allows 
speed mode to be changed 
with a control key for auto- 
matically adjusting cassette 
and printer parameters. 

The program is transpar- 
ent to Basic, features control- 
key entry of common Basic 
commands, and takes only 
ViK of available memory. It 
sells for $21.95 from Spectro- 
Systems, 11111 N. Kendall 
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NEW PRODUCTS 




COMPUTER GRADE 
BLANK CASSETTES 



Olivetti PR2300 



Drive, Suite A108, Miami, 
FL 33176, 305-274-3899. 
Reader Service ^570 



$560 Ink-jet Printer 

Ink-jet technology, usually 
reserved for large and expen- 
sive printers, is now available 
in a 12-pound, 15- by IOV2- 
by 4 Vi -inch package costing 
$560. 

The Docutel/Olivetti 
PR2300 uses a single-jet 
printing head to direct car- 
bon particles onto standard 
paper in a 7- by 7-dot matrix. 
The paper is sensitized with 
electric impulses in the form 
of the desired character or 
graphics pattern; it attracts 
and permanently affixes car- 
bon particles to the paper. 
The process is similar to that 
used in dry-paper copying 
machines. 

The unit prints all 96 
ASCII characters, with seven 
other symbol or foreign-lan- 
guage sets software select- 
able. It operates at up to 110 
cps at 10, 12, or 15 pitch, with 
six or eight lines per inch. 
Normal, compressed, double 
height, double width, and 
bold printing are available, as 
is single or double underlin- 
ing. Graphics are supported 
at 1 10 horizontal and 216 ver- 
tical points per inch. 

The printer uses a standard 
Centronics or RS-232C inter- 
face. It is sold by Docutel/ 

sSee List of Advertisers on Page 323 



Olivetti Corp., 155 White 
Plains Road, Tarrytown, NY 
10591, 914-631-8100. 
Reader Service »>571 

Model HI Artistry 

Draw ($29.95) is a graphics 
and text program on disk for 
the 48K Model III. It lets you 
draw designs on the screen 
using cursor control keys, 
special commands, and auto- 
matic drawing routines, and 
include text and special char- 
acters in the drawing. Dis- 
plays can be saved to disk and 
included in other programs. 

Printing options include 
three print sizes, single or 
double strike, border size, 
and automatic line, circle, fill 
in, and overlay. Error mes- 
sages and "bail-out" routines 
prevent displays from being 
spoiled or lost accidentally. 
The disk includes 10 sample 
displays. 

Kwikdraw ($74.95) is a fast 
machine-code version of 
Draw with expanded fea- 
tures. Routines are included 
to move, duplicate, and erase 
figures or text and to move 
the entire screen with or with- 
out wraparound. Material is 
saved to or retrieved from 10 
RAM buffers, and eight 
menu /help screens are in- 
stantly available. 

The programs run under 
TRSDOS 1.3 and support 
Epson MX printers. They are 

Continues on p. 352 



DATA TRAC / C-05, C-10, C-20 




CASSETTE STORAGE CADDY 

ORGANIZE 
YOUR TAPES! 

$2 95 EACH 



TRACTOR FEEO 

DIE-CUT BLANK 

CASSETTE LABELS 



INTRODUCTORY OFFER! 

ORDER 2 DOZ. CASSETTES AND 1 CADDY 

GET 1 CADDY FREE! SrS" 

Of FEB EXPIRES AUGUST T 1M3 



4 



HE «'S WH*T B0UT Y ORK 10 ««*£* n ... #££&" 

Call: 213/710-1430 
DER NOW . . . VORK lCComouterwor^ 

MAIL TO: 24573 Kittridge St., #80 Canoga Park, CA 91307 
tm — — ORDER FORM - — — — — — — 



drop 




■YOU'VE TRIED THE REST. 
NOW BUY THE BEST 



for IMMEDIATE SHIPMENT 
on Cradit Card Ordara. 




ITEM 1 DOZEN 2 DOZEN 


TOTAL 


C-05 Zj 7-50 U '3 50 




C-10 C 8 00 □ 14 40 




C-20 a '000 D '800 




Hard Box ] 2 50 Q 4 00 




Storage Caddy rffi S? 95 ea Quantity 

FREE Quantity 




Blank labels [] 4 00/100 'J 30 00/1000 




SUB TOTAL 




Calif residents add 6% sales tax 




Shipping/handling 1 doz $2 2 doz $3 50 
3 doz $4 50 each additional doz $ 50 




For Parcel Post instead ot UPS ADD $' 




Outside Continental USA, ADD $2 




TOTAL 





Check or M.O. Charge to 

enclosed fj Credit Card: □ VISA [ ] MASTERCARD 

"3 PLEASE SEND QUANTITY DISCOUNTS 



Card No. 



Each cassette 
includes !*c YORK 
10 lahels only 
Boies are sold 
separately Ship 
ments ne By 
U P S unless 
Parcel Post it- 
quested Boxes 
caddies and blank 
labels are 'ree of 
shipping charges 
when oriJeied with 
cisse'-es When 
ordered withoul 
cassettes snipping 
charges Boxes - 
$i 00/doz 
Caddies $1 CO 
each MINIMUM 
SHIPPING' 
HANDLING ON 
ANY ORDER - 
$2 00 



_Exp_ 



Name 



Address 



City 



State/Zip 



Signature 



Computer make & model 



_Disk?(y/n) 



■*W*» wff »RH|( J*W» ?B^9 i«C '■ ■ '.' 
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FREE! DOSPLUS 3.4** 
disk operating system 
with any Percom or 
Access Unlimited 
1st Drive System 
for the Model III* 



SAVE $50.00 on a fully-tested PERCOM 
Disk Drive for Model III* Reg. $499.00. 
Now $449.00 ea or $750.00 Dual 

Percom's internally-mounted drives, with their widely-acclaimed disk 
controllers, are completely pre-tested with a 48 hour Burn-in. So, you 
know it works right when you get it. Choose single or double-density 
storage capacity. 

A First-Drive System includes the four-drive disk- controller, one drive, 
power supply, mounting hardware, cables and a fully-illustrated, 
easy-to-understand owner's manual. 

MAKE SURE IT'S DONE RIGHT! 

... Let Us Install Your First-Drive System 

Purchase your Model III* Drives from us and for $79.95 plus shipping, 
you can have our experienced professionals perform a 48-hour burn-in 
of your Model III* computer, install the drive system, and check out 
your expanded system to make sure everything works correctly. Call for 
pricing of complete Model III* system with 2 to 4 Access Unlimited or 
Percom drives. 

Get the best! Our own fully-tested drives* for 

as lOW as $275.00 Model I* 

Every Access Unlimited Floppy Disk Drive is electrically and mechanically 
tested, then burned-in for 48 hours under operating conditions. The 
signed test list in your shipping carton is proof of that. 

Our floppy disk drives offer you either single or double density. With 
double-density, it stores up to 364 Kbytes, depending on the format. 

AFD40-1 SS/DD-$275.00 TFD44-1 DS/DD-$350.00 

AFD40-2 Dual SS/DD-$550.00 TFD 44-2 DS/DD-S700.00 



"Percom" Quality for your "Model HI" 

Nothing but the best for your "Model III". Percom internally mounted 
drive systems: including 4 drive controller with gold edge connectors, 
double density disk drive or drives, all hardware and cabling. A free copy 
of DOS Plus 3.4 is also included with every first drive purchase. 

TFD 340N1 one drive single sided double-density $449.00 
TFD 340N2 two drive single sided double-density $699.00 

Brand Spankin' New! SALE Dual Headed Drives 
for the Price of Flippies! 

Now you can have a 'dual headed "PERCOM" Drive System for your 

"Model III!! 

TFD344N1 One drive dual headed double-density $560.00 

TFD344N2 Two disk dual headed double-density $860.00 

'completely compatible with programs existing on single sided or 
double sided diskettes. 



WE HAVEN'T FORGOTTEN THE "MODEL I"! 



You have a good system and you just don't want to sell out to a Model 
Ill-Upgrade with the Percom Doubler II, the overwhelming favorite 
double density adapter for over 2 years! Simply plug the adapter into 
your expansion interface and run either single or double-density 
programs. Comes complete with FREE DOS Plus 3.4 but will also run 
with LDOS NEW DOS 80 and TRS DOS. 

Upgrade your Model I to Double Density — New Low Price $129.95 
For "TRS 80 Model I & III" — Super Utility & V30 — $55.45 

Percom Hard Disk — Quality for your System 
'works with existing floppy drives R f *. ?4qc - 

*can be daisy-chained up to four hard disks " Ly ' l,um * 30 

DOS Plus 4.0 or LDOS included FREE— Now from $1395.00 

'Now available for immediate delivery in 5 & 10 megabyte configuration. 
Can be used for Model II*, III*, "Apple II" or "IBM PC" computers. 



SATISFIED GUARANTEED! If you're not completely satisfied with your 
Access Unlimited Disk Drive, return it within 15 days for a full refund. All 
our drives have a comprehensive 90-day limited warranty. 



SPECIALS OF THE MONTH- 



NEW "Star Gemini" Printer 

Dot Matrix Model 10 — 
100 CPS Model 15 — 



Reg. $499.00 
Reg. Retail $699.00 



Sale $399.00 
Sale $699.00 



NEW "C-ITOH F-10 Starwriter" Printer 

Reg. Retail $2295.00 



Sale $1595.90 



SPECIAL CLOSEOUT: 



"Brother" HR1 Daisywheel Printer 

Serial — 

Parallel — 



Closeout Sale $799.00 
Closeout Sale $745.00 



"DIABLO" MODEL 2300 MATRIX PRINTER 
Close Out Special — 

• Rugged, commercial duty • 7x9 dot matrix • High Speed! 200 CPS! 

• Top of the line, highest quality 

Reg. Retail Price $2495.00 CALL FOR OUR SPECIAL PRICE 

"SILENT SCRIBE" QUIET MATRIX IMPACT PRINTERS 

DP-9000A (80 Col, 150 CPS, Graphix™ PLUS) ONLY $1625.00 

DP-9501A (132 Col, 150 CPS, Graphix PLUS) ONLY $1625.00 

DP-9620A (132 Col! 200 CPS. Graphix PLUS, Enhanced "NLQ" 
(Print Quality) ONLY $1745.00 



"MPI" GRAPHICS PRINTER 

• 150 CPS Sale, Only $1099.00 

"TRANSTAR" 130P DAISY WHEEL PRINTER 

• 16 CPS • Permits full range of word processing functions: proportional 
spacing, superscript, subscript, underscoring AND true boldface! 

Now Only $875.00 



"Tl 810" PRINTER-Close Out! 



Your Price — Only $1200 



"SOUND-TRAP" — Give your Epson, Okidata NEC Star or other 
likesize printer a nice quiet place of its own. 

Only $109.00 



HOT OFF THE PRESSES: 



Inside Personal Computer Disk Storage 

THE Necessary Basic Book, ilfWfrom "Percom' 



Only $5.95 



v ,->— - , 





— — — — — — — — — — REAllTIPIII rilCTnM FIIRNITIIRF m. 



WHILE THEY LAST! 



"Epson 14 x 20" 



Reg. £795 



Your Price $699.00 



Save $$ on our most popular items! 

Percom Data Separator (reg. $29.95) 
Screens for Models I*, II*, III Green, Lt. Blue, 

Dark Blue, and Amber. Bronze for color video 

(reg, $24.95) 
Head Cleaning Kit (reg. S29. 95) 
Drive Numbering Tabs, pkg. 0-3 (reg. $4.50) 
Flip-N-File 8" (reg. $54.95) 
NEW Style Smoke Grey File 5VV, Holds 75 



Now $23.95 



Now $12.95 
Now $19.95 
Now $ 3.95 
Now $28.95 
Now $24.00 



Introducing the Color Coder — A complete diskette filing 

system by "Color Kits" 5 different colored library cases - each case 
will store 10 diskettes — 

Reg. S39.95 — $19.95/set 



MEDIA FOR LESS 



"SENTINAL" complete with hub rings & one year limited warranty. 

$18.70 bx of 10 

$20.70 bx of 10 
$27.80 bx of 10 



Single sided/Single density 5W 
Single sided/Double density 5'/4" 
Double sided/Double density 5W' 



Single sided/Double density 8" $29.70 bx of 1 

Double sided/Double density 8" $38.70 bx of 1 

BUY DISKETTES IN BULK AMD SAVE $$$$$$$$$$$$$$$$$ 
These prices good by the case only — 

Single sided/Single density 5%" $179.00 case of 100 

Single sided/Double density 5'/." $190.00 case of 100 

Double sided/Double density 5 1 /," $225.00 case of 100 

Single sided/Double density 8" $280.00 case of 100 

Double sided/Double density 8" $340.00 case of 100 

"BASF" 5W" Single Sided/Double Density 

Lifetime Limited Warranty. Reg. $44.95 Now $24.90 bx of 10 

5Va" Double Sided/Double Density — Now $34.95 bx of 1 

8" "BASF" Diskettes Double Sided/Double Density — 

$39.95 



LIBRARY CASES - Holds 10 Diskettes Sale $2.95 ea. 

Reg. $159.00 Sale $29.95 

Colors: Russett. Blue & Gold, Natural Brown 



DOS + 3.4 
Anti-Static Mats 

& Golden Brown. 
3' x 5' — Reg. $75.60 
4'x6' — Reg. $120.90 
4'x8' — Reg. S161.30 



Sale 
Sale 
Sale 



$57.00 

$91.00 

$122.00 



"PAGEMATE" Typing Easels — $14.95 
SAVE on an "Arrick Quick Switch" 

Changes a "TRS-80" printer port or a peripheral between computers 

instantly and easily. Available for RS-232" and 'Centronics ' Plugs 
included. 

Now from $99.95. Cables from $26.95 



BEAUTIFUL CUSTOM FURNITURE 

"Atlantic Cabinet" — Oak! 

50" Split Level Desk 

50" Personal Computer Desk 
38" Personal Computer Desk 
Matching Printer Stand 



$249.00 
$120.00 
$105.00 

$89.00 



"Toor" & "O'Sullivan" Computer Furniture Also Available — Call 
For Details, Prices 

Print Wheels & Thimbles — From $8.50 each 

Printer Ribbons — For Centronics, Diablo, C-ltoh, Star and Epson 
80, 100 From $5.95 each 

• LIMITED TIME OFFER/LIMITED QUANTITIES • 
• Prices subject to change without notice • 

* Trademark of Tandy Radio Shack Corp. 

" " Reg. Trademarks • Prices do not include state taxes. 

1(800)527-3475 fft 

Order by phone or by mail. We accept Visa, MasterCard, cashiers checks, certified 
checks, and money orders. With personal checks, allow additional time tor bank 

clearance. Your bankcard will not be charged until your order is shipped. On orders 
over $1,000, we pay freight (surface only) and insurance; please add S3. 00 
shipping and handling over 50 lbs. Over 50 lbs., add S5.00 for orders under 
$1,000.00. Texas residents add 5% sales tax. Allow 2 to 4 weeks for delivery. 



□ Please send me a FREE catalog. I'm not ready to order at this time. 

□ YES, I'm taking advantage of your Sales prices. 

Name 

Company Name . 

Address — — . 

City 

Phone Number L 
Quantity 



State . 



.Zip. 



item 



Unit Price 



Subtotal 



Subtotal 

State Sales Tax (Texas residents only) 

handling charge 

Check one; Total 

□ payment enclosed D Visa □ MasterCard* 



'If MasterCard, numbers above name. 
Expiration Date: I I I I — I — 



Authorized signature, it charged 



ACCESS UNLIMITED 



DEPT. B-8/401 N. Central Expwy. Richardson, Texas 75080 
Tel. 1-800/527-3475 214/340-5366 
214/690-0207 — Sat. and Evenings Only ^ 26 
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NEW PRODUCTS 



Continued from p. 349 

sold by Lichen Software, 
6603 N. Lee St., Spokane, 
WA 99207, 208-664-6516. 
Reader Service *>563 

Model III Business Kit 

Business Multi-Pack is a 
collection of programs for 
the 48K Model III. It includes 
sales forecasting (arithmetic 
average, regression analysis, 
and futures analysis), eco- 
nomic order quantity deter- 
mination, inventory analysis, 
and several business utilities. 
Also included are price deter- 
mination for a desired profit 
margin, present and future 
value of a preset sum, an 
amortization schedule, and a 
perpetual calendar. 

The disk sells for $99.95 
from Single Source Solution, 
2699 Clayton Road, Con- 
cord, CA 94519, 415-680- 
0202. 

Reader Service is 511 



Two High -Resolution 
Monitors 

Two compact display 
monitors for personal com- 
puters are available from 
Comrex International. 

The CR-5400 is a 9-inch 
monitor with a resolution of 
800 lines per inch and a price 
of under $200; the 12-inch 
CR-5600 has a resolution of 
1 ,000 lines per inch and costs 
less than $230. Both are of- 
fered with a choice of green , 
yellow-green, or amber im- 
ages on an anti-glare tube. 

For more information, 
contact Comrex Internation- 
al Inc., 3701 Skypark Drive, 
Torrance, CA 90505, 213- 
373-0280. 

Reader Service »>578 



CoCo Communication 
Course 

Introduction to Data 
Communication is a tutorial 
for beginners and hobbyists 
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Comrex CR-5400 Monitor 



that explains the fundamen- 
tal concepts and technical 
jargon of computer com- 
munications. 

The lessons are organized 
into four parts with a test at 
the end. Topics covered in- 
clude the RS-232, DB25 con- 
nectors, full and half duplex, 
synchronous and asynchro- 
nous data, types of modula- 
tion, and direct-connect and 
acoustic modems. Examples 
and diagrams are given on 
screen. 



The tutorial runs on a 16K 
Color Computer. It costs 
$17.95 (cassette) or $22.95 
disk, plus $2 shipping, from 
Computerware, Box 668, 
4403 Manchester Ave., En- 
cinitas, CA 92024, 619-436- 
3512. 

Reader Service is 564 



Soundplus 

Soundplus ($79.95) is a 
sound and communications 




Soundplus 



device for the Models I and 
III. It connects between the 
cassette port and up to two 
cassette recorders, and pro- 
vides 300 baud serial com- 
munications for terminals, 
printers, modems, and other 
RS-232C devices. 

Its amplifier and speaker 
reproduce sound from games 
and other programs, and 
monitor cassette signals to 
determine the start of pro- 
grams and detect data drop- 
outs. All features are switch- 
selectable to eliminate cable 
swaps. 

Soundplus measures 5 by 5 
by 2'/2 inches; it is compatible 
with Radio Shack's cassette 
communication software or 
its own communications pro- 
gram, Complus ($10 to regis- 
tered Soundplus owners, 
$39.95 to others). 

It is available from Beaver 
Electronics, P.O. Box 13291. 
Salem, OR 97309. Include $4 
shipping and handling for 
mail orders. 

Reader Service *>558 



Add-a-Voice 

16K Color Computer own- 
ers can add voice output to 
Basic programs with Add-a- 
Voice, a machine-language 
utility with a vocabulary of 
25 digitally recorded words. 
Extended Color Basic is not 
required. 

Two simple commands se- 
lect a word and vocalize it 
through the television speak- 
er. Two sets of words are 
available: The game set in- 
cludes words such as "I," 
"got," and "stop." The quiz 
set features "yes," "no," 
"right," and so on. A pro- 
gram with one word set and 
driver takes only 4K of 
memory. 

Add-a-Voice costs $14.95 
plus $1 shipping and han- 
dling (cassette) from H.I.B., 
3505 Hutch Place, Chevy 
Chase, MD 20815, 301-656- 
1825 (phone after 6 p.m.). 

Reader Service ^ 572 



PUT PRICES IN CHEC 




HHMMmMMOMH 



RADIO SHACI 

IP BOX RELOADS FOR 



NEW ITEM 

CARTRIDGE RIBBONS FOR 

RADIO SHACK®* 

ILh I llCi I'" 111 S 'iiS ii W- 



IDGE RIBBONS 



RADIO SHACK 



SSLr 



, &IV 



. 



INNOVATIVE 
CONCEPTS 



DISC STORAGE BOX 
HOLDS UP TO 60 DISKETTES 

5V4" 8" 



EA 



CARTRIDGE RIBBONS FOR 

. :'•'' .v' 1 " ' 

APPLE PRINTERS 
NEC 8023 A 



;1LINE PRINTER 
& V 

LY DESIGNED CARTRIDGE 






DOZ 



$ 70. 



Ntt 



RADIO SHACK « 

DAISY WHEEL 
& DAISY WHEEL 

MULTI-STRIKE & NYLON 

" EA s 64. 69 : 



PROTECTALL 
LINE VOLTAGE 

SURGE 
SUPPRESSOR 



(SIX OUTLET) 



$3995 



EA 



•%** 



h*& »? %-# I % Sm# & % met: "W 

5V* SINGLE-SIDE DUAL DENSITY 

#3481 



mm. 
mm. 



MAXELL 
SKETTE 

5V4 " SINGLE SIDE 
UAL DENSIT" 



9. 95 



99 



CARTRIDGE RIBBONS FOR 



'%M 



RIBBONS F< 



mm 



10 PACK 






fc*:i ft. 



S86. 25 



EA 
EA 



S 11. 95 EA 



S 129. 06 



DOZ 



440 ;; 

PAPER TIGER $ 6. 95 $ 75.' 
MICROPRISM $ 7." $ 86- 29 
PRISM * 




(5K MIN) 

1 ACROSS 3'; x 15/16 CONTINUOUS LABELS 



MOST RIBBONS AVAILABLE IN COLORS TOO! 

CALL OR WRITE FOR OUR SUPPLIES CATALOGUE 

ON ORDERS UNDER «14.°° PLEASE ADD '3. 00 FOR SHIPPING 

MINIMUM RIBBON ORDER *30.°° OR 1 DOZEN 





TOLL FREE 800-343-7706 

IN MASS 617-963-7694 

PHONES OPEN 9AM-7PM EASTERN TIME 



■HBHnaa 

.-466 



51 DIAUTO DR \V^£ PO E 
RANDOLPH. MA 02368 



MASS RESIDENTS 
ADD 5% SALES TAX 



•RADIO SHACK IS A REGISTERED TRADEMARK OF THE TANDY CORP. 
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NEW PRODUCTS 






Programmable 
RS-232 Translator 

The PCT-100 is a user- 
configurable RS-232 inter- 
face that uses two bidirec- 
tional RS-232 ports and a 
built-in communications lan- 
guage to perform virtually 
any translation algorithm. 

The unit provides terminal 
or printer emulation, com- 
patibility and macro-function 
keys for word processing or 
other software packages, 
DEC or IBM family compat- 
ibility, type-ahead and data 
buffering, and baud rate and 
handshake protocol conver- 



sion. A single unit without 
power supply sells for $369. 

For more information, 
contact Method Systems 
Inc., 19751 S. Lakeshore 
Blvd., Euclid, OH 44119, 
216-531-0404. 

Reader Service ^574 

$19.95 DBMS 

Memory Jogger is a data- 
base management system for 
home, personal, or small- 
business use. Up to six re- 
trieval keywords or identifi- 
ers can be specified for each 
note or record; one or more 
(using And /Or) keywords ac- 



DIFFERENTtrack 




Printer-Stilts 

Want your printer to stand above the crowd? Put it 
on Printer-Stilts, a set of four rubber-tipped aluminum 
legs that elevate an Epson MX-70/80 or MX- 100 by sev- 
eral inches. The stilts leave space for several hundred 
sheets of fanfold paper, and tilt the printer for easy 
viewing of controls and text. 

Installation is a simple matter of inserting the legs into 
the printer housing recesses. No tools are required. You 
can have a quadruped Epson for $9.95 plus $2 postage 
and handling from Datatek Inc., Dept. 100, P.O. Box 
5956, Shreveport, LA 71135, 318-868-2241. Specify 
MX-70/80 or MX- 100. 

Reader Service ^ 565 



New Products listings are based on information sup- 
plied in manufacturers' press releases. 80 Micro has not 
tested or reviewed these products and cannot guarantee 
any claims. 



cess information. 

The menu-driven program 
requires a 48K Model I or III 
with one disk drive. It sells 
for $19.95 from Micro Soft- 
ware, 205 Dumaine Court, 
Suite 105, Fort Walton Beach, 
FL 32548, 904-862-5588. 
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Making Transparent 
Sorts Visible 

Pulse Software's Trans- 
parent Sort program is a 
graphics demonstration of 
the Shell-Metzner sort, an ef- 
ficient Basic sorting sub- 
routine. 

Although the subroutine is 
only 16 lines long, how and 
why if works can be a mys- 
tery to beginning Basic pro- 
grammers. The Pulse pro- 
gram shows the compare/ 
swap process as it happens, 
with a display of 26 letters be- 
ing sorted into alphabetical 
order. Arrows indicate the 
letters being compared, and a 
top-of-screen display shows a 
continuously updated table 
of statistics and variables. A 
comment at the bottom of 
the screen explains the line 
being executed. 

The Level II program is 
available on 16K cassette 
($14.95) or 32K disk ($19.95) 
for the Models I/III. For 
more information, contact 
Pulse Software, P.O. Box 
1086, Freehold, NJ 07728. 
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Build Your Own Disks 

Dual Density Formatter is 
a Model I/III disk utility that 
formats track zero, sector 
zero in single density and 
track zero, sector one in dou- 
ble density. The machine-lan- 
guage program requires no 
hardware modifications. 

It sells for $29.95 from Ap- 
plied 80 Softwares, 18 Ivy 
Lane, Cherry Hill, NJ 08002, 
609-482-6864. 
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Look Out Below 

Subterranean Encounter is 
an adventure for the Models I 
and III that combines the 
standard text format and 
two-word commands with 
graphics illustrations of each 
location. 

The objective is to gain ac- 
cess to the wizard's forbidden 
castle and collect the trea- 
sures within. Lots of nasty 
surprises await on the subter- 
ranean levels, and you'll need 
logic, luck, and a taste for 
bad puns to survive. 

The adventure requires 
32K of memory. It sells for 
$24.95 (disk) or $22.95 (cas- 
sette) from Toucan Software, 
4024 Canonero Court, Fair 
Oaks, CA 95628, 916-966- 
4241. 
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Model 16 Spreadsheet 

EasyCalc is an electronic i 

spreadsheet program for 
Model 16s using the TRS- 
DOS-16 operating system. 
Written in Cobol, it is de- 
signed for fast format plan- 
ning, so that "what if ques- 
tions are answered in minutes 
rather than hours. 

The system features a win- 
dow mode for data entry and 
rule modification, and de- 
fines rules by columns and 
rows as well as by individual 
cells. Multiple spreadsheets 
can be designed and saved in- 
to a menu with password/^ 
protection. 

Since EasyCalc is both 
command-driven and menu- 
driven, spreadsheet set-up, 
data entry, and format and 
data editing are quick and 
simple. Its object code takes 
roughly 50K of memory; fin- 
ished files require the same 
amount. 

The program sells for $395 
from Datamate Co., 4135 -^J? 
South 100th East Ave., Suite 
101, Tulsa, OK 74145, 918- 
664-7276. 
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If you guessed that a Practical Peripherals Micro- 
buffer™ printer buffer saves time, you're right. For 
the way it works, this inexpensive product is the 
most practical addition to your microcomputer sys- 
tem ever. 

With Microbuffer, you don't have to wait for 
your printer to finish before you resume using your 
computer. Data is received and stored at fast speeds, 
then released from Microbuffer's memory to your 
printer. This is called buffering. The more you 
print, the more productive it makes your workflow. 

Depending on the version of Microbuffer, 
these buffering capacities range from a useful 8K of 
random access memory — big enough for 8,000 
characters of storage — up to a very large 256K — 
enough for 256,000 characters of storage. 

Practical Peripherals makes stand-alone 
Microbuffers for any computer and printer combi- 



nation, including add-on units especially for Apple 
II computer and/or Epson printers. Each has differ- 
ent features like graphics dumps and text format- 
ting besides its buffering capabilities. You can 
choose one that's just right for your system. 

Best of all, they're built to last and work 
exactly like they're supposed to. 

If you're still guessing whether you can afford 
to have one, talk with any computer dealer. That's 
the best way to find out how practical a Practical 
Peripherals Microbuffer is. 



PRACTICAL 



31245 La Baya Drive 

Westlake Village, C A 91362 

(213)991-8200 
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GUESS WHO HAS 
MICROBUFFER. 





THE 
SWITCH! 

SWITCH TO 5 VDOUBLE DENSITY 

LXDaublerS/s 



FEATURES 

• 5- and 8-inch* disk drives 

• Single- & double-density 

• Any size and density in any mix 

• Read Model I, II* and III disks 

• 5- or 8-inch* system disk 

• Single & double sided disk drives 

• DOS+ 3.3.9 included, with Disk 
BASIC. 

• 6 month warranty 

• Up to 3.75 megabytes online 

• Easy installation - plug-in & run 

• Analog phase lock loop data 
separation 

• Precision write precompensation 

• Regulated power supply 

• Guaranteed operation at 4MHz 

• All contacts gold plated 

• Solder masked & silk screened 

• Runs under DOS+ 3.3.9, TRSDOS 
2.3, NEWDOS 2.1, NEWDOS/80 
1.0, LDOS, NEWDOS/80 2.0, 
and ULTRADOS 

• Reads 40- and 35-track disks on 
80-track drives 

• FD1791 controller + your FD1771 

• Fits Model I expansion interfaces 

• Fits LNW expansion interfaces 

• Track configurations to 80-tracks 

• 5 inch disk storage increased to: 

161,280 bytes - 35-track SS/DD 
322,560 bytes - 35-track DS/DD 
184,320 bytes - 40-track SS/DD 
368,640 bytes - 40-track DS/DD 
368,640 bytes - 80-track SS/DD 
737,280 bytes - 80-track DS/DD 

• 8 inch disk storage increased to: 



591,360 bytes - 77-track SS/DD 
1,182,720 bytes - 77-track DS/DD 
SS: single-sided DS: double-sided 
SD: single-density DD: double-density 

COMPLETE - The LNDoubler 5/8, 
switches your Model I or LNW -80 
into the most versatile computer you 
can own. The LNDoubler's switch 
allows you to boot from 5- or 8-inch 
system disks, and it's accessible from 
outside the interface. The LNDoubler 
5/8 comes with a double-density disk 
operating system (DOS+ 3.3.9), 
complete with BASIC and utility 
programs . . . ready to run your 
software NOW! 

VERSATILE - Whether you want 
single-sided, double-sided, single- or 
double-density, 5- or 8-inch operation, 
complete versatility is here today! 
Any combination of 5- and 8-inch disk 
storage is possible with the 
LNDoubler 5/8. Each of your present 
40-track, single-sided 5-inch drives 
will store up to 184,320 bytes 
(formatted storage) - that's an 80% 
increase in storage capacity for only 
half the cost of just one disk drive. 
With three 8-inch double-density, 
double-sided drives your Model I will 
have 3.75 Megabytes of online storage 
- that's more storage than a Model II 
or Model III! 

ADVANCED - The LNDoubler 5/8 
is the most technically advanced, 
tested and reliable double-density 



board you can buy. The LNDoubler 
5/8 has more features, more options 
and more software support than any 
other product of its kind. 

EASY TO INSTALL - The 

LNDoubler 5/8 is easy to install. 
There are no traces to cut, no wiring 
to do, just a screwdriver and a few 
minutes of your time is all that is 
required. The instructions are fully 
illustrated for all interfaces. In 
minutes you will be 'up-and-running', 
and enjoying your computer as never 
before. 

COMPARE - Compare features, 
compare quality, compare value, and 
make the SWITCH today! 
Immediate delivery from stock - at 
your dealer NOW for only 



219.95 



DEALERS - You too can 
make The Switch. 
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2620 WALNUT Tustin, CA. 92680 (714)544-5744 (714)641-8850 

*8" drive operation requires special cable. 8" double-density requires 3.55MHz CPU speed-up modification or LNVV-80 4MHz computer. TRS-80 is a trademark of Tandy Corporation. 



